บทความนี้จะแนะนำวิธีการถอดรหัส ASP เป็นหลัก การคืนค่า chrw ไฟล์ที่เข้ารหัส chr และวิธีการถอดรหัสเนื้อหา chrw เพื่อนๆ ที่ต้องการสามารถอ้างอิงถึงได้
หลังจากเข้ารหัสพารามิเตอร์ของฟังก์ชัน asp ผ่านการเข้ารหัส chrw แล้ว วิธีถอดรหัสเนื้อหา chrw ฟังก์ชันถอดรหัสต่อไปนี้กลายเป็นเรื่องง่ายมาก โดยจะใช้นิพจน์ทั่วไปเพื่อแยกสตริง chrw ในเนื้อหา จากนั้น eval จะดำเนินการสตริง chrw ที่ได้รับแบบไดนามิกเพื่อรับเนื้อหา จากนั้นจึงทำการแทนที่ หมายเหตุ: โปรดดูความคิดเห็นในซอร์สโค้ด โปรดทราบว่าซอร์สโค้ดควรถูกบันทึกเป็นไฟล์ในรูปแบบ vbs ก่อนดำเนินการ หากเป็นไฟล์ asp จำเป็นต้องแก้ไข createobject เป็น server.createobject
ฟังก์ชั่น readfile(fn)'อ่านเนื้อหาของชุดไฟล์ที่เข้ารหัส fso=createobject(scripting.filesystemobject) set ts=fso.OpenTextFile(fn,1,false,-2)'ให้ความสนใจกับพารามิเตอร์สุดท้ายที่นี่ หากคุณเป็น การเข้ารหัส Unicode เปลี่ยน -2 (การเข้ารหัสเริ่มต้นของระบบ) เป็น -1 (การเข้ารหัส Unicode) 0 คือ ascii readfile=ts.ReadAll ts.close set ts=nothing set fso=nothingend functionfunction decodechrw(s)'decode chrw encoded content set rx=new RegExp rx.Global=true rx.IgnoreCase=true rx.Pattern=ChrW/s*/(/s*/d+/s*/)(/s*&/s*ChrW/s*/(/s*/d+/s*/))*'ถอดรหัสสตริง chrw ตั้งค่า mc=rx.Execute(s) สำหรับแต่ละ m ใน mc s=replace(s, m.value,&eval(m.value)&) ถัดไป rx.Pattern=Chr/s*/(/s*/d+/s*/)(/s*&/s*Chr/s*/(/s*/d+/s*/))*'สตริง chr ด่วน ตั้งค่า mc=rx.Execute(s) สำหรับแต่ละ m ใน mc s=replace(s, m.value,&eval(m.value)&) next decodechrw=s end functionfunction decodechrwfile(fn) 'ถอดรหัสไฟล์ที่มีการเข้ารหัส chrw s=readfile(fn) s=decodechrw(s) 'เขียนเนื้อหาที่ถอดรหัสกลับไปยังชุดไฟล์ fso=createobject(scripting.filesystemobject) ตั้งค่า ts=fso.OpenTextFile(replace(fn,.,_decode.),2,true,-2)'เขียนเนื้อหาที่ถอดรหัสแล้วไปยังไฟล์ที่ชื่อไฟล์ดั้งเดิมถูกแทนที่ด้วย _decode หาก fn เป็น encode.txt แสดงว่าถอดรหัสแล้ว ไฟล์คือ encode_decode.txt ts.write s ts.close set ts=nothing set fso=nothingend functiondecodechrwfile(encode.txt)' โปรดใส่ใจกับการแก้ไขชื่อไฟล์และเส้นทางที่เข้ารหัสโดย chrw ที่นี่ หากเป็นเนื้อหาที่ส่งโดยไคลเอ็นต์