نسخة الكود كما يلي:
dimpwd
pwd = inputbox ("الرجاء إدخال كلمة مرور جديدة:" ، "تغيير كلمة المرور" ، "yulv.net")
IFPWD <> "" ثم
PWD = PWDCONV (PWD)
inputbox "ترميز كلمة المرور الجديدة الخاصة بك هو:" & vbcrlf & "الرجاء استبدال الترميز الجديد بعنصر كلمة المرور في البرنامج!" ، "ترميز كلمة المرور" ، PWD
آخر
MSGBOX "لم تدخل كلمة مرور جديدة ، لا يمكن للنظام مساعدتك في التحويل!"
Endif
FunctionPWDConv (ByvalsPWD)
Dimi ، المرجع ، القيمة ، LTMP
LTMP = 0
fori = 1tolenb (SPWD)
القيمة = ASCB (MIDB (SPWD ، I ، 1))
القيمة = (القيمة*i) +255
if (ltmp+value)> (& hff*lenb (spwd)) ثم
المرجع = المرجع و hex (LTMP)
LTMP = 0
Endif
LTMP = LTMP+VALUE+LEN (CSTR (LTMP))
التالي
IFLTMP> 0THENREF = Ref & Hex (LTMP)
IFMID (Ref ، 1،1) = "0" therref = hex (len (Ref)) & Ref
PWDCONV = المرجع
الوظيفية
تنزيل محلي