تقدم هذه المقالة بشكل أساسي طرق فك تشفير asp، واستعادة ملفات chrw، والملفات المشفرة chr، وطريقة فك تشفير محتوى chrw، ويمكن للأصدقاء المحتاجين الرجوع إليها.
بعد تشفير معلمات وظيفة asp من خلال تشفير chrw، كيفية فك تشفير محتوى chrw. تبين أن وظيفة فك التشفير التالية بسيطة جدًا، فهي تستخدم التعبيرات العادية لاستخراج سلسلة chrw من المحتوى، ثم تقوم عملية التقييم ديناميكيًا بتنفيذ سلسلة 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*/))*'سلسلة حقوق الإنسان العاجلة اضبط mc=rx.Execute(s) لكل m في mc s=replace(s, m.value,&eval(m.value)&) وظيفة decodechrw=s النهائية التالية 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 هنا، إذا كان هذا هو المحتوى المقدم من قبل العميل