Oleh karena cara kerja DNS yang
sederhana dan tidak adanya metode otentikasi dalam system komunikasi dengan
paket UDP, maka sangat memungkinkan seseorang untuk berpura-pura menjadi DNS
resolver dan mengirimkan paket jawaban palsu dengan nomor identitas yang sesuai
ke penanya sebelum paket jawaban dari DNS resolver resmi diterima oleh penanya.
Dengan cara ini,
Here I post some code that frequently used in when I work and the explanation of the code.
Monday, May 21, 2012
PNGERTIAN DNS SERVER
DNS (Domain Name System) atau Sistem Penamaan Domain adalah sebuah
sistem yang menyimpan informasi tentang nama host
maupun nama domain dalam bentuk basis data tersebar
(distributed database) di dalam
jaringan computer.
Sunday, May 20, 2012
MENAIKAN LEVEL POKEMON GBA di GPSP
WARNING : ini akan merusak kesenangan dalam bermain pokemon GBA karena semua akan terlalu mudah untuk dikalahkan.. :)
oke kita mulai saja..
Trick ini saya coba di Nokia 5530 XM dan telah di hack.. mungkin untuk nokia yang lain juga bisa jika sudah di hack..
Saya asumsikan HP anda sudah terinstal GPSP untuk bermain pokemon GBA. setelah itu yang diperlukan adalah menginstal Sorcerer.
setelah di instal kita bisa menggunkan trick ini untuk meningkatkan level pokemon dengan sangat pesat.
Thursday, August 25, 2011
PERANAN TEKNOLOGI INFORMASI DALAM PARIWISATA
Teknologi Informasi adalah istilah umum yang menjelaskan teknologi apa pun yang membantu manusia dalam membuat, mengubah, menyimpan, mengkomunikasikan dan/atau menyebarkan informasi. TI menyatukan komputasi dan komunikasi berkecepatan tinggi untuk data, suara, dan video.
Sedangkan Pariwisata adalah suatu perjalanan yang dilakukan untuk rekreasi atau liburan, dan juga persiapan yang dilakukan untuk aktivitas ini. Seorang wisatawan atau turis adalah seseorang yang melakukan perjalanan paling tidak sejauh 80 km (50 mil) dari rumahnya dengan tujuan rekreasi, merupakan definisi oleh Organisasi Pariwisata Dunia. Definisi yang lebih lengkap, turisme adalah industri jasa. Mereka menangani jasa mulai dari transportasi, jasa keramahan, tempat tinggal, makanan, minuman, dan jasa
Tuesday, June 7, 2011
Menampilkan isi tabel pada combobox dengan VB.Net
database yang digunakan yaitu database northwind.. sudah ada otomatis saat menginstall sql server..
tanpa banyak basa basi.. buatlah form seperti gambar dibawah dengan 1 buah combox, 1 buah button dan 1 buah label.

lalu buat coding di berikut :
Imports System.Data.SqlClient
Public Class Form1
Dim x As String
Private cnstr As String = "server=.;user=sa;password=123456;database=northwind"
'Private cnstr As String = "server=.;integrated security=true;database=northwind"
Private Function isian(ByVal sql As String) As DataSet
Dim ds As New DataSet
Dim da As SqlDataAdapter
Using cn As New SqlConnection(cnstr)
Try
cn.Open()
da = New SqlDataAdapter(sql, cn)
da.Fill(ds)
Catch ex As Exception
ds = Nothing
MsgBox(ex.Message)
End Try
End Using
Return ds
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.DataSource = isian("select * from categories").Tables(0)
ComboBox1.DisplayMember = "CategoryID"
ComboBox1.ValueMember = "CategoryName"
ComboBox1.SelectedValue = "CategoryName"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = (ComboBox1.SelectedValue)
End Sub
End Class
atau silahkan download di sini saja
jika membantu tolong di like atau share.. :)
tanpa banyak basa basi.. buatlah form seperti gambar dibawah dengan 1 buah combox, 1 buah button dan 1 buah label.
lalu buat coding di berikut :
Imports System.Data.SqlClient
Public Class Form1
Dim x As String
Private cnstr As String = "server=.;user=sa;password=123456;database=northwind"
'Private cnstr As String = "server=.;integrated security=true;database=northwind"
Private Function isian(ByVal sql As String) As DataSet
Dim ds As New DataSet
Dim da As SqlDataAdapter
Using cn As New SqlConnection(cnstr)
Try
cn.Open()
da = New SqlDataAdapter(sql, cn)
da.Fill(ds)
Catch ex As Exception
ds = Nothing
MsgBox(ex.Message)
End Try
End Using
Return ds
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.DataSource = isian("select * from categories").Tables(0)
ComboBox1.DisplayMember = "CategoryID"
ComboBox1.ValueMember = "CategoryName"
ComboBox1.SelectedValue = "CategoryName"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = (ComboBox1.SelectedValue)
End Sub
End Class
atau silahkan download di sini saja
jika membantu tolong di like atau share.. :)
Subscribe to:
Posts (Atom)