詳細については、こちらをご覧ください
http://hi.baidu.com/lael80/blog/item/6633d7fc89f9f282b801a061.html
http://www.gzyd.net/lael/coding.rar
コンバージョン/スクリーンの暗号化と復号化/簡素化された従来の中国の変換のファイルエンコード1.0
使用に関するメモ：
1。使用する前にバックアップしてください。そうすれば、このソフトウェアを使用することで引き起こされる損失について責任があります。
2。エンコードと変換を実行する前に、すべてのファイルのソースエンコードが一貫していることを確認してください。そうしないと、エラーが発生する可能性があります。
3. ASPコードを暗号化または復号化したり、シンプルで伝統的な中国語を変換する前に、ファイルのコードがANSIであることを確認する必要があります。
操作を完了したら、元のコードに戻ることができます。
4. ASP暗号化は、Microsoftの呼び出しと同等です。
含まれている場合：<％@言語= "vbscript" codepage = "936"％>
screnc.exe/s/f/xl/easp*。*
screnc.exe/s/f/xl/ehtm*。*
さもないと：
screnc.exe/s/f/easp*。*
screnc.exe/s/f/ehtm*。*
外部 *.jsまたは *.vbsを暗号化するには、最初にファイルを追加してください。
<ScriptLanguage = "Script Language"> code </script>、完了後に削除します。
5. ASP復号化は自分で修正されます。元のテキストはjscriptからのもので、vbscriptに変更するのに1日かかりました、haha
6.元のファイルに暗号化されたコードと暗号化されていないコードの両方が含まれている場合（状況はめったに発生しません〜_〜）
最初に復号化を実行してから、もう一度暗号化してください。
7。Coding.txtは、必要なエンコードが使用できないことがわかった場合、ラインを手動で追加できます。
8。このソフトウェアを使用する場合、コードに個人情報を追加しないため、元のフレーバーが確保されます。
9。ご質問がある場合は、メールを送ってください。
10.このソフトウェアは、複数のフォルダーの下のファイルを同じディレクトリに保存するのにも役立ちます〜_〜
11.一部のシステムは、VB6またはVBランタイムライブラリまたはWindowsScriptEncoderをインストールする必要がある場合があります
その他の指示：
1。テキストボックスはバイナリコンテンツをサポートしていますか？
2。このソフトウェアでは、暗号化が2回復号化されている場合でも、2回暗号化を引き起こしません。
コードを復号化するのに問題がある可能性があります（最初の復号化後に未知の文字が表示されます）。
また、いくつかの未知の文字が暗号化に複数回表示され、復号化操作が失敗する可能性があります。上記の他の手順に記載されているエラーを完了することに興味がある場合
エンコード変換部品を自動的に識別し、BOMファイルヘッダーを追加/削除するかどうかを自由に選択できます。
メールアドレスと私のURLを残してください。ソースコードをお送りします。エンコーディングを自動的に識別します...
ソースコード（module1.bas/filecodingcheck（））にはすでに関数があります。
しかし、テスト後、特にBOMヘッダーのないファイルはあまり正確ではありません。
publicFunctionFileCodingCheck（byvalfilepathasstring）
dimsmobjasnewadodb.stream
dimsmread1asinteger、smread2asinteger、smread3asinteger
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"
それ以外
filecodingcheck = "ansi"
endif
smobj.close
setsmobj =何もない
エンド機能