0

Hi,

Who can anyone give me the simplest method for encryption and decryption for text file? I saw a lot of methods in other website. So, I choose the simplest one, but it gives me some errors when I do it. This is the reference link.
http://www.vb6.us/tutorials/basic-encryption-xor-tutorial

Dim strResult As String
Dim strChar1 As String * 1

Private Sub Command1_Click()
    Dim Str_Lenght As Integer
    Dim Ori_text As String, Deci As String, Deci2 As String
    
    Ori_text = Text1.Text
    Str_Lenght = Len(Ori_text)
    
    strResult = ""
    
    If (Str_Lenght <> 0) Then
        For i = 1 To Str_Lenght
            Deci = Deci & Asc(Mid(Ori_text, i, 1)) & ", "
            strResult = strResult & Chr(Asc(Mid(Ori_text, i, 1)) Xor Asc(strChar1))
            Deci2 = Deci2 & Asc(Chr(Asc(Mid(Ori_text, i, 1)) Xor Asc(strChar1))) & ", "
        Next i
    Else
        strResult = "No data!"
    End If
    
    Text2.Text = strResult
    Label5.Caption = Deci
    Label7.Caption = Deci2
End Sub

Private Sub Command2_Click()
    Dim Str_Lenght As Integer
    Dim Ori_text As String, Deci As String, Deci2 As String
    
    Ori_text = Trim(Text2.Text)
    Str_Lenght = Len(Ori_text)
    
    strResult = ""
    
    If (Str_Lenght <> 0) Then
        For i = 1 To Str_Lenght
            Deci2 = Deci2 & Asc(Mid(Ori_text, i, 1)) & ", "
            strResult = strResult & Chr(Asc(Mid(Ori_text, i, 1)) Xor Asc(strChar1))
            Deci = Deci & Asc(Chr(Asc(Mid(Ori_text, i, 1)) Xor Asc(strChar1))) & ", "
        Next i
    Else
        strResult = "No data!"
    End If
    
    Text3.Text = strResult
    Label4.Caption = Deci
    Label6.Caption = Deci2
End Sub

Private Sub Form_Load()
    strChar1 = "z"
    Command1.Caption = "Encryption"
    Command2.Caption = "Decryption"
End Sub

If you see the attached file, all of you will see the error.

Pls give me som suggestion.

Regards,
zawpai

Attachments Complie_result.JPG 24.34 KB
2
Contributors
1
Reply
7
Views
6 Years
Discussion Span
Last Post by abu taher
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.