การเข้ารหัสและถอดรหัส
การเข้ารหัสและถอดรหัส
ลองดูนะครับการเข้ารหัสข้อความ
สามารถเข้าและถอดรหัสได้ครับ
<%
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)
NEXT
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)
NEXT
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
Encrypt : *��'�6 �*��'�6 �*��'�uƼ������ȁ���
Decrypt : เข้ารหัส siamfocus.com
ลองทดสอบดูได้ครับผม
ฝากติดตามผลงานด้านล่างด้วยครับ
--------------------------
► Website : https://www.siamfocus.com/
► LINE@ : https://line.me/ti/p/@siamfocus.com
► Facebook : https://www.facebook.com/fanpage.siamfocus
► Twitter : https://twitter.com/siamfocus
► Instagram : https://www.instagram.com/iamtaam
--------------------------