MACAM MACAM KEJAHATAN INTERNET

Berikut sejumlah jenis kejahatan via internet

CARDING
Carding adalah berbelanja menggunakan nomor dan identitas kartu kredit orang lain, yang diperoleh secara ilegal, biasanya dengan mencuri data di internet. Sebutan pelakunya adalah Carder. Sebutan lain untuk kejahatan jenis ini adalah cyberfroud alias penipuan di dunia maya.

HACKING
Hacking adalah kegiatan menerobos program komputer milik orang/pihak lain. Hacker adalah orang yang gemar ngoprek komputer, memiliki keahlian membuat dan membaca program tertentu, dan terobsesi mengamati keamanan (security)-nya. Hacker memiliki wajah ganda; ada yang budiman ada yang pencoleng.
Hacker Budiman memberi tahu kepada programer yang komputernya diterobos, akan adanya kelemahan-kelemahan pada program yang dibuat, sehingga bisa “bocor”, agar segera diperbaiki. Sedangkan, hacker pencoleng, menerobos program orang lain untuk merusak dan mencuri datanya.
CRACKING
Cracking adalah hacking untuk tujuan jahat. Sebutan untuk cracker adalah hacker bertopi hitam (black hat hacker). Berbeda dengan carder yang hanya mengintip kartu kredit, cracker mengintip simpanan para nasabah di berbagai bank atau pusat data sensitif lainnya untuk keuntungan diri sendiri.
Meski sama-sama menerobos keamanan komputer orang lain, hacker lebih fokus pada prosesnya. Sedangkan cracker lebih fokus untuk menikmati hasilnya.
DEFACING
Defacing adalah kegiatan mengubah halaman situs/website pihak lain, seperti yang terjadi pada situs Menkominfo dan Partai Golkar, BI baru-baru ini dan situs KPU saat pemilu 2004 lalu. Tindakan deface ada yang semata-mata iseng, unjuk kebolehan, pamer kemampuan membuat program, tapi ada juga yang jahat, untuk mencuri data dan dijual kepada pihak lain.

PHISING
Phising adalah kegiatan memancing pemakai komputer di internet (user) agar mau memberikan informasi data diri pemakai (username) dan kata sandinya (password) pada suatu website yang sudah di-deface. Phising biasanya diarahkan kepada pengguna online banking. Isian data pemakai dan password yang vital yang telah dikirim akhirnya akan menjadi milik penjahat tersebut dan digunakan untuk belanja dengan kartu kredit atau uang rekening milik korbannya.

SPAMMING
Spamming adalah pengiriman berita atau iklan lewat surat elektronik (e-mail) yang tak dikehendaki. Spam sering disebut juga sebagai bulk email atau junk e-mail alias “sampah”. Meski demikian, banyak yang terkena dan menjadi korbannya. Yang paling banyak adalah pengiriman e-mail dapat hadiah, lotere, atau orang yang mengaku punya rekening di bank di Afrika atau Timur Tengah, minta bantuan netters untuk mencairkan, dengan janji bagi hasil.
Kemudian korban diminta nomor rekeningnya, dan mengirim uang/dana sebagai pemancing, tentunya dalam mata uang dolar AS, dan belakangan tak ada kabarnya lagi. Seorang rektor universitas swasta di Indonesia pernah diberitakan tertipu hingga Rp1 miliar dalam karena spaming seperti ini.

MALWARE
Malware adalah program komputer yang mencari kelemahan dari suatu software. Umumnya malware diciptakan untuk membobol atau merusak suatu software atau operating system. Malware terdiri dari berbagai macam, yaitu: virus, worm, trojan horse, adware, browser hijacker, dll. Di pasaran alat-alat komputer dan toko perangkat lunak (software) memang telah tersedia antispam dan anti virus, dan anti malware .
Meski demikian, bagi yang tak waspadai selalu ada yang kena. Karena pembuat virus dan malware umumnya terus kreatif dan produktif dalam membuat program untuk mengerjai korban-korbannya.

Monkeyboot - Sederhana Dengan Banyak Cinta

Keras hidup kujalani ku hadapi dengan pasti...., 
Walaupun terkadang ku terjatuh ku akan berdiri lagi..., 
Ku memang tak pernah rasakan hidup dalam kemewahan..., 
Sederhana saja berteman kerasnya hidup di jalanan..., 

Kerja keras setiap hari demi keluarga.. 
Tak perduli panas, hujan, badai datang menghampiri ku tetap berlari,..., 
Tapi satu hal yang pasti ku tetap bersyukur pada hidup ini.. 
Jalani saja semuanya, karena ku hanya ingin hidup.. 

SEDERHANA , BAHAGIA, DGN BANYAK CINTA.....

SEDERHANA , BAHAGIA, DGN BANYAK CINTA.....

wahh...ni lagu bener bener nyentuh banget gan,,
Kalo mau download lagunya lansung saja sedot DISINI gan..

thank,,,semoga menghibur

Rumus Bangun Ruang Dan Bangun Datar Dengan Lazarus

 

Scrip programnya:

unit setyo09;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  ExtCtrls, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit30: TEdit;
    Edit31: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Hasilnya: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Hasil: TLabel;
    Image1: TImage;
    Image10: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Label1: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label2: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label3: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label4: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    RadioButton1: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    RadioButton15: TRadioButton;
    RadioButton16: TRadioButton;
    RadioButton17: TRadioButton;
    RadioButton18: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    Sisi: TLabel;
    VOLUME: TRadioButton;
    LUAS: TRadioButton;
    Tinggi: TLabel;
    Lebar: TLabel;
    Panajang: TLabel;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Edit23Change(Sender: TObject);
    procedure HasilnyaClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image10Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure MenuItem10Click(Sender: TObject);
    procedure MenuItem11Click(Sender: TObject);
    procedure MenuItem12Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem5Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure MenuItem7Click(Sender: TObject);
    procedure MenuItem8Click(Sender: TObject);
    procedure MenuItem9Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure Panel5Click(Sender: TObject);
    procedure Panel7Click(Sender: TObject);
    procedure VOLUMEChange(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Visible:=False;
  Panel2.Visible:=False;
  Panel3.Visible:=False;
end;

procedure TForm1.Image10Click(Sender: TObject);
begin

end;

procedure TForm1.Image1Click(Sender: TObject);
begin

end;

procedure TForm1.Label8Click(Sender: TObject);
begin

end;

procedure TForm1.MenuItem10Click(Sender: TObject);
begin
  Panel4.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel1.Visible:=False;
  Panel5.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem11Click(Sender: TObject);
begin
  Panel5.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel1.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem12Click(Sender: TObject);
begin

  Panel11.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel1.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel5.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.HasilnyaClick(Sender: TObject);
begin
  //try
     if VOLUME.Checked = true then
        Edit4.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text)*StrToFloat(Edit3.Text))
      else if LUAS.Checked = True then
        Edit4.Text:=FloatToStr((2*StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text))+(2*StrToFloat(Edit1.Text)*StrToFloat(Edit3.Text))+(2*StrToFloat(Edit2.Text)*StrToFloat(Edit3.Text)))
      else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek dulu');
    // end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //try
     if RadioButton1.Checked = true then
        Edit6.Text:=FloatToStr(StrToFloat(Edit5.Text)*StrToFloat(Edit5.Text)*StrToFloat(Edit5.Text))
      else if RadioButton2.Checked = True then
        Edit6.Text:=FloatToStr(6*(StrToFloat(Edit5.Text)*StrToFloat(Edit5.Text)))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 //try
     if RadioButton3.Checked = true then
        Edit10.Text:=FloatToStr(1/3*3.14*StrToFloat(Edit8.Text)*StrToFloat(Edit8.Text)*StrToFloat(Edit9.Text))
      else if RadioButton4.Checked = True then
        Edit10.Text:=FloatToStr((3.14*StrToFloat(Edit8.Text)*StrToFloat(Edit7.Text))+(3.14*StrToFloat(Edit8.Text)*StrToFloat(Edit8.Text)))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   //try
     if RadioButton5.Checked = true then
        Edit12.Text:=FloatToStr(4/3*3.14*StrToFloat(Edit11.Text)*StrToFloat(Edit11.Text)*StrToFloat(Edit11.Text))
      else if RadioButton6.Checked = True then
        Edit12.Text:=FloatToStr(4*3.14*StrToFloat(Edit11.Text)*StrToFloat(Edit11.Text))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  //try
     if RadioButton7.Checked = true then
        Edit15.Text:=FloatToStr(3.14*StrToFloat(Edit13.Text)*StrToFloat(Edit13.Text)*StrToFloat(Edit14.Text))
      else if RadioButton8.Checked = True then
        Edit15.Text:=FloatToStr((2*3.14*StrToFloat(Edit13.Text)*StrToFloat(Edit14.Text))+(2*3.14*StrToFloat(Edit13.Text)*StrToFloat(Edit13.Text)))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  //try
     if RadioButton9.Checked = true then
        Edit17.Text:=FloatToStr(StrToFloat(Edit16.Text)*StrToFloat(Edit16.Text))
      else if RadioButton10.Checked = True then
        Edit17.Text:=FloatToStr(4*StrToFloat(Edit16.Text))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  //try
     if RadioButton11.Checked = true then
        Edit20.Text:=FloatToStr(StrToFloat(Edit18.Text)*StrToFloat(Edit19.Text))
      else if RadioButton12.Checked = True then
        Edit20.Text:=FloatToStr(2*(StrToFloat(Edit18.Text)+(StrToFloat(Edit19.Text))))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  //try
     if RadioButton13.Checked = true then
        Edit23.Text:=FloatToStr(1/2*StrToFloat(Edit21.Text)*StrToFloat(Edit22.Text))
      else if RadioButton14.Checked = True then
        Edit23.Text:=FloatToStr(StrToFloat(Edit21.Text)+(StrToFloat(Edit22.Text)+(StrToFloat(Edit24.Text))))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  //try
     if RadioButton15.Checked = true then
        Edit26.Text:=FloatToStr(3.14*StrToFloat(Edit25.Text)*StrToFloat(Edit25.Text))
      else if RadioButton16.Checked = True then
        Edit26.Text:=FloatToStr(2*3.14*StrToFloat(Edit25.Text))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  //try
     if RadioButton17.Checked = true then
        Edit31.Text:=FloatToStr(1/2*((StrToFloat(Edit27.Text)+StrToFloat(Edit28.Text))*StrToFloat(Edit30.Text)))
      else if RadioButton18.Checked = True then
        Edit31.Text:=FloatToStr(StrToFloat(Edit27.Text)+StrToFloat(Edit28.Text)+StrToFloat(Edit29.Text)+StrToFloat(Edit30.Text))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Edit23Change(Sender: TObject);
begin

end;

procedure TForm1.MenuItem1Click(Sender: TObject);
begin

end;

procedure TForm1.MenuItem2Click(Sender: TObject);
begin
  Panel1.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel5.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem3Click(Sender: TObject);
begin
  Panel3.Visible:=True;
  Panel2.Visible:=False;
  Panel1.Visible:=False;
  Panel4.Visible:=False;
  Panel5.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem4Click(Sender: TObject);
begin
  Panel2.Visible:=True;
  Panel3.Visible:=False;
  Panel1.Visible:=False;
  Panel4.Visible:=False;
  Panel5.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem5Click(Sender: TObject);
begin

end;

procedure TForm1.MenuItem6Click(Sender: TObject);
begin
  Panel6.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel1.Visible:=False;
  Panel5.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem7Click(Sender: TObject);
begin
  Panel7.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel1.Visible:=False;
  Panel6.Visible:=False;
  Panel5.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem8Click(Sender: TObject);
begin
  Panel9.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel1.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel5.Visible:=False;
  Panel11.Visible:=False;
  Panel10.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem9Click(Sender: TObject);
begin
  Panel10.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel1.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel5.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin

end;

procedure TForm1.Panel2Click(Sender: TObject);
begin

end;

procedure TForm1.Panel3Click(Sender: TObject);
begin

end;

procedure TForm1.Panel4Click(Sender: TObject);
begin

end;

procedure TForm1.Panel5Click(Sender: TObject);
begin

end;

procedure TForm1.Panel7Click(Sender: TObject);
begin

end;

procedure TForm1.VOLUMEChange(Sender: TObject);
begin

end;

end.

Menyisipkan Gambar

- Klik menu Additional, kemudian pilih TImage . seperti pada gambar diatas.
-Pilih gambar dan sisipkan


==========> SELAMAT MENCOBA <==========

latihan soal SBDL

 tabel soal