Cet article présente principalement les méthodes de décryptage asp, de restauration de chrw, de fichiers codés en chr et la méthode de décodage du contenu chrw. Les amis dans le besoin peuvent s'y référer.
Après avoir crypté les paramètres de la fonction asp via l'encodage chrw, comment décoder le contenu chrw. La fonction de décodage suivante s'avère très simple : elle utilise des expressions régulières pour extraire la chaîne chrw dans le contenu, puis eval exécute dynamiquement la chaîne chrw obtenue pour obtenir le contenu, puis effectue le remplacement. Remarque : veuillez vous référer aux commentaires dans le code source. Notez que le code source doit être enregistré sous forme de fichier au format vbs avant l'exécution. S'il s'agit d'un fichier asp, createobject doit être modifié en server.createobject.
function readfile(fn)'Lire le contenu du fichier encodé set fso=createobject(scripting.filesystemobject) set ts=fso.OpenTextFile(fn,1,false,-2)'Faites attention au dernier paramètre ici, si le vôtre est Encodage Unicode, remplacez -2 (encodage par défaut du système) par -1 (encodage Unicode). 0 est 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*/))*'Décoder la chaîne chrw définir mc=rx.Execute(s) pour chaque m dans mc s=replace(s, m.value,&eval(m.value)&) suivant rx.Pattern=Chr/s*/(/s*/d+/s*/)(/s*&/s*Chr/s*/(/s*/d+/s*/))*'Chaîne chr urgente définir mc=rx.Execute(s) pour chaque m dans mc s=replace(s, m.value,&eval(m.value)&) next decodechrw=s end functionfunction decodechrwfile(fn) 'Décoder le fichier contenant l'encodage chrw s=readfile(fn) s=decodechrw(s) 'Écrire le contenu décodé dans l'ensemble de fichiers fso=createobject(scripting.filesystemobject) set ts=fso.OpenTextFile(replace(fn,.,_decode.),2,true,-2)'Écrivez le contenu décodé dans le fichier dont le nom de fichier d'origine est remplacé par _decode Si fn est encode.txt, alors le décodé. le fichier est encode_decode.txt ts.write s ts.close set ts=nothing set fso=nothingend functiondecodechrwfile(encode.txt)' Faites attention à modifier le nom du fichier et le chemin crypté par chrw ici, s'il s'agit du contenu soumis par le client