コードコピーは次のとおりです。
dimpwd
pwd = inputbox（ "新しいパスワードを入力してください："、 "パスワードの変更"、 "yulv.net"）
ifpwd <> "" then
pwd = pwdconv（pwd）
inputbox "新しいパスワードエンコーディングは次のとおりです。"＆vbcrlf＆ "新しいエンコーディングをプログラムのパスワードアイテムに置き換えてください！"、 "パスワードエンコーディング"、pwd
それ以外
msgbox「新しいパスワードを入力しなかったので、システムは変換するのに役立ちません！」
endif
functionpwdconv（byvalspwd）
dimi、ref、value、ltmp
LTMP = 0
fori = 1tolenb（spwd）
value = ascb（midb（spwd、i、1））
value =（value*i）+255
if（ltmp+value）>（＆hff*lenb（spwd））then
ref = ref＆hex（ltmp）
LTMP = 0
endif
ltmp = ltmp+value+len（cstr（ltmp））
次
ifltmp> 0thenref = ref＆hex（ltmp）
ifmid（ref、1,1）= "0" thenref = hex（len（ref））＆ref
pwdconv = ref
エンド機能
ローカルダウンロード