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

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





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

สามารถเข้าและถอดรหัสได้ครับ
<%
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 : https://www.siamfocus.com/
► LINE@ : https://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
--------------------------








บทความ แนะนำ

SEO คืออะไร

SEO คืออะไร

SEO คืออะไร??? ใครรู้บ้าง??? หลายๆ คนคงได้ยินคำว่า SEO มาบ้าง ซึ่งคำว่า SEO นั้นย่อมาจากคำว่า Sea...

การสร้าง Facebook App

การสร้าง Facebook App

การสร้าง Facebook App โดยโจทย์วันนี้สร้างไว้สำหรับใช้ ในการใช้ Facebook ตรวจสอบตัวตนนะครับ เช่นไว้ใช...

ขั้นตอนการทำเว็บไซต์

ขั้นตอนการทำเว็บไซต์

ขั้นตอนการทำเว็บไซต์ ยินดีต้อนรับสู่ บ้านหลังใหม่ครับ ในฐานะที่คุณเป็นลูกค้าใหม่ของเรา เราจะมีทีม...

พุธห้ามตัด

พุธห้ามตัด

มหาศิริมงคล ตัดผมใหม่  ตัดผม วันอาทิตย์ เป็นวันดี จะมีอายุยืนยาว  ตัดผม วันจันทร์ เป...




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