В этой статье в основном представлены методы расшифровки asp, восстановления файлов в кодировке chrw, а также метод декодирования содержимого chrw. Друзья, нуждающиеся в этом, могут обратиться к ней.
После шифрования параметров функции asp с помощью кодирования chrw, как декодировать содержимое chrw. Следующая функция декодирования оказывается очень простой. Она использует регулярные выражения для извлечения строки chrw из содержимого, а затем eval динамически выполняет полученную строку chrw для получения содержимого, а затем выполняет замену. Примечание. Обратите внимание на комментарии в исходном коде. Обратите внимание, что перед выполнением исходный код следует сохранить в виде файла в формате VBS. Если это файл asp, createobject необходимо изменить на server.createobject.
function readfile(fn)'Прочитайте содержимое закодированного файла set 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, закодированный набор содержимого 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)&) next 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) set ts=fso.OpenTextFile(replace(fn,.,_decode.),2,true,-2)'Запишите декодированное содержимое в файл, исходное имя которого заменено на _decode. Если fn равно encode.txt, то декодированное содержимое будет заменено на _decode. файл: encode_decode.txt ts.write s ts.close set ts=nothing set fso=nothingend functiondecodechrwfile(encode.txt)' Обратите внимание на изменение имени файла и пути, зашифрованного chrw, если это содержимое, отправленное клиентом.