CRIPTOGRAFIA

Function EncryptINI$(Strg$, Password$)
   Dim b$, S$, i As Integer, j As Integer
   Dim A1 As Integer, A2 As Integer, A3 As Integer, P$
   j = 1
   For i = 1 To Len(Password$)
     P$ = P$ & Asc(Mid$(Password$, i, 1))
   Next
    
   For i = 1 To Len(Strg$)
     A1 = Asc(Mid$(P$, j, 1))
     j = j + 1: If j > Len(P$) Then j = 1
     A2 = Asc(Mid$(Strg$, i, 1))
     A3 = A1 Xor A2
     b$ = Hex$(A3)
     If Len(b$) < 2 Then b$ = "0" + b$
     S$ = S$ + b$
   Next
   EncryptINI$ = S$
End Function

[c]Function DecryptINI$(Strg$, Password$)
   Dim b$, S$, i As Integer, j As Integer
   Dim A1 As Integer, A2 As Integer, A3 As Integer, P$
   j = 1
   For i = 1 To Len(Password$)
     P$ = P$ & Asc(Mid$(Password$, i, 1))
   Next
   
   For i = 1 To Len(Strg$) Step 2
     A1 = Asc(Mid$(P$, j, 1))
     j = j + 1: If j > Len(P$) Then j = 1
     b$ = Mid$(Strg$, i, 2)
     A3 = Val("&H" + b$)
     A2 = A1 Xor A3
     S$ = S$ + Chr$(A2)
   Next
   DecryptINI$ = S$
End Function

Private Sub Command1_Click()
    Text2.Text = EncryptINI$(txtTexto.Text, "1")
    Text3.Text = DecryptINI$(Text2.Text, "1")
End Sub