AspWebPack Code menyediakan unduhan

Salinan kode adalah sebagai berikut:

DIMPWD

pwd = inputbox ("Silakan masukkan kata sandi baru:", "ubah kata sandi", "yulv.net")

ifpwd <> "" lalu

PWD = PWDCONV (PWD)

inputbox "Pengkodean kata sandi baru Anda adalah:" & vbcrlf & "Harap ganti pengkodean baru dengan item kata sandi dalam program!", "Pengkodean Kata Sandi", PWD

kalau tidak

msgbox "Anda tidak memasukkan kata sandi baru, sistem tidak dapat membantu Anda mengonversi!"

endif

functionpwdconv (byvalspwd)

Dimi, Ref, Nilai, Ltmp

LTMP = 0

fori = 1TolenB (SPWD)

nilai = ASCB (midb (spwd, i, 1))

nilai = (nilai*i) +255

if (ltmp+value)> (& hff*lenb (spwd)) lalu

Ref = Ref & Hex (LTMP)

LTMP = 0

endif

LTMP = LTMP+Nilai+Len (CSTR (LTMP))

Berikutnya

ifltmp> 0thenref = ref & hex (ltmp)

IFMID (REF, 1,1) = "0" ThenRef = Hex (Len (Ref)) & Ref

PWDCONV = Ref

fungsi endfungsi

Unduh Lokal

Artikel yang mungkin menarik bagi Anda:

Pengantar file konfigurasi item konfigurasi yang umum digunakan dari Webpack berdasarkan vuejs+webpack jQuery seluler drag and drop (pengembangan modular, acara sentuh, webpack) Webpack+vue.js implementasi komponen pelaksanaan webpack webpack. Webpack harus diketahui memulai