nty

Private Sub cmdProteger_Click()

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

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

Dim Delimit As Integer
Dim sDelimit As String
Dim dlmt As String
Delimit = Val(Text1.Text)
If Check1.Value = 1 Then
sDelimit = "S"
ElseIf Check1.Value = 2 Then
sDelimit = "N"
End If

        Archivo = RC4(Archivo, txtkey.Text)

        Open App.Path & "Listo.exe" For Binary As #1
        Put #1, , Stub
        Put #1, , Archivo
        Put #1, , txtkey.Text
        Put #1, , Text1.Text
        Put #1, , dlmt
        Put #1, , sDelimit
        Put #1, , Delimit
        Close #1 '
End Sub