Weitere Informationen finden Sie hier
http://hi.baidu.com/lael80/blog/item/6633d7fc89f9f282b801a061.html
http://www.gzyd.net/lael/coding.rar
Dateicodierungskonvertierung/Screenc -Verschlüsselung und Entschlüsselung/Vereinfacht und herkömmliche chinesische Konvertierung 1.0
Anmerkungen zur Verwendung:
1. Bitte zurück vor der Verwendung, und Sie sind für die durch die Verwendung dieser Software verursachten Verluste verantwortlich.
2. Bevor Sie Codierung und Konvertierung durchführen, stellen Sie bitte sicher, dass die Quellcodierung aller Dateien konsistent ist und korrekt ausgewählt wird, da ansonsten ein Fehler auftreten kann.
3. Bevor Sie den ASP -Code verschlüsseln oder entschlüsseln oder einfache und herkömmliche Chinesen konvertieren, müssen Sie bestätigen, dass der Code der Datei ANSI ist, ansonsten kann ein verstümmelter Code stattfinden.
Nach Abschluss des Vorgangs können Sie zum ursprünglichen Code zurückkehren.
4. Die ASP -Verschlüsselung entspricht dem Aufrufen von Microsoft:
Wenn enthalten: <%@Sprache = "vbscript" Codepage = "936"%>
screnc.exe/s/f/xl/easp*.*.*
screnc.exe/s/f/xl/ehtm*.*.*.*.
ansonsten:
screnc.exe/s/f/easp*.*.*.
Screnc.exe/s/f/EHTM*.*.*
Verschlüsseln Sie externe *.js oder *.vbs, bitte fügen Sie zuerst die Datei hinzu.
<scriptuanguage = "script Language"> Code </script>, löschen Sie ihn nach Abschluss.
5. ASP Decryption wird selbst geändert. Der Originaltext stammt von Jscript, und es hat einen Tag gedauert, um ihn in VBScript zu ändern, haha
6. Wenn die Originaldatei sowohl verschlüsselte als auch unverschlüsselte Codes enthält (die Situation tritt selten auf ~ _ ~),
Bitte führen Sie zuerst die Entschlüsselung aus und verschlüsseln Sie sie dann erneut.
7. Coding.txt ist die Systemdatei -Codierungsliste.
8. Wenn Sie diese Software verwenden, fügen Sie dem Code keine persönlichen Informationen hinzu, sodass dies den ursprünglichen Geschmack gewährleistet.
9. Vielen Dank für Ihre Verwendung.
10. Diese Software kann Ihnen auch helfen, Dateien unter mehreren Ordnern auf demselben Verzeichnis zu speichern ~ _ ~
11. Einige Systeme müssen möglicherweise VB6- oder VB -Laufzeitbibliothek oder WindowsScriptEncoder installieren
Andere Anweisungen:
1. Unterstützt Textbox Binärinhalte?
2. Diese Software lässt die Verschlüsselung nicht zweimal zu.
Es kann ein Problem sein, den Code zu entschlüsseln (einige unbekannte Zeichen werden nach der ersten Entschlüsselung erscheinen).
Es kann auch sein, dass einige unbekannte Zeichen in der Verschlüsselung mehrmals erscheinen, wodurch der Entschlüsselungsvorgang fehlschlägt. Wenn Sie daran interessiert sind, die in den anderen Anweisungen oben genannten Fehler abzuschließen
Der Codierungsumwandlungsteil kann automatisch identifiziert und frei ausgewählt werden, ob BOM -Dateiheader hinzugefügt/löschen soll.
Bitte hinterlassen Sie Ihre E -Mail -Adresse und meine URL und ich werde Ihnen den Quellcode senden. Automatisch Codierung identifizieren ...
Im Quellcode befindet sich bereits eine Funktion (modul1.bas/fileCodingCheck ()).
Nach dem Testen ist es jedoch nicht sehr genau, insbesondere Dateien ohne Bom -Header.
PublicFunctionFileCodingCheck (ByvalfilepatheString)
DimsmobjasNewadodb.stream
Dimsmread1aSinterer, Smread2ainterger, Smread3aSinter
Smobj.type = 1
Smobj.open
Smobj.loadfromFileFilepath
Smobj.position = 0
Iflenb (smobj.read)> = 1Then
Smobj.position = 0
Smread1 = ASCB (smobj.read (1))
Endif
Smobj.position = 0
Iflenb (smobj.read)> = 2Then
Smobj.position = 1
SMREAD2 = ASCB (smobj.read (1))
Endif
Smobj.position = 0
Iflenb (smobj.read)> = 3Then
Smobj.position = 2
SMREAD3 = ASCB (smobj.read (1))
Endif
Ifsmread1 = & hffandsmread2 = & hfethen
Filecodingcheck = "unicode"
Elseifsmread1 = & hfeandsmread2 = & hfftthen
Filecodingcheck = "unicodeBigendian"
Elseifsmread1 = & hefandsmread2 = & hbbandsmread3 = & hbftthen
Filecodingcheck = "utf-8"
Anders
Filecodingcheck = "Ansi"
Endif
Smobj.close
Setsmobj = nichts
Endfunktion