يوفر رمز ASPWebPack تنزيل

نسخة الكود كما يلي:

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 = المرجع

الوظيفية

تنزيل محلي

المقالات التي قد تكون ذات أهمية بالنسبة لك:

مقدمة في ملفات تكوين عناصر التكوين شائعة الاستخدام من WebPack استنادًا إلى Vuejs+WebPack JQuery Mobile Drag and Drop (تطوير وحدات ، أحداث اللمس ، WebPack) WebPack+Vue.JS تنفيذ مكون مفصل مفصل لـ webpack fue.js quick start tutorialpack webpack webpack webpack leveling loading loading nodepack webpack webpack nodepack nodepack nodepack nodepack nodep يجب أن يكون معروفًا بالبدء