#12 Script Morphiri.inf


Morphiri.inf

On error resume next
Dim fso, Wshshell, drive, opsi, dsx
Set objie = CreateObject(“InternetExplorer.Application”)
set fso=CreateObject(“Scripting.FileSystemObject”)
set Wshshell=Wscript.CreateObject(“Wscript.Shell”)
For each dx in fso.drives
dsx = dsx & “<option value=” & dx.driveletter & “>” & dx & “</option>”
Next
objie.Navigate “about:blank”
objie.Document.Title = “Fake Smad-Lock”
objie.Toolbar=0
objie.Resizable = 0
objie.StatusBar = 0
objie.Document.Body.Scroll = “no”
objie.Width=100
objie.Height=150
with objie.document.parentwindow.screen
objie.left = (.availwidth – objie.width) \ 2
objie.top = (.availheight – objie.height) \ 2
End with
objie.Visible = 1
objie.Document.Body.InnerHtml = “<table><tr><td width=’50%’><b>Drive :</b><br><select name=’drive’ id=’drive’>” & chr(13) & _
dsx & “</select></td><td width=’30%’><b>Options :</b><br><select name=’opsi’ id=’opsi’><option value=’0′>” & chr(13) & _
“Lock</option><option value=’1′>Unlock</option></select></td></tr></table>” & chr(13) & _
“<input type=’hidden’ id=’OK’ name=’OK’ value=’0′><br><center><input type=’submit’ value=’OK'” & chr(13) & _
” onclick=’VBscript:OK.Value = 1′></center>”
wscript.sleep 500
Wshshell.AppActivate “Fake Smad-Lock”
do while objie.Document.All.OK.Value = 0
Wscript.Sleep 200
loop
opsi = objie.Document.All.opsi.Value
drive = objie.Document.All.drive.Value
objie.quit
If opsi = 0 then
wshshell.Run(“cmd.exe /c Md \\.\” & drive & “:\autorun.inf\con\aux\nul”), 0, true
Wshshell.Run(“cmd.exe /c Md ” & chr(34) & “\\.\” & drive & “:\autorun.inf\con\aux\nul. This autorun.inf is LOCKED by SMAD” & ChrW(916) & “V to protect your Flash-Disk from virus infection. ” & chr(34)), 0, true
fso.CreateFolder (drive & “:\” & ChrW(916) & ” Smad-Lock (Brankas Smadav) ” & ChrW(916))
Else
wshshell.Run(“cmd.exe /c Rd /s /q \\.\” & drive & “:\autorun.inf”), 0, true
fso.DeleteFolder (drive & “:\” & ChrW(916) & ” Smad-Lock (Brankas Smadav) ” & ChrW(916)), true
End if

lalu simpan dengan nama : morphiri.inf
save as type : All Files
Encoding : Unicode
kemudian save as.

Cara Penginstallan :
Klik kanan pada virus yang anda buat lalu kilik install selesai deh.

Selamat Berkreasi!
./decrypto

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s