Este artigo apresenta principalmente os métodos de descriptografia asp, restauração de chrw, arquivos codificados chr e o método de decodificação do conteúdo chrw. Amigos necessitados podem consultá-lo.
Depois de criptografar os parâmetros da função asp por meio da codificação chrw, como decodificar o conteúdo chrw. A função de decodificação a seguir é muito simples. Ela usa expressões regulares para extrair a string chrw do conteúdo e, em seguida, eval executa dinamicamente a string chrw obtida para obter o conteúdo e, em seguida, executa a substituição. Nota: Consulte os comentários no código-fonte. Observe que o código-fonte deve ser salvo como um arquivo no formato vbs antes da execução. Se for um arquivo asp, createobject precisa ser modificado para server.createobject.
function readfile(fn)'Lê o conteúdo do arquivo codificado set fso=createobject(scripting.filesystemobject) set ts=fso.OpenTextFile(fn,1,false,-2)'Preste atenção ao último parâmetro aqui, se o seu for Codificação unicode, altere -2 (codificação padrão do sistema) para -1 (codificação 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*/))*'Decodificar string chrw defina mc=rx.Execute(s) para cada m em mc s=replace(s, m.value,&eval(m.value)&) próximo rx.Pattern=Chr/s*/(/s*/d+/s*/)(/s*&/s*Chr/s*/(/s*/d+/s*/))*'Urgente chr String defina mc=rx.Execute(s) para cada m em mc s=replace(s, m.value,&eval(m.value)&) próximo decodechrw=s end functionfunction decodechrwfile(fn) 'Decodifica o arquivo contendo a codificação chrw s=readfile(fn) s=decodechrw(s) 'Grava o conteúdo decodificado de volta no conjunto de arquivos fso=createobject(scripting.filesystemobject) set ts=fso.OpenTextFile(replace(fn,.,_decode.),2,true,-2)'Grave o conteúdo decodificado no arquivo cujo nome de arquivo original é substituído por _decode. Se fn for encode.txt, então o decodificado. arquivo é encode_decode.txt ts.write s ts.close set ts=nothing set fso=nothingend functiondecodechrwfile(encode.txt)' Preste atenção para modificar o nome do arquivo e caminho criptografado por chrw aqui, se for o conteúdo enviado pelo cliente