1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

Visual Basic 6 شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

الموضوع في 'قسم فيجوال بيسك 6 و لغة Delphi' بواسطة SaMi--DZ, بتاريخ ‏5 أكتوبر 2011.

كاتب الموضوع : SaMi--DZ المشاهدات : 1,990 الردود : 3 ‏5 أكتوبر 2011
حالة الموضوع:
مغلق
  1. غير متصل

    SaMi--DZ
    rank
    Developer

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

    بسم الله الرحمن الرحيم

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


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

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

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

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

    على اداة 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
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    الإقامة:

    موفـق اخـوي
     


  3. غير متصل

    ExPLo!T-Dz <div class="alqab2">.:: فريــق الـفحـص ::.</span>
    rankrank
    مساعد مشرف

    عضو منذ:
    ‏18 سبتمبر 2011
    عدد المشاركات:
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    الإقامة:

    الله عليك ياملك
    شرح رائع ^:"

     


  4. غير متصل

    MR.BLAMS
    rank
    Developer

    عضو منذ:
    ‏17 سبتمبر 2011
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    الإقامة:

    رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

    مشكوررر يابطل ​
     


حالة الموضوع:
مغلق

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

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