Codigo de virus Redlof
Visual Basic
Publicado el 12 de Enero del 2004 por Fernando Díaz Sánchez (3 códigos)
22.454 visualizaciones desde el 12 de Enero del 2004
Código de una aplicación para mostrar el código del virus Redlof. Muy útil para entender el funcionamiento del mismo.
Comentarios sobre la versión: Versión 1 (6)
En realidad, no tengo mucho mérito pues lo que simplemente hice, fue trasladar las rutinas de encriptación que viene en los archivos folder.htt que se crean por doquier y los coloco en una función dentro de un modulo de vb.
De todas maneras, al menos la curiosidad me sirvio para descubir que hace y que no hace ese virus que a mi parecer, pudo ser mucho más dañino.
Sub Abrir_archivo(numero as byte, archvo as string)
dim fragmento as string *32768 ' equivale a 2^15 (32kb)
Numero=1
Open archivo For Binary as Numero
While Not Eof (Numero)
Get Numero ,fragmento
Txt_Archivo=Txt_Archivo & fragmento
Doevents ' hace que no se cuelgue el sistema
Wend
Close Numero
End sub
sino que tambien quise mostrar que ese tipo de procesos (esos caracteres puestos en varias cadenas si se pueden contemplar)
Es mas, hasta se pueden ver varias cadenas de texto, que nisiquiera tienen nombre bien definido.
Pero es un programa que lo hice para mostrar algunas cosas, y no
para dar una clase de programación, eso corre por cuenta de cada uno
si quieres ver sobre estructuras y clases, hay otros programas que he publicado, que cumplen con esos requisitos
pd: NO SEAN OCIOSOS PUES; HAGAN ALGO TAMBIEN...
miren esta farsa...
For I = 1 To Len(ScriptCode)
VA0 = Asc(Mid(ScriptCode, I, 1))
If VA0 = 18 Then
VA2 = Chr(34) ' todos los asc(18) se convierten en comillas
ElseIf VA0 = 28 Then
VA2 = Chr(10) ' los 28 se convierten en alimentador de carro asc(10)
ElseIf VA0 = 29 Then
VA2 = Chr(13) ' y los 29 en enter
Else
VA2 = Chr(VA0 + 1) ' al resto le suma uno...ejemplo "la 'a' es la 'b' "
End If
ScriptText = ScriptText & VA2
Next
las compañias invierten millones en desencriptar y vos lo sacas asi de una