últimos mensajes de: Christian.tc

Mostrar Mensajes
Páginas: [1] 2

1	Programación / Ingeniería Inversa / Re: Problema con OllyDbg en Windows 7	en: 18 Junio 2010, 15:48 pm
Gracias Le di a F9 y se arreglo saludos (Solucionado)

2	Programación / Ingeniería Inversa / Re: Problema con OllyDbg en Windows 7	en: 17 Junio 2010, 18:49 pm
Gracias por responder La barra de estado,es la de abajo no? ai me pone: Single step event at ntdll.77CD9DD - use Shift+F7/F8/F9 to pass exception to program Que tengo que hacer?

3	Programación / Ingeniería Inversa / Problema con OllyDbg en Windows 7	en: 17 Junio 2010, 17:27 pm
Buenas de nuevo,a saco con los problemas (En Windows XP) Utilizo OllyDbg para hacer indetectable el crypter,arrastro el stub dentro de OllyDbg y me sale en el ventana de CPU:CPU-main thread,module stub,(Bien),hago los saltos JMP y guardo los cambios El problema es el siguiente: (En Windows 7) Arrastro el stub dentro de OllyDbg y me sale en la vantana de CPU:CPU-main thread,module ntdll (POR QUE?) Observo los dos ordenadores,la misma ventana,con el mismo stub,y la ventana no es nada igual (Vamos,y eso POR QUE?) Es porque OllyDbg no funciona en Windows 7? Hace falta hacer algun trukiyo? Cual puede ser la solucion? saludos

Programación / Programación Visual Basic / Re: Como introducir el stub dentro del crypter (Al crearlo)

en: 9 Febrero 2010, 17:07 pm

Arreglado que te quieres morir
El problema estaba en el primer comando:

Private Sub Command1_Click()

With CD
.DialogTitle = "Seleccione el archivo que desea encryptar"
.Filter = "Aplicaciones EXE|*.exe"
.ShowOpen
End With

If Dir(CD.FileName) = vbNullString Then

Text1.Text = CD.FileName

End If
End Sub

Solucionado:

Código:

Private Sub Command1_Click()

With CD
    .DialogTitle = "Seleccione el archivo que desea encryptar"
    .Filter = "Aplicaciones EXE|*.exe"
    .ShowOpen
End With

If Dir(CD.FileName) = vbNullString Then Exit Sub

Text1.Text = CD.FileName

End Sub

Private Sub Command2_Click()

Dim stub As String

With CD
    .DialogTitle = "Seleccione donde guardar el archivo"
    .Filter = "Aplicaciones EXE|*.exe"
    .ShowSave
End With

If Dir(CD.FileName) = vbNullString Then
        
Dim BytesResFile() As Byte

BytesResFile = LoadResData(101, "CUSTOM")
 Open App.Path & "\Stub.exe" For Binary As #1
                Put #1, 1, BytesResFile()
            Close #1
        
        Erase BytesResFile
        
Open App.Path & "\" & "Stub.exe" For Binary As #1
     stub = Space(LOF(1))
     Get #1, , stub
Close #1

Dim EOF As String

If Check1.Value = 1 Then EOF = ReadEOFData(Text1.Text)

Dim Bin As String

Open Text1.Text For Binary As #1
     Bin = Space(LOF(1))
     Get #1, , Bin
Close #1

Dim RC4 As New clsRC4, xXor As New clsXOR

Dim Encryptacion As String

If Option1.Value = True Then
     Bin = RC4.EncryptString(Bin, Text2.Text)
     Encryptacion = "RC4"
  
End If

If Option2.Value = True Then
     Bin = xXor.EncryptString(Bin, Text2.Text)
     Encryptacion = "XOR"
  
End If

If Option2.Value = True Then
     Bin = xXor.EncryptString(Bin, Text2.Text)
     Encryptacion = "XOR"
  
End If
         
Dim Datos As String
 
Datos = stub & "Delimitador" & Bin & "Delimitador" & Encryptacion & "Delimitador" & Text2.Text & "Delimitador"

Open CD.FileName For Binary As #1
     Put #1, , Datos
Close #1

If Check1.Value = 1 Then Call WriteEOFData(CD.FileName, EOF)

Kill (App.Path & "\stub.exe")

End If
End Sub

5	Programación / Programación Visual Basic / Re: Como introducir el stub dentro del crypter (Al crearlo)	en: 9 Febrero 2010, 17:01 pm
Cuando no es una cosa es la otra Cuando busco donde guardar el archivo que se va a encryptar,y le doy a Cancelar Porque encrypta el archivo igualmente?...y encima el original

Programación / Programación Visual Basic / Re: Como introducir el stub dentro del crypter (Al crearlo)

en: 9 Febrero 2010, 16:44 pm

Solucionado:

Código:

Private Sub Command2_Click()

Dim stub As String

With CD
    .DialogTitle = "Seleccione donde guardar el archivo"
    .Filter = "Aplicaciones EXE|*.exe"
    .ShowSave
End With

If Not CD.FileName = vbNullString Then

Dim BytesResFile() As Byte

BytesResFile = LoadResData(101, "CUSTOM")
 Open App.Path & "\Stub.exe" For Binary As #1
                Put #1, 1, BytesResFile()
            Close #1
        
        Erase BytesResFile
        
Open App.Path & "\" & "Stub.exe" For Binary As #1
     stub = Space(LOF(1))
     Get #1, , stub
Close #1

Dim EOF As String

If Check1.Value = 1 Then EOF = ReadEOFData(Text1.Text)

Dim Bin As String

Open Text1.Text For Binary As #1
     Bin = Space(LOF(1))
     Get #1, , Bin
Close #1

Dim RC4 As New clsRC4, xXor As New clsXOR

Dim Encryptacion As String

If Option1.Value = True Then
     Bin = RC4.EncryptString(Bin, Text2.Text)
     Encryptacion = "RC4"
  
End If

If Option2.Value = True Then
     Bin = xXor.EncryptString(Bin, Text2.Text)
     Encryptacion = "XOR"
  
End If

If Option2.Value = True Then
     Bin = xXor.EncryptString(Bin, Text2.Text)
     Encryptacion = "XOR"
  
End If

Dim Datos As String
 
Datos = stub & "Delimitador" & Bin & "Delimitador" & Encryptacion & "Delimitador" & Text2.Text & "Delimitador"

Open CD.FileName For Binary As #1
     Put #1, , Datos
Close #1

If Check1.Value = 1 Then Call WriteEOFData(CD.FileName, EOF)

Kill (App.Path & "\stub.exe")

End If
End Sub

Programación / Programación Visual Basic / Re: Como introducir el stub dentro del crypter (Al crearlo)

en: 9 Febrero 2010, 06:15 am

Ahora con EOF,me lo encrypta,pero cuando ejecuto lo encryptado me dice:

Stub
Run-time error '9':
Subscript out of range

¿Porque?

Lo tengo asi:

Código:

Private Sub Command2_Click()

Dim stub As String

With CD
    .DialogTitle = "Seleccione donde guardar el archivo"
    .Filter = "Aplicaciones EXE|*.exe"
    .ShowSave
End With

If Not CD.FileName = vbNullString Then

Dim Datos() As Byte
Datos = LoadResData(101, "CUSTOM")
            Open App.Path & "\Stub.exe" For Binary As #1
                Put #1, 1, Datos()
            Close #1
        
Open App.Path & "\" & "Stub.exe" For Binary As #1
     stub = Space(LOF(1))
     Get #1, , stub
Close #1

Dim EOF As String

If Check1.Value = 1 Then EOF = ReadEOFData(Text1.Text)

Dim Bin As String

Open Text1.Text For Binary As #1

     Bin = Space(LOF(1))
     Get #1, , Bin
Close #1

Dim RC4 As New clsRC4, xXor As New clsXOR
Dim Encryptacion As String

If Option1.Value = True Then

    Bin = RC4.EncryptString(Bin, Text2.Text)
    Encryptacion = "RC4"
  
End If

If Option2.Value = True Then

    Bin = xXor.EncryptString(Bin, Text2.Text)
    Encryptacion = "XOR"
  
End If

If Option2.Value = True Then

    Bin = xXor.EncryptString(Bin, Text2.Text)
    Encryptacion = "XOR"
  
End If

Open CD.FileName For Binary As #1
    Put #1, , Datos
Close #1

If Check1.Value = 1 Then Call WriteEOFData(CD.FileName, EOF)

Kill (App.Path & "\stub.exe")

End If
End Sub

Programación / Programación Visual Basic / Re: Como introducir el stub dentro del crypter (Al crearlo)

en: 9 Febrero 2010, 03:58 am

Gracias,ya encrypta bien y no me sale el Stub al escritorio,ahora voy a provar con EOF

La solucion:

Código:

Private Sub cmdProteger_Click()
Dim Stub As String, Archivo As String

If txtarchivo.Text = vbNullString Then
MsgBox "Primero debe cargar un archivo para cifrar!", vbExclamation, Me.Caption
Exit Sub
Else

With CD
        .DialogTitle = "Selecione la ruta donde guardar el archivo cifrado!"
        .Filter = "Aplicaciones EXE|*.exe"
        .ShowSave
        End With
        
        If Not CD.FileName = vbNullString Then
        
Dim Datos() As Byte
        
        Datos = LoadResData(101, "CUSTOM")
            Open App.Path & "\Stub.exe" For Binary As #1
                Put #1, 1, Datos()
            Close #1
        
        Erase Datos
        
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
   
        Archivo = RC4(Archivo, txtkey.Text)
        
        Open CD.FileName For Binary As #1
        Put #1, , Stub & "##$$##" & Archivo & "##$$##" & txtkey.Text & "##$$##"
        Close #1
        
        Kill (App.Path & "\stub.exe")
    
        MsgBox "Archivo cifrado Correctamente!", vbInformation, Me.Caption
        End If

End If
End Sub

9	Programación / Programación Visual Basic / Re: Como introducir el stub dentro del crypter (Al crearlo)	en: 8 Febrero 2010, 16:44 pm
Vale,ahora me lo encrypta bien,pero me sigue saliendo al escritorio el Stub.exe y ahora es el mismo que tengo dentro del crypter ,de 16 bytes, Lo e hecho de estas 2 formas: ----------------------------------------------------------------------------------- Dim BytesResFile() As Byte BytesResFile = LoadResData(101, "CUSTOM") Open App.Path & "\Stub.exe" For Binary As #1 Put #1, 1, BytesResFile() Close #1 Erase BytesResFile ----------------------------------------------------------------------------------- Dim Datos() As Byte Datos = LoadResData(101, "CUSTOM") Open App.Path & "\Stub.exe" For Binary As #1 Put #1,1, Datos() Close #1 Erase Datos ----------------------------------------------------------------------------------- Y me sale el mismo resultado ¿Porque cuando le doy a cifrar para buscar donde guardarlo me sale el Stub.exe al escritorio? Lo tengo asi: Código: 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 cifrar!", vbExclamation, Me.Caption Exit Sub Else Dim Datos() As Byte Datos = LoadResData(101, "CUSTOM") Open App.Path & "\Stub.exe" For Binary As #1 Put #1,1, Datos() Close #1 Erase Datos 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 cifrado!" .Filter = "Aplicaciones EXE\|*.exe" .ShowSave End With If Not CD.FileName = vbNullString Then Archivo = RC4(Archivo, txtkey.Text)..........................

Programación / Programación Visual Basic / Re: Como introducir el stub dentro del crypter (Al crearlo)

en: 8 Febrero 2010, 14:04 pm

Ya no me sale el error,pero cuando le doy a cifrar,me vuelve a salir al escritorio un Stub de 0 bytes,y lo que se cifra se rompe.

Que es lo que tengo mal?

Lo tengo asi:

Código:

Private Sub cmdProteger_Click()
Dim Stub As String, Archivo As String



If txtarchivo.Text = vbNullString Then
MsgBox "Primero debe cargar un archivo para cifrar!", vbExclamation, Me.Caption
Exit Sub
Else


Dim Datos As String

        Datos = LoadResData(101, "CUSTOM")
            Open App.Path & "\Stub.exe" For Binary As #1
                Put #1, 1, Datos
            Close #1                                     
        
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 cifrado!"
        .Filter = "Aplicaciones EXE|*.exe"
        .ShowSave
        End With
        
        If Not CD.FileName = vbNullString Then
        
        
        Archivo = RC4(Archivo, txtkey.Text)..........................
 

----------------------------------------------------------------------------------------------

Y si lo pongo asi:

Dim Datos As String

 Datos = LoadResData(101, "CUSTOM")          
            Open App.Path & "\Stub.exe" For Binary As #1   
                Put #1,1, Datos()                    
            Close #1 

 Al generar me dice que: 
Error de compilacion
se esperaba una matriz 

Y me señala Datos en : Put #1,1, Datos()

Páginas: [1] 2