Lihat di sini untuk detailnya
http://hi.baidu.com/lael80/blog/item/6633d7fc89f9f282b801a061.html
http://www.gzyd.net/lael/coding.rar
File Encoding Conversion/Screenc Enkripsi dan Dekripsi/Konversi Tiongkok Sederhana dan Tradisional 1.0
Catatan Penggunaan:
1. Harap cadangkan sebelum digunakan, dan Anda bertanggung jawab atas kerugian yang disebabkan oleh penggunaan perangkat lunak ini;
2. Sebelum melakukan pengkodean dan konversi, pastikan bahwa penyandian sumber semua file konsisten dan pilih benar, jika tidak kesalahan dapat terjadi.
3. Sebelum mengenkripsi atau mendekripsi kode ASP atau mengonversi bahasa Cina yang sederhana dan tradisional, Anda harus mengonfirmasi bahwa kode file tersebut adalah ANSI, jika tidak kode yang kacau dapat terjadi.
Setelah menyelesaikan operasi, Anda dapat kembali ke kode asli.
4. Enkripsi ASP setara dengan memanggil Microsoft:
Jika termasuk: <%@language = "vbscript" codepage = "936"%>
screnc.exe/s/f/xl/easp*.*
screnc.exe/s/f/xl/ehtm*.*
jika tidak:
screnc.exe/s/f/easp*.*
screnc.exe/s/f/ehtm*.*
Enkripsi eksternal *.js atau *.vbs, silakan tambahkan file terlebih dahulu.
<scriptLanguage = "Bahasa skrip"> Kode </script>, hapus setelah selesai.
5. Dekripsi ASP dimodifikasi sendiri. Teks aslinya berasal dari jscript, dan butuh satu hari untuk mengubahnya menjadi vbscript, haha
6. Jika file asli berisi kode yang dienkripsi dan tidak terenkripsi (situasinya jarang terjadi ~ _ ~),
Harap jalankan dekripsi terlebih dahulu, dan kemudian enkripsi lagi.
7. Coding.txt adalah daftar pengkodean file sistem.
8. Saat menggunakan perangkat lunak ini, Anda tidak akan menambahkan informasi pribadi apa pun ke kode, sehingga akan memastikan rasa aslinya.
9. Terima kasih atas penggunaannya.
10. Perangkat lunak ini juga dapat membantu Anda menyimpan file di bawah beberapa folder ke direktori yang sama ~ _ ~
11. Beberapa sistem mungkin perlu menginstal VB6 atau VB Runtime Library atau WindowsScriptencoder
Instruksi Lainnya:
1. Apakah TextBox mendukung konten biner?
2. Perangkat lunak ini tidak mengizinkan enkripsi dua kali.
Ini mungkin menjadi masalah dengan mendekripsi kode (beberapa karakter yang tidak diketahui akan muncul setelah dekripsi pertama).
Mungkin juga beberapa karakter yang tidak diketahui akan muncul beberapa kali dalam enkripsi, menyebabkan operasi dekripsi gagal. Jika Anda tertarik untuk menyelesaikan kesalahan yang disebutkan dalam instruksi lain di atas
Bagian konversi pengkodean dapat diidentifikasi secara otomatis dan dipilih secara bebas apakah akan menambahkan/menghapus header file BOM.
Silakan tinggalkan alamat email Anda dan URL saya dan saya akan mengirimkan kode sumbernya. Secara otomatis mengidentifikasi penyandian ...
Sudah ada fungsi dalam kode sumber (module1.bas/filecodingcheck ()).
Tapi itu tidak terlalu akurat setelah pengujian, terutama file tanpa header BOM.
PublicFunctionFileCodingCheck (ByValfilePathasstring)
DIMSMOBJASNEWADODB.Stream
DIMSMREAD1ASITEGER, 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"
Kalau tidak
FileCodingCheck = "ANSI"
Endif
Smobj.close
Setsmobj = tidak ada
Fungsi endfungsi