Foro de elhacker.net

Function cifrar(ByVal S As String, ByVal P As String) As String
   Dim I As Integer, R As String
   Dim C1 As Integer, C2, c3 As Integer
   R = ""
   If Len(P) > 0 Then
       For I = 1 To Len(S)
           C1 = Asc(Mid(S, I, 1))
           If I > Len(P) Then
               C2 = Asc(Mid(P, I Mod Len(P) + 1, 1))
           Else
               C2 = Asc(Mid(P, I, 1))
           End If
               C1 = C1 + C2 + 73
           If C1 > 255 Then C1 = C1 - 239
               R = R + Chr(C1)
       Next I
   Else
       R = S
   End If
   cifrar = R

Private Sub E2C()
On Error GoTo fallo
Text1.Text = f
-------> Text2.Text = cifrar(Text1.Text, "XsG5") <------- desde aqui  
f = Text1.Text
Open "C:\xxxxxxx.txt" For Output As #135
Write #135, f
....

Private Sub Command1_Click()
   Text2.Text = cifrar(Text1.Text, "Xs9bE2P7#G5") ' mombre...
End Sub

Write #135, f

Text2.Text = cifrar(Text1.Text, "XsG5")

""

Private Sub E1C()
On Error GoTo fallo
Open "C:\xxxxx.txt" For Input As #211
Do
Input #211, f
Loop Until EOF(201) = True
Close #211
Close
Call E2C
e:
Exit Sub
fallo:
Close #211
Resume e
End Sub

Private Sub E2C()
On Error GoTo fallo
Text1.Text = f
Text2.Text = cifrar(Text1.Text, "Xs9bE2P7#G5")
f = Text2.Text
Open "C:\xxxxx.txt" For Output As #135
Write #135, f
...

Private Sub E2C()
On Error GoTo fallo
f = Text1.Text
Text2.Text = cifrar(Text1.Text, "Xs9bE2P7#G5")
f = Text2.Text
Open "C:\xxxxx.txt" For Output As #135
Write #135, f
...

Private Sub E1C()
On Error GoTo fallo
Open "C:\xxxxx.txt" For Input As #211
Do
Input #211, f
Loop Until EOF(201) = True
Close #211
Close
Call E2C
e:
Exit Sub
fallo:
Close #211
Resume e
End Sub