• Home
 · 
• String Manipulation
 · 
• Encrytpion and Decryption

Encrytpion and Decryption

by Rhian Aseniero (8 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 4^th February 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Encrytpion and Decryption

API Declarations


Dim ctr1, ctr2 As Integer
Dim acc1(10), acc2(10) As Integer
Dim enc_key, res(10), new_str As String

new_str = ""
For ctr2 = 1 To Len(pass)
acc2(ctr2) = Asc(Mid(pass, ctr2, 1))

Next ctr2

enc_key = "drugAddict"

For ctr1 = 1 To Len(enc_key)
acc1(ctr1) = Asc(Mid(enc_key, ctr1, 1))

Next ctr1

If flag = True Then
For ctr2 = 1 To 10
res(ctr2) = Chr(acc2(ctr2) + acc1(ctr2))
new_str = new_str & res(ctr2)
Next ctr2
Else
For ctr2 = 1 To 10
res(ctr2) = Chr(acc2(ctr2) - acc1(ctr2))
new_str = new_str & res(ctr2)
Next ctr2
End If
Encrypt_Password = new_str
End Function



Download this snippet    Add to My Saved Code

Encrytpion and Decryption Comments

No comments have been posted about Encrytpion and Decryption. Why not be the first to post a comment about Encrytpion and Decryption.

Post your comment