
ASP : การเข้ารหัสและถอดรหัส
ลองดูนะครับการเข้ารหัสข้อความ
สามารถเข้าและถอดรหัสได้ครับ
<%
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
ลองทดสอบดูได้ครับผม
มาเป็นเพื่อนกันครับ บนช่องทาง Social ด้านล่างนี้ครับ
--------------------------► LINE@ : @siamfocus.com
► Facebook : fanpage.siamfocus
► Twitter (X) : siamfocus
► Linkedin : taam-siamfocus
► Instagram : iamtaam
► Youtube : SiAMFOCUS
► Tiktok : @taamsiamfocus
--------------------------