การเข้ารหัสและถอดรหัส

คนทำเว็บ 2015-11-05 15:37:48 2,656

ลองดูนะครับการเข้ารหัสข้อความ

สามารถเข้าและถอดรหัสได้ครับ

Key = "SIAMFOCUS"

Function Encrypt(Text)

For Char = 1 To LEN(Text)

TextCharCode = ASC(MID(Text,Char,1))

PasswordCharCode = ASC(MID(Key,(Char MOD LEN(Key) + 1),1))

NewCharCode = TextCharCode + PasswordCharCode

If NewCharCode > 255 Then NewCharCode = NewCharCode - 255

Encrypt = Encrypt & CHR(NewCharCode)

End function

Function Decrypt(Text)

For Char = 1 To LEN(Text)

CodeCharCode = ASC(MID(Text,Char,1))

PasswordCharCode = ASC(MID(Key,(Char MOD LEN(Key) + 1),1))

OriginalCharCode = CodeCharCode - PasswordCharCode

If OriginalCharCode < 1 Then OriginalCharCode = OriginalCharCode + 255

Decrypt = Decrypt & CHR(OriginalCharCode)

End function

TestText = "เข้ารหัส siamfocus.com"

EncryptText = Encrypt(TestText)

DecryptText = Decrypt(EncryptText)

Response.Write "Text : "&TestText&"
"

Response.Write "Encrypt : "&EncryptText&"
"

Response.Write "Decrypt : "&DecryptText&"

ผลลัพท์ที่ได้คือ

Text : เข้ารหัส siamfocus.com
Encrypt : *��'�6 �*��'�6 �*��'�uƼ��ȁ��
Decrypt : เข้ารหัส siamfocus.com

ลองทดสอบดูได้ครับผม

สายด่วนโทร 061-583-7888

บทความแนะนำ