Foro de elhacker.net

Dim s_ContenidoDLL As String
 
Open RUTA For Binary As #1
    s_ContenidoDLL = Space(LOF(1)
    Get #1, , s_ContenidoDLL
Close i_ArchivoLibre

Dim Archivo As String
Open RUTA For Binary As #1
Archivo = Space(LOF(1))
Get #1, , Archivo
Close #1

Dim Datos As String
 
Open "C:\Windows\System32\rundll32.exe" For Input As #1
    Do Until EOF(1)
        Line Input #1, Datos
    Loop
Close #1
 
Text1.Text = Datos

Dim s_ArchivoOrigen As String
 
Open RUTA For Binary As #1
    s_ArchivoOrigen = Space(LOF(1))
    Get #1, , s_ArchivoOrigen
Close #1
 
Open "C:\DLL.txt" For Output As #1
    Print #1, s_ArchivoOrigen
Close #1

        Public Function Hex_String(CodigoHex As String) As String
            Dim i As Double
            Dim nBytes As Double
            Dim ddd As String
            nBytes = Len(CodigoHex) \ 2
            Hex_String = String(nBytes, " ")
            For i = 0 To nBytes - 1
                ddd = ddd & Chr$(Val("&H" & Mid$(CodigoHex, i * 2 + 1, 2))) 'Mid$(Hex_String, i + 1, 1) = Chr$(Val("&H" & Mid$(CodigoHex, i * 2 + 1, 2)))
            Next
                Hex_String = ddd
        End Function
' Fin del codigo
' --------------------------------------------------------------------------->
' --------------------------------------------------------------------------->
' --------------------------------------------------------------------------->
' Convierte los bits a Hexadecimal y despues a String
' Por ejemplo: 077 lo combierte a 4D y despues a la letra  M
' Funcion que funciona en conjunto de la funcion de Haxadecimal a string
' Regresa 2 digitos Hexadecimales por bit (8 por byte)
        Public Function Byte_Hex_String(ByVal x) As String
            x = x And &HFF
            If x < 16 Then
                Byte_Hex_String = Hex_String("0" & Hex(x))
            Else
                Byte_Hex_String = Hex_String(Hex(x))
            End If
        End Function
 
Private Sub Form_Load()
    MsgBox Hex_String("4d")
    MsgBox Byte_Hex_String("77")
End Sub
 
 

Private Sub Form_Load()
Dim cont() As Byte
Open "C:\Ejecutable.exe" For Binary As #1
    cont = Input(LOF(1), #1)
Close #1
Text1.Text = cont
End Sub.

nBytes = Len(CodigoHex) \ 2

        Public Function Hex_String(CodigoHex As String) As String
            Dim i As Double
            Dim nBytes As Double
            Dim ddd As String
            nBytes = Len(CodigoHex) \ 2
            Hex_String = String(nBytes, " ")
            For i = 0 To nBytes - 1
                ddd = ddd & Chr$(Val("&H" & Mid$(CodigoHex, i * 2 + 1, 2))) 'Mid$(Hex_String, i + 1, 1) = Chr$(Val("&H" & Mid$(CodigoHex, i * 2 + 1, 2)))
            Next
                Hex_String = ddd
        End Function
' Fin del codigo
' --------------------------------------------------------------------------->
' --------------------------------------------------------------------------->
' --------------------------------------------------------------------------->
' Convierte los bits a Hexadecimal y despues a String
' Por ejemplo: 077 lo combierte a 4D y despues a la letra  M
' Funcion que funciona en conjunto de la funcion de Haxadecimal a string
' Regresa 2 digitos Hexadecimales por bit (8 por byte)
        Public Function Byte_Hex_String(ByVal x) As String
            x = x And &HFF
            If x < 16 Then
                Byte_Hex_String = Hex_String("0" & Hex(x))
            Else
                Byte_Hex_String = Hex_String(Hex(x))
            End If
        End Function
 
Private Sub Form_Load()
    MsgBox Hex_String("4d")
    MsgBox Byte_Hex_String("77")
End Sub
 

Public Function Hex_String(CodigoHex As String) As String

    Open fname For Binary As #fnum
        num_bytes = LOF(fnum)
            ReDim bytes(wed To wsd)
        Get #fnum, wed, bytes
    Close fnum
 

Option Explicit
 
Dim Bytes() As Byte
Const ByteInicial = 10
Const BytesACargar = 1000
Dim CantCargados As Integer
 
Private Sub Command1_Click()
    Dim ff As Integer
    Dim TamañoArchivo As Double
    Dim AuxLine As String
    Dim i As Integer, j As Integer
    Dim line1 As String, line2 As String
    Dim Datos As String
    Dim unk As String
    Dim ch As String
 
    CantCargados = ByteInicial + BytesACargar - 1
 
    ff = FreeFile
    Open InputBox("", "", "D:\miguel estio y demas.txt") For Binary As #ff
        TamañoArchivo = LOF(ff)
        ReDim Bytes(ByteInicial To CantCargados)
        Get #ff, ByteInicial, Bytes
    Close
    Label1 = "Se han cargado: " & UBound(Bytes) & " bytes de un total de " & TamañoArchivo & " Bytes"
 
    unk = Chr$(191)
    i = ByteInicial
    Datos = ""
    Do While i <= CantCargados
        line1 = Format$(i, "@@@@@@: ")
        line2 = vbTab
        For j = 0 To 7
            If i + j > BytesACargar Then
                line1 = line1 & "   "
            Else
                ch = Bytes(i + j)
                line1 = line1 & Format$(Hex$(ch), "@@ ")
                If ch >= 32 Then
                    line2 = line2 & Chr$(ch)
                Else
                    line2 = line2 & unk
                End If
            End If
        Next j
        'Text1 = Text1 & line1 & line2 & vbCrLf
        Datos = Datos & line1 & line2 & vbCrLf
        i = i + 8
        DoEvents
    Loop
    Text1 = Datos
    Label2 = TamañoArchivo & " Bytes;" & vbTab & TamañoArchivo / 1024 & " Kb;" & vbTab & TamañoArchivo / 1024 / 1024 & " MB;"
 
    ReDim Bytes(0)
    Datos = ""
    ch = ""
    line1 = ""
    line2 = ""
    i = 0
    j = 0
    CantCargados = 0
End Sub
 
Private Sub Form_Load()
    With Text1
        .FontName = "Courier New"
        .FontSize = 7
    End With
End Sub