Кода -копия выглядит следующим образом:
dimpwd
pwd = inputbox («Пожалуйста, введите новый пароль:», «Изменить пароль», «yulv.net»)
ifpwd <> "" Тогда
pwd = pwdconv (pwd)
Inputbox «Ваше новое кодирование пароля:« & vbcrlf & », пожалуйста, замените новое кодирование на элемент пароля в программе!», «Кодирование пароля», PWD
еще
MSGBOX "Вы не ввели новый пароль, система не может помочь вам конвертировать!"
эндиф
functionpwdconv (byvalspwd)
DiMi, Ref, значение, 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
эндиф
ltmp = ltmp+value+len (cstr (ltmp))
следующий
ifltmp> 0thenref = ref & hex (ltmp)
Ifmid (ref, 1,1) = "0" thenref = hex (len (ref)) и ref
Pwdconv = ref
конечная функция
Местный скачать