1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
  2. الملاحظات
    عزيزي زائر تم اطلاق الموقع الرسمي لبرنامج الاختراق Spy-Note
    إستبعاد الملاحظة
  3. الملاحظات
    عزيزي زائر حصرياً : التقنيات النهائية لإصتياد المواقع المٌصابة بثغرات الحقن يدوياً وألياً متابعة الموضوع
    إستبعاد الملاحظة
حالة الموضوع:
مغلق
  1. SaMi--DZ
    rank
    Developer

    عضو منذ:
    ‏5 أكتوبر 2011
    عدد المشاركات:
    36
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    الوظيفة:
    NoThinG
    الإقامة:
    AlGeRiA
    بسم الله الرحمن الرحيم

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


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

    هذه الفئة الجديدة و هذا عادي ان لا نرى مواضيع كثيرة

    و لا يهمنا عدد المواضيع بقدر ما يهمنا نوعيتها

    اليوم نشرح صناعة برنامج لارسال الرسائل من دون الاعتماد

    على اداة Winsock المزعجة كما تستطيع ملف مع الرسالة

    الطريقة بسيطة جدا و سنشرحها

    و حتى نحفظ الحقوق الطريقة ليست من استكشافي

    نحتاج الى برنامج Microsoft Visual Basic 6.0

    نفتح البرنامج و نتابع الشرح بالصور



    [​IMG]

    نضغط دوبل كليك على الفورم

    [​IMG]

    و نضنيف هذا الكود

    كود PHP:
    Option Explicit   Private Sub Form_Load()     Dim c As New Class1           With c         .Server "smtp.live.com"         .Port 587         .Server "smtp.gmail.com"         .Port 465         .UseAuntentificacion True         .SSL True                   .User "امليكـــ"         .Password "باسوورد الاميل"                   .Subject "Example" ' عنوان الرسالة         .AttachedFile = "c:\File.zip" 'في حال اردت ارسال ملف مع الرسالة                   .From "اعد كتابة اميلك"         .Destinatary "الاميل الذي تريد الارسال اله"         .Message "اكتب الرسالة هنا"                   If .SendMail Then MsgBox "Mail Sent"vbInformation"cSendMail" ' ستضهر هذه الرسالة في حال تم الارسال بنجاح           End With           Set c = Nothing End Sub
    بعد ملئ المشروح لا تنسى حذف الكتابة

    التي بالعربية حتى لا تقع في خطا

    الان نضيف Class


    [​IMG]

    و نضيف ...

    [​IMG]

    كود PHP:
    Option Explicit '====================================================================== ' ? Class      : cSendMail ' ? Author     : Mr.Frog © ' Country    Spain ' ? Mail       : vbpsyke1@mixmail.com ' Dedicated  f0rce limited ' ? Twitter    : http://twitter.com/#!/PsYkE1 ' Reference  '       http://goo.gl/Mdqlv [recursosvisualbasic.com.ar] ' Recommended ************sites '       http://foro.h-sec.org '       http://www.hackhound.biz '       http://InfrAngeluX.Sytes.Net '====================================================================== Private Declare Function GetFileAttributesW Lib "KERNEL32" (ByVal lpFileName As Long) As Long Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long   Private Const MICROSOFT_CDO_CONFIGURATION$ = "http://schemas.microsoft.com/cdo/configuration/"   Private lngPort& Private strUser$ Private strPass$ Private strFrom$ Private strServer$ Private strSubject$ Private strMessage$ Private strDestinatary$ Private strAttachedFile$ Private objCDO                  As Object Private bolUseAuntentificacion  As Boolean Private bolSSL                  As Boolean   '~~~~~~~~~~~~~~~~~~~> Properties Friend Property Let Server(ByRef Value$): strServer = Value: End Property Friend Property Let Destinatary(ByRef Value$): strDestinatary = Value: End Property Friend Property Let From(ByRef Value$): strFrom = Value: End Property Friend Property Let Subject(ByRef Value$): strSubject = Value: End Property Friend Property Let Message(ByRef Value$): strMessage = Value: End Property Friend Property Let AttachedFile(ByRef Value$): strAttachedFile = Value: End Property Friend Property Let Port(ByVal Value&): lngPort = Value: End Property Friend Property Let User(ByRef Value$): strUser = Value: End Property Friend Property Let Password(ByRef Value$): strPass = Value: End Property Friend Property Let UseAuntentificacion(ByVal Value As Boolean): bolUseAuntentificacion = Value: End Property Friend Property Let SSL(ByVal Value As Boolean): bolSSL = Value: End Property   '~~~~~~~~~~~~~~~~~~~> Function Friend Function SendMail() As Boolean     If InternetGetConnectedState(&H0&, &H0&) Then         If LenB(strPass) = 0 Then Exit Function         If LenB(strUser) = 0 Then Exit Function         If LenB(strFrom) = 0 Then Exit Function         If LenB(strServer) = 0 Then Exit Function         If LenB(strDestinatary) = 0 Then Exit Function         If lngPort < 0 Or lngPort > &HFDE8& Then Exit Function           On Error GoTo FatalError         With objCDO             With .Configuration                 .Fields(MICROSOFT_CDO_CONFIGURATION & "smtpserver") = strServer                 .Fields(MICROSOFT_CDO_CONFIGURATION & "sendusing") = &H2&                                   With .Fields                     .Item(MICROSOFT_CDO_CONFIGURATION & "smtpserverport") = lngPort                     .Item(MICROSOFT_CDO_CONFIGURATION & "smtpauthenticate") = Abs(bolUseAuntentificacion)                     .Item(MICROSOFT_CDO_CONFIGURATION & "smtpconnectiontimeout") = &HA&                               If bolUseAuntentificacion Then                         .Item(MICROSOFT_CDO_CONFIGURATION & "sendusername") = strUser                         .Item(MICROSOFT_CDO_CONFIGURATION & "sendpassword") = strPass                         .Item(MICROSOFT_CDO_CONFIGURATION & "smtpusessl") = bolSSL                     End If                                           .Update                 End With             End With                   .To = strDestinatary             .From = strFrom             .Subject = strSubject             .TextBody = strMessage                   If LenB(strAttachedFile) Then                 '// GetFileAttributesW is the fastest way to check if a file exists.                 If GetFileAttributesW(StrPtr(strAttachedFile)) > -1 Then                     .AddAttachment (strAttachedFile)                 End If             End If               .Send         End With                   SendMail = True     End If       FatalError: End Function   Private Sub Class_Initialize()     Set objCDO = CreateObject("CDO.Message") End Sub   Private Sub Class_Terminate()     Set objCDO = Nothing End Sub
    و نحفظ عملنا

    [​IMG]

    الان نضغط دوبل كليك على و اذا تم الارسال بنجاح

    ستضهر هذه النافدة


    [​IMG]

    الان نذهب للاميل الذي ارسلنا اليه الرسالة

    [​IMG]

    [​IMG]

    تحميل الصور و الاكواد

    http://filaty.com/s/xnO

    نلتقي في موضوع اخر

     
    جاري تحميل الصفحة...
  2. احمد العراقي
    ExpErt DeveloPer

    عضو منذ:
    ‏17 سبتمبر 2011
    عدد المشاركات:
    155
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    الإقامة:
    ~ IQ-T34M ~
    نظام التشغيل:
    Linux
    حسابي في الزون اتش Zone-H:
    Facebook:
    YouTube:
  3. ExPLo!T-Dz <div class="alqab2">.:: فريــق الـفحـص ::.</span>
    rankrank
    مساعد مشرف

    عضو منذ:
    ‏18 سبتمبر 2011
    عدد المشاركات:
    65
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    30
    الإقامة:
    D Z
    الله عليك ياملك
    شرح رائع ^:"

     
  4. MR.BLAMS
    rank
    Developer

    عضو منذ:
    ‏17 سبتمبر 2011
    عدد المشاركات:
    19
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    5
    الإقامة:
    Qatar
    رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

    مشكوررر يابطل ​
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة

جاري تحميل الصفحة...