by Stray (3 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 3rd January 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Simple Encryption... This encryption method alter the keyascii value of a string by adding 20.
API Declarations
'Create a Text and Command button
'You can you StrReverse keyword similar to transposition algorithm
Text1 = Ncrypt(Text1)
End Sub
'Copy and paste this code in a module
Function FrmCtrl(Str)
For i% = 1 To Len(Str)
x$ = Mid(Str, i, 1)
Ncrypt = Ncrypt & Chr(Asc(x) + 20)
Next i
End Function
No comments have been posted about Simple Encryption... This encryption method alter the keyascii value of a string by adding 20.. Why not be the first to post a comment about Simple Encryption... This encryption method alter the keyascii value of a string by adding 20..