코드 사본은 다음과 같습니다.
dimpwd
pwd = inputbox ( "새 비밀번호를 입력하십시오 :", "비밀번호 변경", "yulv.net")
ifpwd <> ""그런 다음
pwd = pwdconv (pwd)
입력 박스 "새 비밀번호 인코딩은 다음과 같습니다."& vbcrlf & "새 인코딩을 프로그램의 비밀번호 항목으로 바꾸십시오!", "비밀번호 인코딩", pwd
또 다른
Msgbox "새 비밀번호를 입력하지 않았습니다. 시스템은 변환에 도움이되지 않습니다!"
endif
functionpwdconv (byvalspwd)
Dimi, Ref, Value, LTMP
ltmp = 0
fori = 1tolenb (spwd)
값 = ASCB (MIDB (SPWD, I, 1))
값 = (값*i) +255
if (ltmp+value)> (& hff*lenb (spwd))
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
최종 기능 장애
로컬 다운로드