اظهار شاشة التبيلغ لبرامج الاختراق ب ٍvb

achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: أيلول 07, 2009, 12:17:16 مسائاً
السلام عليكم ورحمة الله وبركاته


اقدم لكم اليوم وحصريا ان شاء الله تعالى لشرح بسيط من عملي عن طريقة عرض شاشة التبيلغ بالنسبة لبرامج الاختراق ,,
طبعا سيكون الشرح  مجرد اخذ فكره عن طريقة ظهور
الشاشة وبعدها سنتمكن من ربطها ببرنامج الاختراق ....
كل مافي الامر ادراج الفورم الاول وادراج كما هو موضوع بالصورة التالية
:


ثـــــــــــــــــــــــم:



ثم نضيف فورم اخر وندرج فيه كما هو موضح بالصورة التالية :




بهذا يكون قد انجزنا نصف المشروع من التصميم يبقى لدينا اضافة شفرات البرنامج وستكون على
النحو التالي :

اولا اضف الي مشروعك Models الموديلز وسنكت فيه تصريح لدالة GetKeyState كالتالي:
 
    كود:
    Declare Function GetKeyState Lib "user32" (ByVal vKey As Long) As Integer

'التصريح عن دالة getkeystate

ثانيا : ننتقل الي الفورم الاول ونضغط على زر الامر  وفي حدث Click :

    كود
	
Form2.Notify Text1


وهنا سيتم التصريح للتبيلغ وظهور الكتابة التي تحمل العنوان ثم البورت

ثم في اجراء الفورم حدث Unload نكتب هذه الشفرة :

    كود:
    Unload Form2
ثالثا : ننتقل الي الفورم الثاني ونتابع سير الشفرة بالمكان المخصص لها :

في قسم الجنرال General التصريحات العامة سنكتب هذه الشيفرة :
     كود:
    Public quick As Long 'متغير عام لسرعة الشاشة
Public time As Long '
متغير للمدة الزمنيه
Dim all 
As Long 'متغير لكل من السرعة والمدة
Public Function sort(ParamArray Text()) 
Dim temp
Randomize
sort = Text(Int(Rnd * (UBound(Text()) + 1)))
End Function

Public Function Notify(adress As String, Optional fast As Long, Optional clock As Long) '
تعريف بوظائف التبليغ
Label1 
adress 'كتابة العنوان
If IsMissing(fast) Then
quick = fast '
سرعة شاشة التبيليغ
End 
If
If 
IsMissing(clockThen
time 
clock 'المدة الزمنية لعرض شاشة التبيلغ
End If
Me.Visible = True
Timer1.Enabled = True
Timer2.Enabled = True
End Function

ثم في حدث الفورم اجراء load سنكتب هذه الشيفرة :

 
	
كود
	
Me.Top Screen.Height 'بداية عرض شاشة التبيلغ للاعلى
Me.Left = Screen.Width - Me.Width
App.TaskVisible = False '
عدم تمكين ايقونة الشاشة بشريط المهام
quick 
10 ' سرعة عرض الشاشة
time = 200 '
المدنية الزمنية لعرض الشاشة


ثم في التايمر الاول Timer1 هذه الشيفرة :

    كود:
    On Error Resume Next 'مصيدة الخطا
Dim key As Boolean '
تصريح بمتغير قيمة منطقية
Dim keyControl 
As Boolean 'تصريح بمتغير قيمة منطقية
key = GetKeyState(vbKeyQ) '
ستكون قيمة الدالة صحيحه
keyControl 
GetKeyState(vbKeyControl'قيمة الدالة صحيحه
If keyControl And key Then End '
اذا كان قيمة المتغيرات صحيحه يتم انهاء العرض
AppActivate Me
.Caption

واخيرا في التايمر الثاني Timer2 هذه الشيفرة :

    كود:
    If all <= time Then
If Me.Top Screen.Height Me.Height Then
Me
.Top Me.Top quick
Else
all all 1
End 
If
Else
Me.Top Me.Top quick
End 
If
If 
Me.Top Screen.Height Then 'عند الانتهاء من العرض يتم تجميد التايمرات
Timer1.Enabled = False
Timer2.Enabled = False
all = 0
End If

وبهذا يكون قد انهينا البرنامج سنقوم بتجربة البرنامج ليظهر لنا التبيلغ كما بالصورة التالية :




بالتوفيق


Sniper4Dz

  • Hero Member
  • *****
    • مشاركة: 1012
    • مشاهدة الملف الشخصي
    • http://www.ingdz.com/vb
    • البريد الالكتروني
رد #1 في: أيلول 07, 2009, 12:30:15 مسائاً
السلام عليكم

بداية مميزة لكن، بالنسبة لمكان الظهور في الويندوز العربي ؟؟! طبعا هذه ليست مشكلة كبيرة
بالنسبة لبرنامج كشف الإختراق إليك الفكرة ضع برنامجاً صغيراً يقوم بفحص البورتات المفتوحة وعند الكشف عن البورت المفتوح يظهر لك النموذج السابق وفيه إختيارين Close إغلاق (غلق المنفذ) أو Allow السماح للمنفذ بالعمل
طبعا الطريقة سهلة وهي باستعمال أداة الوينسوك Winsock المشهورة
موفق بإذن الله
جزاك الله خيرا