بسم الله الرحمن الرحیم با سلام خدمت دوستان ایران هک :
در این تاپیک قصد دارم به صورت جامع به شما دوستان عزیز نحوه ی نوشتن نرم افزار های امنیتی همانند هویج ، آلبالو ،دایرکتوری فایندر ها ، سی ام اس فایندر ها ، وب کرکر ها و ... رو آموزش بدم .
لطفا سوالات و مباحثات مرتبط با این موضوع رو در همین تاپیک بپرسید .
امیدوارم بتونم تو سطح آگاهی شما نقش داشته باشم .
خب شروع می کنیم :
زبان مورد استفاده در این مبحث: Microsoft Visual Basic 6
دلیل استفاده از ویژوال بیسیک :
به دلیل سادگی و سرعت بالا این زبان نیز منتخب این مبحث می باشد .
کامپوننت های مورد استفاده :
Microsoft Winsock Control V6
Microsoft Internet Transfer Control
Microsoft Internet Control
بخش اول : نحوه ی نوشتن یک نرم افزار Directory Finder
برای نوشتن یک برنامه برای اینکه دایرکتوری های داده شده به برنامه را پیدا کند شما می بایست برنامه ای بنویسید که بتواند تشخیص دهد آیا این صفحه موجود است یا خیر .
چون مبحث رو از مبتدی شروع کردیم از یک روش ساده استفاده می کنیم.
ما می خواهیم برنامه ای بنویسیم که یک لیست دایرکتوری را بگیرد و یک آدرس .
سپس از روی آدرس سورس صفحه را برای ما در یک متغیر از نو String بریزد .
بعد در سورسی که درون یک متغیر ریخت کلمه ی 404 که اکثر وبسایت برای صفحاتی که وجود ندارد از این کلمه استفاده می کنند بگردد . اگر این کلمه موجود نبود پس باید آدرس صفحه را در لیست دایرکتوری های پیدا شده بریزد .
بعد به ترتیب سراغ نام دایرکتوری بعدی برود تا آخرین عنصر لیست .
برای اینکار ما از کنترل Microsoft Internet Transfer Control استفاده می کنیم .
خب یک فانکشن برای تست صفحات می نویسیم
همانطور که دیدید این فانکش با استفاده از تابع instr درون سورس صفحه می گردد و اگر این کلمه موجود نباشد یعنی دایرکتوری موجود هست ،پس اون رو به لیست 2 اضافه می کند .
برای لود کردن یک فایل متنی بعنوان لیست دایرکتوری توسط کاربر هم می تونید از کد زیر استفاده کنید :
یک کلید با کپشن Start بسازید و کد زیر رو درونش بزارید
این متغیر هم که برای استپ کردن پروژه هست در قسمت جنرال تعریف کنید
یک کامند هم برای استپ کردن پروژه ساخته و کد زیر رو درونش بگذارید :
یک لیست با نام لیست 1 هم برای نگه داشتن لیست دایرکتوری های لود شده روی فرم بندازید .
بخش یک تمام شد .
دانلود سورس :
موفق باشین
در این تاپیک قصد دارم به صورت جامع به شما دوستان عزیز نحوه ی نوشتن نرم افزار های امنیتی همانند هویج ، آلبالو ،دایرکتوری فایندر ها ، سی ام اس فایندر ها ، وب کرکر ها و ... رو آموزش بدم .
لطفا سوالات و مباحثات مرتبط با این موضوع رو در همین تاپیک بپرسید .
امیدوارم بتونم تو سطح آگاهی شما نقش داشته باشم .
خب شروع می کنیم :
زبان مورد استفاده در این مبحث: Microsoft Visual Basic 6
دلیل استفاده از ویژوال بیسیک :
به دلیل سادگی و سرعت بالا این زبان نیز منتخب این مبحث می باشد .
کامپوننت های مورد استفاده :
Microsoft Winsock Control V6
Microsoft Internet Transfer Control
Microsoft Internet Control
بخش اول : نحوه ی نوشتن یک نرم افزار Directory Finder
برای نوشتن یک برنامه برای اینکه دایرکتوری های داده شده به برنامه را پیدا کند شما می بایست برنامه ای بنویسید که بتواند تشخیص دهد آیا این صفحه موجود است یا خیر .
چون مبحث رو از مبتدی شروع کردیم از یک روش ساده استفاده می کنیم.
ما می خواهیم برنامه ای بنویسیم که یک لیست دایرکتوری را بگیرد و یک آدرس .
سپس از روی آدرس سورس صفحه را برای ما در یک متغیر از نو String بریزد .
بعد در سورسی که درون یک متغیر ریخت کلمه ی 404 که اکثر وبسایت برای صفحاتی که وجود ندارد از این کلمه استفاده می کنند بگردد . اگر این کلمه موجود نبود پس باید آدرس صفحه را در لیست دایرکتوری های پیدا شده بریزد .
بعد به ترتیب سراغ نام دایرکتوری بعدی برود تا آخرین عنصر لیست .
برای اینکار ما از کنترل Microsoft Internet Transfer Control استفاده می کنیم .
خب یک فانکشن برای تست صفحات می نویسیم
کد:
Private Function FindAdmin(Name As String) Dim x As String Dim notfound As Boolean x = Inet1.OpenURL(Text1.Text & "/" & Name) If InStr(x, "404") Then notfound = True Else List2.AddItem Text1.Text + "/" + Name End If End Function
برای لود کردن یک فایل متنی بعنوان لیست دایرکتوری توسط کاربر هم می تونید از کد زیر استفاده کنید :
کد:
Dialog1.ShowOpen FF = FreeFile Open Dialog1.FileName For Input As FF Do Until EOF(FF) = True Line Input #FF, GetText List1.AddItem GetText Loop Close #FF
کد:
StopWork = False List1.ListIndex = 0 For i = 1 To Val(List1.ListCount) - 1 If StopWork = True Then Exit Sub List1.ListIndex = Val(List1.ListIndex) + 1 FindAdmin (List1.Text) Next
کد:
Dim StopWork As Boolean
کد:
StopWork = True
بخش یک تمام شد .
دانلود سورس :
کد:
http://www.up2www.com/uploads/1394736048341.zip
نظر