Sabtu, 21 Juni 2008

Program Security

Enkripsi adalah merupakan kegiatan penyandian data dengan tujuan agar data yang ada tidak dapat dibaca secara langsung oleh orang yang tidak berhak, contohnya password. silahkan download link contoh program enkripsi dan deskripsi.....


Di kolom toturial, anda dapat melihat cara penggunaan enkripsi dan deskripsi menggunakan bahasa pemrograman visual basic 6.0, dibawah ini adalah link contoh-contoh program untuk enkripsi dan deskripsi, silahkan download sepuasnya...

  1. Download Link(s)
  2. http://www.ziddu.com/download.php?uid=Z62bnJiqZaualuKnZaqhkZSrYqyalZqo5
  3. http://www.ziddu.com/download.php?uid=bK%2BhmpWsZLGfluKnZKqhkZSrYayamZ2q4
  4. http://www.ziddu.com/download.php?uid=Z62im5Ssaa%2Bbl5bzaKqZnJGlbKeblZ2rbQ%3D%3D6
  5. http://www.ziddu.com/download.php?uid=ca2al5ynbbGiluKnaKqhkZSrZayampiu8
  6. http://www.ziddu.com/download.php?uid=YrKilZysYbKcnOKnYaqhkZSrXqyalZem1
  7. http://www.ziddu.com/download.php?uid=arObm5qqaqqhm5ant6yZlJyiabCWlpWt9
  8. http://www.ziddu.com/download.php?uid=a66gmJSpb6ygnOKnaaqhkZSrZqyalZum9
  9. http://www.ziddu.com/download.php?uid=Z66il5WpYbChnZ2nr6yZlJyiYbCWlpWt1
  10. http://www.ziddu.com/download.php?uid=arCal52sYquanZaoY%2FiblJStXqqfkZamaQ%3D%3D1
  11. http://www.ziddu.com/download.php?uid=bLOalp2qZq2inZipZviblJStYaqfkZamag%3D%3D4
  12. http://www.ziddu.com/download.php?uid=a7Cem5WlbaqdnOKnZ6qhkZSrZKyal5as7
  13. http://www.ziddu.com/download.php?uid=bKudmZWmbrGdmZant6yZlJyiabCWlpWp9
  14. http://www.ziddu.com/download.php?uid=abCalpmmZrOinJ2uY%2FiblJStXqqfkZamZQ%3D%3D1
  15. http://www.ziddu.com/download.php?uid=abOalJqubbKZlOKnZ6qhkZSrZKyalpSm7
  16. http://www.ziddu.com/download.php?uid=Z7Ghl52lbLGeluKnZKqhkZSrYayalpqu4
  17. http://www.ziddu.com/download.php?uid=ZaufmJaubKqhlJTzZqqZnJGlaqeblZylaQ%3D%3D4
  18. http://www.ziddu.com/download.php?uid=bq%2BalJ2mbK2ZlZaqZ%2FiblJStZKqfkZamaQ%3D%3D7
  19. http://www.ziddu.com/download.php?uid=a7CgmZ2qbbGdluKnZqqhkZSrY6yal52s6
  20. http://www.ziddu.com/download.php?uid=a7GalZalaq2ilZqqbPiblJStYaqfkZamag%3D%3D4
  21. http://www.ziddu.com/download.php?uid=Z6qglpurarKZlJSlsKyZlJyiYrCWlpWr2
  22. http://www.ziddu.com/download.php?uid=a62fmpWtbbKZlOKnZ6qhkZSrZKyal5Ss7
  23. http://www.ziddu.com/download.php?uid=ZbGhmJSoYrOeluKnYqqhkZSrX6yalpqu2
  24. http://www.ziddu.com/download.php?uid=aK6blJesbK%2BflZ2ntayZlJyiZ7CWlpWn7
  25. http://www.ziddu.com/download.php?uid=ca6flJSuba6elOKnaKqhkZSrZayampmq8
  26. http://www.ziddu.com/download.php?uid=aayimZutYbGinOKnYaqhkZSrXqyamZum1


Download Link(s)
http://www.ziddu.com/download.php?uid=a6qalZqpZrOhlJylY%2FiblJStYKqfkZamZw%3D%3D3
http://www.ziddu.com/download.php?uid=arOalZiua66cnJutZfiblJStYKqfkZamZQ%3D%3D3
http://www.ziddu.com/download.php?uid=aKucmZatcLCempzzaaqZnJGlbaeblZutbg%3D%3D7
http://www.ziddu.com/download.php?uid=Zaqcm5qua7OiluKnY6qhkZSrYKyalZim3
http://www.ziddu.com/download.php?uid=aLObm5qqa6%2BZm5antayZlJyiZ7CWlpWp7

Read More......

Enkripsi and Deskripsi

Enkripsi adalah merupakan kegiatan penyandian data dengan tujuan agar data yang ada tidak dapat dibaca secara langsung oleh orang yang tidak berhak, contohnya password. Di sini saya akan mencoba untuk membahas tentang cara melakukan enksripsi dengan memanfaatkan operator XOR.

Operator XOR selain dapat digunakan untuk menyandikan data juga sekaligus dapat digunakan untuk mengembalikan data yang sudah disandikan kebentuk semula (dekripsi). Hal ini disebabkan karena karakteristik yang dimiliki oleh operator XOR tersebut.


Operator XOR selain dapat digunakan untuk menyandikan data juga sekaligus dapat digunakan untuk mengembalikan data yang sudah disandikan kebentuk semula (dekripsi). Hal ini disebabkan karena karakteristik yang dimiliki oleh operator XOR tersebut.
Enkripsi adalah merupakan kegiatan penyandian data dengan tujuan agar data yang ada tidak dapat dibaca secara langsung oleh orang yang tidak berhak, contohnya password. Di sini saya akan mencoba untuk membahas tentang cara melakukan enksripsi dengan memanfaatkan operator XOR.

Berikut ilustrasi dari karakteristik XOR dalam suatu operasi bilangan biner.


Penggunaan operator XOR untuk menyandikan data dapat dilihat pada contoh program berikut :


Kode Program

Option Explicit

Private Function cipher (ByVal text As String, _
ByVal crypNum As Byte) As String
Dim i As Byte
Dim temp As String

temp = Empty

If Len(text) > 0 Then
For i = 1 To Len(text)
temp = temp & Chr((Asc(Mid(text, i, 1)) Xor crypNum))
Next
End If
cipher = temp
End Function

Private Sub Form_Load()
Show
txtDataAsli.SetFocus
txtDataHasil.Enabled = False
optEnkripsi.Value = True
End Sub

Private Sub optEnkripsi_Click()
txtDataHasil.text = Empty
txtDataHasil.Enabled = False

txtDataAsli.Enabled = True
txtDataAsli.SetFocus
txtDataAsli.SelStart = 0
txtDataAsli.SelLength = Len(txtDataAsli.text)
End Sub

Private Sub optDekripsi_Click()
txtDataAsli.text = Empty
txtDataAsli.Enabled = False

txtDataHasil.Enabled = True
txtDataHasil.SetFocus
txtDataHasil.SelStart = 0
txtDataHasil.SelLength = Len(txtDataAsli.text)
End Sub

Private Sub cmdOK_Click()
If optEnkripsi.Value Then
txtDataHasil.text = cipher(txtDataAsli.text, 17)
Else
txtDataAsli.text = cipher(txtDataHasil.text, 17)
End If
End Sub

Read More......

Membuat Serial Number

Pernahkan terpikirkan oleh Anda untuk mendistribusikan aplikasi yang Anda buat sebagai shareware? Sehingga orang dapat mencoba terlebih dahulu aplikasi tersebut dan mereka dapat mengetahui apakah aplikasi tersebut benar-benar berguna bagi mereka atau tidak.


Dengan mendistribusikan aplikasi yang hendak Anda jual dengan metode shareware maka dapat menekan biaya promosi dan dapat menjangkau pasar yang luas (seluruh dunia), Anda cukup meletakan aplikasi yang akan dijual tersebut dan mempromosikannya melalui website ataupun melalui mailing list, bagi mereka yang tertarik untuk mencoba aplikasi tersebut maka mereka tinggal download dari internet.

Aplikasi yang didistribusikan dengan metode shareware biasanya memiliki batasan waktu dalam penggunaannya dan jika batas waktu sudah habis maka user harus melakukan aktifasi dengan cara mendaftarkan aplikasi tersebut atau membeli lisensi kepada pemilik aplikasi tersebut dengan cara menyebutkan serial number pada aplikasi yang ada.

Ada juga jenis shareware yang tidak menggunakan batasan waktu, akan tetapi melakukan pembatasan pada fasilitas-fasilitas yang dapat digunakan. Bahkan ada juga yang tidak menggunakan batasan waktu atau pembatasan fasilitas, akan tetapi aplikasi yang digunakan akan selalu menampilkan iklan pada saat aplikasi tersebut digunakan.

Ketika pemilik aplikasi menerima pendaftaran atau pembayaran dari user yang ingin melakukan aktifasi, maka pemilik aplikasi akan mengirimkan activation key kepada user untuk dimasukan pada form aktifasi yang disediakan pada aplikasi yang digunakan.

Jika Anda sebagai pemilik aplikasi tentu Anda tidak ingin activation key tersebut dapat digunakan oleh beberapa user yang berbeda yang secara sengaja menggandakan aplikasi tersebut untuk keuntungan pribadi, hal ini dapat disiasati dengan cara menciptakan serial number yang berbeda untuk setiap user yang berbeda (satu user satu serial number) sehingga activation key hanya dapat digunakan oleh satu user saja.

Untuk menciptakan serial number yang unik untuk masing-masing user kita dapat memanfaatkan serial number yang terdapat pada harddisk, sehingga setiap aplikasi yang diinstal pada komputer yang berbeda maka akan memiliki serial number yang berbeda pula.

Contoh pembuatan serial number aplikasi dan activation key dengan memanfaatkan serial number yang terdapat pada harddisk dapat dilihat pada contoh program berikut.

===================================================================
Kode Program
====================================================================
Option Explicit

Private Declare Function GetVolumeInformation Lib “Kernel32″ _
Alias “GetVolumeInformationA” (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long

Private Function GetHDDSerialNumber(ByVal DriveLetter As String) As String
Dim SN As Long
Dim VolumeNameBuff As String
Dim FileSystemBuff As String

VolumeNameBuff = String$(255, Chr$(0))
FileSystemBuff = String$(255, Chr$(0))
GetVolumeInformation UCase(DriveLetter) & “:\”, _
VolumeNameBuff, 255, SN, 0, 0, FileSystemBuff, 255
GetHDDSerialNumber = Trim(Hex$(SN))
End Function

Private Function CreateAppSerialNumber _
(ByVal HDDSerialNumber As String) As String
Dim i As Integer
Dim temp As String
Dim temp2 As String

temp = Empty
For i = 1 To Len(HDDSerialNumber) Step 2
temp = temp & Mid(HDDSerialNumber, i + 1, 1) & _
Mid(HDDSerialNumber, i, 1)
Next

For i = Len(temp) To 1 Step -1
Select Case Asc(Mid(temp, i, 1)) + 1
Case 48 To 57, 65 To 90, 97 To 122
temp = temp & Chr(Asc(Mid(temp, i, 1)) + 1)
Case Else
temp = temp & Mid(temp, i, 1)
End Select
Next

For i = 1 To Len(temp) Step 2
temp2 = temp2 & Mid(temp, i, 1) & _
Mid(temp, Len(temp) \ 2 + i, 1)
Next

CreateAppSerialNumber = temp2
End Function

Public Function CreateActivationKey _
(ByVal AppSerialNumber As String) As String
Dim i As Integer
Dim j As Integer
Dim temp As String

temp = Empty
For i = 1 To Len(AppSerialNumber) \ 2
temp = temp & (Asc(Mid(AppSerialNumber, i, 1)) Xor _
Asc(Mid(AppSerialNumber, Len(AppSerialNumber) \ 2 + 1, 1)))
Next
CreateActivationKey = Hex$(Val(temp))
End Function

Private Sub Form_Load()
txtSerialNumber.Text = CreateAppSerialNumber(GetHDDSerialNumber(”c”))
End Sub

Private Sub cmdHint_Click()
MsgBox “Activation Key: ” & _
CreateActivationKey(CreateAppSerialNumber _
(GetHDDSerialNumber(”C”)))
End Sub

Private Sub cmdOK_Click()
If txtActivationKey.Text = CreateActivationKey(txtSerialNumber.Text) Then
MsgBox “Thank you!”, vbOKOnly Or vbInformation, App.Title
Else
MsgBox “Wrong answer!”, vbOKOnly Or vbInformation, App.Title
End If
End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub
=======================================
sumber: http://it.visikita.net
=========================================

Read More......