G Encrypt
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View G Encrypt as PDF for free.
More details
- Words: 156
- Pages: 1
Function G_Encrypt(ByVal InString) stop Dim i Dim OutString ' encrypt string by xoring each char by a character that is position dependant OutString = "" If InString <> "" Then For i = 1 To Len(InString) If (Asc(Mid(InString, i, 1)) = 13) Or (Asc(Mid(InString, i, 1)) = 10) Or (Asc(Mid(InString, i, 1)) > 122) Or (Asc(Mid(InString, i, 1)) < 32) Then OutString = OutString + Chr(Asc("_") Xor G_Crypt_Nibble) G_Crypt_Nibble = (G_Crypt_Nibble + 3) And 15 ElseIf (Asc(Mid(InString, i, 1)) = 32) Then If i 32) Then OutString = OutString + Chr(Asc(Mid(InString, i, 1)) Xor G_Crypt_Nibble) G_Crypt_Nibble = (G_Crypt_Nibble + 3) And 15 End If Else OutString = OutString + Chr(Asc(Mid(InString, i, 1)) Xor G_Crypt_Nibble) G_Crypt_Nibble = (G_Crypt_Nibble + 3) And 15 End If Else OutString = OutString + Chr(Asc(Mid(InString, i, 1)) Xor G_Crypt_Nibble) G_Crypt_Nibble = (G_Crypt_Nibble + 3) And 15 End If Next End If G_Encrypt = OutString End Function
Related Documents
G Encrypt
August 2019 19
Encrypt > Passwd
July 2020 11
Encrypt > Encryption
July 2020 5
Encrypt Password With C#
April 2020 6
Encrypt Your Data Assets
May 2020 15