Feri antonius

1. Spoofing Spoofing adalah teknik untuk mendapatkan akses yang tidak sah ke suatu komputer atau informasi. Dalam teknik Spoofing, untuk memalsukan bahwa mereka adalah host yang terpercaya, penyerang berpura-pura agar pengguna tidak mengetahui teknik ini. 2. DDOS (distributed denial of service) Serangan DDOS merupakan serangan trhadap komputer atau server di dalam sebuah jaringan dengan cara menghabiskan resource yang dimiliki komputer. Sehingga komputer tersebut tidak bisa berjalan dengan baik sehingga secara tidak langsung mencegah pengguna lain memperoleh akses layanan dari komputer yang diserang. 3.DNS Poisoning DNS Poisoning adalah cara untuk menembus pertahanan dengan menyampaikan IP Address mengenai host. DNS Poisoning mempunyai tujuan mengalihkan lalu lintas paket data dari tujuan aslinya. 4. Sniffer Sniffer Paket atau penganalisa paket dapat pula diartikan 'penyadap paket') yang juga dikenal sebagai Network Analyzers atau Ethernet Sniffer ialah sebuah ap...

Private Sub cmdBatal_Click() txtNama = "" txtNik = "" txtGol = "" txtKode = "" txtStatus = "" txtTahun = "" txtJabatan = "" txtBagian = "" txtGapok = "" txtTunjangan = "" txtTotalg = "" txtTerbilang = "" End Sub ------------------------------------------------------------------------------------------- Private Sub cmdKeluar_Click() End End Sub ------------------------------------------------------------------------------------------- Private Sub cmdLagi_Click() txtNama = "" txtNik = "" txtGol = "" txtKode = "" txtStatus = "" txtTahun = "" txtJabatan = "" txtBagian = "" txtGapok = "" txtTunjangan = "" txtTotalg = "" txtTerbilang = "" End Sub --------------------------------------------------------------------------...

Private Sub cmdBatal_Click() Txtkode = "" TxtJudul = "" TxtPengarang = "" TxtTahun = "" TxtPenerbit = "" TxtHarga = "" Txtkode.SetFocus End Sub --------------------------------------------------------------------- Private Sub cmdKeluar_Click() End End Sub --------------------------------------------------------------------- Private Sub cmdLagi_Click() Txtkode = "" TxtJudul = "" TxtPengarang = "" TxtTahun = "" TxtPenerbit = "" TxtHarga = "" Txtkode.SetFocus End Sub --------------------------------------------------------------------- Private Sub cmdProses_Click() Dim kode As String kode = Left(Txtkode.Text, 3) If kode = "SIM" Then TxtJudul.Text = "Sistem Informasi Manajemen" TxtPengarang.Text = "Fadiya Ulfa" TxtHarga.Text = "75900" ElseIf kode = "EDP" Then TxtJudul.Text = "Elekt...

Private Sub cmdkeluar_Click() End End Sub ------------------------------------------------ Private Sub cmdlagi_Click() txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttotalb = "" End Sub ------------------------------------------------ Private Sub cmdproses_Click() Dim kode As String kode = Left(txtkt.Text, 3) If kode = "BIM" Then txtht.Text = "50000" txtjk.Text = "BIMA" txtjb.Text = "16.00" ElseIf kode = "EKO" Then txtht.Text = "35000" txtjk.Text = "EKONOMI" txtjb.Text = "19.00" ElseIf kode = "MUT" Then txtht.Text = "23000" txtjk.Text = "MUTIARA" txtjb.Text = "17.00" ElseIf kode = "SEN" Then txtht.Text = "15000" txtjk.Text = "SENJA" txtjb.Text = "20.00" End If txtjt.SetFocus End Sub -------------------------------------...

Private Sub cmdBatal_Click() Cbokode = "" TxtJudul = "" TxtPengarang = "" TxtTahun = "" TxtPenerbit = "" TxtHarga = "" Cbokode.SetFocus End Sub ------------------------------------------------------------- Private Sub cmdKeluar_Click() End End Sub ------------------------------------------------------------- Private Sub cmdLagi_Click() Cbokode = "" TxtJudul = "" TxtPengarang = "" TxtTahun = "" TxtPenerbit = "" TxtHarga = "" Cbokode.SetFocus End Sub  ------------------------------------------------------------- Private Sub cmdProses_Click() Dim kode As String kode = Mid(Cbokode.Text, 3, 3) If kode = "SIM" Then TxtJudul.Text = "Sistem Informasi Manajemen" TxtPengarang.Text = "Yati Nur Oktavia" TxtHarga.Text = "75900" ElseIf kode = "EDP" Then TxtJudul.Text = "Elektronik Data Proces...

Private Sub cbokode_Click() Dim merk, harga, hm As Integer Select Case cbokode.Text Case "Apple MC965 MacBook Air" merk = "Apple MacBook Air MC965" harga = "12800000" Case "Apple MC966 MacBook Air" merk = "Apple MacBook Air MC966" harga = "15800000" Case "Apple MC968 MacBook Air" merk = "Apple MacBook Air MC968" harga = "9900000" Case "Apple MC969 MacBook Air" merk = "Apple MacBook Air MC969" harga = "11900000" Case "Apple MC700 MacBook Pro" merk = "Apple MacBook Pro MC700" harga = "10800000" Case "Apple MC721 MacBook Pro" merk = "Apple MacBook Pro MC721" harga = "15900000" Case "Aplle MC723 MacBook Pro" merk = "Apple MacBook Pro MC723" harga = "19300000" Case "Apple MC724 MacBook Pro" merk = "Apple MacBook Pro MC724" harga = ...