• Home
 · 
• Encryption
 · 
• Encrypt Your Codes Into 8 Base Method. It's Simple Work 100%

Encrypt Your Codes Into 8 Base Method. It's Simple Work 100%

Encrypt Your Codes Into 8 Base Method. It's Simple Work 100%

API Declarations



Rem --- Developed By Buddhika Fernando
Rem --- Programmer Vanik Information Technologies [ Sri Lanka ]
Rem --- For Your Comments [email protected]

Dim User_Text As String
Dim User_Text_Len As Double

Dim I_For As Double
Dim Char_Val As String

Dim Encrypt_Char As String
Dim Decrypt_Char As String



Rate Encrypt Your Codes Into 8 Base Method. It's Simple Work 100%

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Text1.Text = ""
    CmdEncrypt.Enabled = True
    CmdDecrypt.Enabled = False
    Text1.SetFocus
    
End Sub

Private Sub CmdDecrypt_Click()
    
    Dim I_Oct                       As Double
    Dim Len_Char_Val                As Integer
    Dim Oct_Val                     As Integer
    Dim B_Oct                       As Integer
    Dim Temp                        As Byte
    
    User_Text = "": User_Text = StrReverse(Text1.Text)
    Decrypt_Char = ""
    If User_Text = "" Then Exit Sub
    User_Text_Len = Len(User_Text)
    
    For I_For = 1 To User_Text_Len
        Char_Val = Asc(Mid(User_Text, I_For, 1))
        '----------------------------------------------------
            If Char_Val <= 245 Then Char_Val = Char_Val - 10
            Len_Char_Val = Len(Char_Val)
        '----------------------------------------------------
        Oct_Val = 0
        For I_Oct = 0 To Len_Char_Val - 1
            B_Oct = 8 ^ I_Oct
            If I_Oct = 0 Then Temp = B_Oct Else Temp = I_Oct + 1
            Oct_Val = CInt(Oct_Val) + CInt((B_Oct) * (Mid(StrReverse(Char_Val), Temp, 1)))
        Next I_Oct
        Decrypt_Char = Decrypt_Char & Chr(Oct_Val)
    Next I_For
    
    Text1.Text = Decrypt_Char
    CmdEncrypt.Enabled = True
    CmdDecrypt.Enabled = False
    
End Sub

Private Sub CmdEncrypt_Click()
    
    Dim Check_Val                   As Byte
    
    Check_Val = 0
    User_Text = "": User_Text = Text1.Text
    Encrypt_Char = ""
    If User_Text = "" Then Exit Sub
    User_Text_Len = Len(User_Text)
    
    For I_For = 1 To User_Text_Len
        Char_Val = Asc(Mid(User_Text, I_For, 1))
        '--------------------------------------------
            Check_Val = 0: Check_Val = Oct(Char_Val)
        '--------------------------------------------
        If Check_Val >= 245 Then
            Encrypt_Char = Encrypt_Char & Chr(Check_Val)
        Else
            Check_Val = Check_Val + 10
            Encrypt_Char = Encrypt_Char & Chr(Check_Val)
        End If
    Next I_For
    
    Text1.Text = StrReverse(Encrypt_Char)
    CmdEncrypt.Enabled = False
    CmdDecrypt.Enabled = True
    
End Sub

Private Sub Form_Load()
    
    CmdEncrypt.Enabled = True
    CmdDecrypt.Enabled = False
    
End Sub