Program Pengunci

Mengunci Registry, Msconfig, TaskManager(Ctrl+Alt+Del) dll dgn Delphi


Berbagai cara untuk melakukan tekhnik pengamanan terhadap orang jahil dalam sebuah
sistem Windows baik 98,Me,Nt Maupun Xp salah satunya dengan membuat program pengaman.
dalam tutorial ini saya akan membuat sebuah program Dari Delphi yg dapat berguna untuk
menghindari dari seseorang yang ingin mencoba mengubah setting dari komputer kita
yaitu dengan mengunci Registry, Msconfig, TaskManager, System Restore dll, sesuai keinginan.

Caranya Dengan memakai Komponen Timer, Kemudian Atur Intervalnya=800

Berikut Source Kodenya :

{------------Potong Disini------------}

procedure TForm1.FormCreate(Sender: TObject);
{mencegah penutupan form}
var
hsysMenu:HMENU;{tutup form}
begin
hsysMenu:=GetSystemMenu(self.handle,false);
if hsysMenu<>0then
begin
EnableMenuItem(hsysMenu,SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);
DrawMenuBar(self.handle);
end;
KeyPreview:=true;
begin
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
{mencegah penutupan form & Hidden Di Taskbar}
end


procedure TForm1.Timer1Timer(Sender: TObject);
var
h:HWND;{tutup system}
BEGIN
h:=FindWindow(nil,'System Restore');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'System Restore');
if h<>0 then ShowMessage('He..he..he.. "SYSTEM RESTORE" Nggak Bakalan Kalahkan Aku');
begin
h:=FindWindow(nil,'Windows Task Manager');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Windows Task Manager');
if h<>0 then ShowMessage('He..hu..hi..ho "CTR+ALT+DEL" Masih Nggak Ampuh, Sorry Yah..! ');
begin
h:=FindWindow(nil,'System Configuration Utility');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'System Configuration Utility');
if h<>0 then ShowMessage('He..he..he.. "MSCONFIG" Nggak Bakalan Kalahkan Aku');
begin
h:=FindWindow(nil,'Registry Editor');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Registry Editor');
if h<>0 then ShowMessage('He..he..he.. "Regedit" Nggak Bakalan Kalahkan Aku');
begin
h:=FindWindow(nil,'Display Properties');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Add Or Remove Programs');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'System Properties');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Folder Options');
if h<>0 then PostMessage(h, WM_QUIT,0,0);
begin
h:=FindWindow(nil,'Folder Options');
if h<>0 then ShowMessage('Sorry Yah.. Gue Kunci');
begin
h:=FindWindow(nil,'User Accounts');
if h<>0 then PostMessage(h, WM_QUIT,0,0);
begin
h:=FindWindow(nil,'User Accounts');
if h<>0 then ShowMessage('Sorry Yah.. Gue Kunci');
end
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.

{-----------------------EOF--------------}

Kayaknya Jari Gue udah kriting dan Sekian dulu Tutorial dari saya
Jika Ada komentar, Kritikan dan saran silahkan
friendster disini

Author:-The Character-
Greetz : All crew COCONUT, gOBar, f4j4r, 4Kml, f4R!ed, aMat, 4D0Ng, iR4, uNhi, sOnie, Wina, f4chrie, cibal, 4Mr4n, and all SCAN TO COMPILE 2008

Read More

Perintah NET di Windows XP

untuk kesekian kalinya menulis lagi, moga2 bukan pula yang
terakhir kali aku nulis kayak ginian. Nggak Usah basa-basi deh, T0_th3_p01nt aja

WindowsXP menyediakan sebuah program kecil dengan nama file 'Net.exe' yang terdapat
dalam direktori "C:\WINDOWS\SYSTEM32\Net.exe" yang hanya bisa dijalankan di Command Prompt.
tau nggak dengan program ini kita bisa melakukan banyak hal seperti:
1. Menambah User baru
2. Mengubah Status User ke Status Administrator
3. Merubah/Mengganti Password user & Administrator
4. Menghapus User
5. Mengirim Pesan dalam sebuah jaringan Dll

Ini dilakukan dengan cara :
- masuk ke command prompt. klik Start->Run->Lalu ketik "Command"
- untuk melakukan cara yang nomor 1 (Menambah User baru)
Ketik ini:

C:\>net user namauserKamu /add [lalutekan Enter]
The command completed successfully.

- untuk melakukan cara yang nomor 2 (Mengubah Status User ke Status Administrator)
Ketik ini:

C:\>net localgroup administrators namauserKamu /add [lalutekan Enter]
The command completed successfully.

- untuk melakukan cara yang nomor 3 (Merubah/Mengganti Password user & Administrator)
Ketik ini:

C:\>net user namauserKamu passwordBaruKAMU [lalutekan Enter]
The command completed successfully.

- untuk melakukan cara yang nomor 4 (Menghapus User)
Ketik ini:

C:\>net user namauser /delete [lalutekan Enter]
The command completed successfully.

- untuk melakukan cara yang nomor 5 (Mengirim pesan dalam sebuah jaringan)
Ketik ini:

C:\>net send TujuanKamu PesanKamu [lalutekan Enter]
The message was successfully sent to COCONUT.

Ket: Tujuan Disini Berarti Nama komputer Tujuan bisa juga alamat IP address


Sekian sedikit tutorial dari saya mengenai Net.exe. Penulis Tidak Bertanggung jawab Atas
penyalagunaan artikel ini. Bila ada kritikan dan pukulan silahkan di Email atau testi:


Author:-The Character-
Greetz : All crew COCONUT, gOBar, f4j4r, 4Kml, f4R!ed, aMat, 4D0Ng, iR4, uNhi, sOnie, Wina, f4chrie, cibal, 4Mr4n, and all SCAN TO COMPILE 2008

Read More