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

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



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

สามารถเข้าและถอดรหัสได้ครับ
<%
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
ลองทดสอบดูได้ครับผม

ฝากติดตามผลงานด้านล่างด้วยครับ
--------------------------
► Website : http://www.siamfocus.com/
► LINE@ : http://line.me/ti/p/@siamfocus.com
► Facebook : https://www.facebook.com/fanpage.siamfocus
► Twitter : https://twitter.com/siamfocus
► Google+ : https://plus.google.com/+TAAMSiAMFOCUS
► Instagram : https://www.instagram.com/iamtaam
--------------------------



บทความ แนะนำ




หมวดหมู่บทความ