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

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

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

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
ลองทดสอบดูได้ครับผม


มาเป็นเพื่อนกันครับ บนช่องทาง Social ด้านล่างนี้ครับ

--------------------------
► LINE@ : @siamfocus.com
► Facebook : fanpage.siamfocus
► Twitter (X) : siamfocus
► Linkedin : taam-siamfocus
► Instagram : iamtaam
► Youtube : SiAMFOCUS
► Tiktok : @taamsiamfocus
--------------------------

รับทำเว็บไซต์ สอนทำเว็บไซต์ รับดูแลเว็บไซต์

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

บทความแนะนำ