Código de Visual Basic - Codigo de virus Redlof

Codigo de virus Redlofgráfica de visualizaciones


Visual Basic

estrellaestrellaestrellaestrellaestrella(6)
Publicado el 12 de Enero del 2004 por Fernando Díaz Sánchez
21.358 visualizaciones desde el 12 de Enero del 2004. Una media de 35 por semana
Código de una aplicación para mostrar el código del virus Redlof. Muy útil para entender el funcionamiento del mismo.

Versión 1
estrellaestrellaestrellaestrellaestrella(6)

Publicado el 12 de Enero del 2004gráfica de visualizaciones de la versión: Versión 1
21.359 visualizaciones desde el 12 de Enero del 2004. Una media de 35 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: Versión 1 (6)

El Autor
12 de Enero del 2004
estrellaestrellaestrellaestrellaestrella
Hola a todos, espero que les sirva este código.

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.
Responder
sebastian
13 de Enero del 2004
estrellaestrellaestrellaestrellaestrella
No es para que lo tomes para mal pero para abrir un archivo es mas simple usar una estructura, ademas puedes analizar las cadenas con las funciones left, mid, right, instr y demas:

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
Responder
El Autor
18 de Enero del 2004
estrellaestrellaestrellaestrellaestrella
Ja ja ja ja, tienes razón, no es que yo no sepa como cargar un archivo
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...
Responder
naiosoft
19 de Septiembre del 2004
estrellaestrellaestrellaestrellaestrella
esto es una truchada.....dejate de romper las pelotas, se re nota que esto lo encriptaste vos, y para el colmo le sumaste 1 a cada caracter en el codigo exceptuando los codigos de CrLf y la comilla...

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
Responder
Steven
14 de Junio del 2005
estrellaestrellaestrellaestrellaestrella
No lo he visto pero como es el único código de virus que hay le voy a dar el visto bueno. ...
Responder
sebastian
28 de Julio del 2006
estrellaestrellaestrellaestrellaestrella
hagan un poco ustedes??? a este tipo de gente que envia descubrimientos truchos se los llaman caraduras, atorrantes, chantas, sin verguenzas, etc...
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s945