Private Function GuardarVariables(NombreArchivo As String)
    Dim foo                 As Integer         'Número archivo
    Dim Texto1(99)          As String          'Reservamos 100 espacios para el Text1
    Dim Texto2(99)          As String          'Reservamos 100 espacios para el Text2
    Dim Texto3(99)          As String          'Reservamos 100 espacios para el Text3.
    Dim PosicionActual      As Long            'Variable que utilizaremos para saber cuál es la posición actual.
    Dim i                   As Integer
    
    foo = FreeFile                             'Proporciona un número de archivo libre.
    
    For i = 0 To Len(Text1)
        Texto1(i) = Mid$(Text1.Text, i + 1, 1)
    Next i
    
    For i = 0 To Len(Text2)
        Texto2(i) = Mid$(Text2.Text, i + 1, 1)
    Next i
    
    For i = 0 To Len(Text3)
        Texto3(i) = Mid$(Text3.Text, i + 1, 1)
    Next i
    
    Open NombreArchivo For Binary As #foo                   'Abre el archivo <NombreArchivo> para acceder en modo binario.
        PosicionActual = LOF(foo)                           'Obtiene el tamaño del archivo en bytes para obtener el primer byte vacío.
        
        For i = 0 To 99                                     '|
            PosicionActual = PosicionActual + 1             '| Posicion actual, cuando i = 0, obtiene el primer valor libre
            If Texto1(i) = "" Then                          '| Si la varible texto1 está vacía
                Put #foo, PosicionActual, 0                 '| Guarda en el archivo un valor 0
            Else                                            '|
                Put #foo, PosicionActual, Asc(Texto1(i))    '| Si no está vacía la variable guarda en valor ascii la letra del texto correspondiente.
            End If
        Next i
        
        'Se repite para la matriz Texto2
        For i = 0 To 99
            PosicionActual = PosicionActual + 1
            If Texto2(i) = "" Then
                Put #foo, PosicionActual, 0
            Else
                Put #foo, PosicionActual, Asc(Texto2(i))
            End If
        Next i
        
        'Se repite para la matriz Texto3
        For i = 0 To 99
            PosicionActual = PosicionActual + 1
            If Texto3(i) = "" Then
                Put #foo, PosicionActual, 0
            Else
                Put #foo, PosicionActual, Asc(Texto3(i))
            End If
            If i = 99 Then
                Stop
            End If
        Next i
    Close #foo
End Function

Private Function CargarVariables(NombreArchivo As String)
    Dim foo                 As Integer
    Dim Obteniendo          As Byte
    Dim Texto               As String
    Dim TamañoArchivo       As Long
    Dim PosicionActual      As Long
    Dim i                   As Integer
    
    foo = FreeFile
    
    Open NombreArchivo For Binary As #foo
        TamañoArchivo = LOF(foo)
        PosicionActual = TamañoArchivo - 300               'Se le resta 300 al tamaño del archivo por ser el resultado de la suma de los espacios reservados anteriormente
        
        For i = 0 To 99
            Get #foo, PosicionActual, Obteniendo
            If Obteniendo <> 0 Then
                Texto = Texto & Chr$(Obteniendo)
                PosicionActual = PosicionActual + 1
            Else
                PosicionActual = PosicionActual + (100 - Len(Texto))
                Exit For
            End If
        Next i
        
        Text1.Text = Texto
        Texto = ""
        
        For i = 0 To 99
            Get #foo, PosicionActual, Obteniendo
            If Obteniendo <> 0 Then
                Texto = Texto & Chr$(Obteniendo)
                PosicionActual = PosicionActual + 1
            Else
                PosicionActual = PosicionActual + (100 - Len(Texto))
                Exit For
            End If
        Next i
        
        Text2.Text = Texto
        Texto = ""
        
        For i = 0 To 99
            Get #foo, PosicionActual, Obteniendo
            If Obteniendo <> 0 Then
                Texto = Texto & Chr$(Obteniendo)
                PosicionActual = PosicionActual + 1
            Else
                Exit For
            End If
        Next i
        
        Text3.Text = Texto
    Close #foo
End Function

Private Sub Command1_Click()
    GuardarVariables "archivo.exe"
End Sub

Private Sub Command2_Click()
    CargarVariables "archivo.exe"
End Sub

Private Sub Command1_Click()
Dim Num As String
Dim Cuenta As Byte
Dim Abecedario as String

Abecedario = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Text1 = ""
Math.Randomize

Do While Not Cuenta = 26
    Num = Int(Rnd * 26)
    Cuenta = Cuenta + 1
    Num = Mid$(Abecedario, Num + 1, 1)        ' La posición empieza por el valor 1, y no 0, por tanto, como el RND genera valores de 0 a 26, se le suma 1.
    Text1 = Text1 & Num
Loop
End Sub

Private Sub Command1_Click()
    text1.text = winsock1.localip
End Sub

Private Sub Command1_Click()
    text1.text = "http://" & winsock1.localip
End Sub

obtenercontraseña = DesencriptarContraseña(Contaseña)

Text2.Text = DesencriptarContraseña(Text1.Text)

'****************************************************************
'*   modDecryptFZilla.bas                                       *
'*   descifra las contraseñas que se almacenan en:           *
'*      HKEY_CURRENT_USER\Software\FileZilla\Recent Servers\    *
'*   por el cliente FileZilla.                                  *
'*                                                              *
'*   La función digit2char convierte de 3 en 3 de ascii a char. *
'*   La función decrypt realiza los cálculos para descifrar  *
'*   cadena obtenida con digit2char.                            *
'*                                                              *
'*   Port de C a Visual Basic por xavierote (Javier Ferre)      *
'*   Código original por: Unknown Author                        *
'****************************************************************

Option Explicit

Dim password            As String

Private Function digit2char(buff As String) As Integer
    Dim ascii_buff          As String
    Dim i                   As Integer
    Dim j                   As Integer
    Dim longitud            As Integer
    Dim tmp_buffer          As Integer
    
    longitud = Len(buff) / 3                'longitud del password
    
    For i = 0 To Len(buff) - 1 Step 3
        tmp_buffer = Mid$(buff, i + 1, 3)   'obtiene los digitos de 3 en 3 para convertir a Char
        
        If tmp_buffer > 255 Then            'Si un valor es mayor de 255, da error
            MsgBox "La contraseña introducida no es correcta debido a que el valor obtenido, cada 3 digitos, es mayor de 255." & vbCrLf & "Valor obtenido: " & tmp_buffer, vbCritical, "Error"
            Exit Function
        End If
        ascii_buff = ascii_buff & Chr$(tmp_buffer)
    Next i
    
    password = ascii_buff
    digit2char = longitud
End Function

Private Function decrypt(buff As String) As Integer
    Dim i                   As Integer
    Dim pos                 As Integer
    Dim longitud            As Integer
    Dim buffer_final        As String
    Dim convirtiendo        As Integer
    Dim operando            As Integer
    Dim resultado           As Integer
    Dim m_key               As String
    
    m_key = "FILEZILLA1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    
    If (Len(buff) Mod 3) = 0 Then        'Si es múltiplo de 3, descifra
        longitud = digit2char(buff)      'A parte de convertir los números en cadena de texto, obtiene la longitud de la cadena resultante
        pos = longitud Mod Len(m_key)    'Obtiene la posición inicial para el m_key
        
        For i = 0 To longitud - 1        'Como empieza desde el 0, la longitud será uno menos
            convirtiendo = Asc(Mid$(password, i + 1, 1))      'Convierte el carácter actual en valor ascii para hacer los cálculos
            operando = Asc(Mid$(m_key, (i + 1 + pos) Mod Len(m_key), 1))     'Cálculos para la decodificación
            resultado = Int(convirtiendo Xor operando)        'Xor de las 2 variables anteriores.
            
            buffer_final = buffer_final & Chr$(resultado)     'Hallando todos los carácteres
        Next i
        
        password = buffer_final
        decrypt = longitud
        
    Else       'Si no es múltiplo de 3
        MsgBox "El password introducido no es correcto, debe ser múltiplo de 3", vbCritical, "Error"
        password = ""
    End If
End Function

Public Function DesencriptarContraseña(Pass As String) As String
decrypt Pass          'Llama a la función decrypt introduciendo el valor de la cadena Pass
DoEvents              'Espera a que se realicen los cálculos
DesencriptarContraseña = password    'Devuelve la contraseña descifrada
End Function