ACCESS FEED: Re: [belajar-access] membuat aplikasi dengan serial number

Jumat, 20 Desember 2013

Re: [belajar-access] membuat aplikasi dengan serial number

abyadiazwar...,

Apabila yang dimaksud keygen adalah encrypt-decrypt sebuah text, bisa memanfaatkan fungsi VBA ini:

Function codare(x As String) As String
Dim y As String
Dim i As Integer
Dim n As Integer
If x = "" Then
codare = ""
Exit Function
End If
n = Len(x)
y = ""
For i = 1 To n
y = y & Chr(Asc(Mid(x, i, 1)) + 5)
Next i
codare = y
End Function
Function decodare(x As String) As String
Dim y As String
Dim i As Integer
Dim n As Integer
If x = "" Then
decodare = ""
Exit Function
End If
n = Len(x)
y = ""
For i = 1 To n
y = y & Chr(Asc(Mid(x, i, 1)) - 5)
Next i
decodare = y
End Function

Silahkan mencoba dengan misalnya:

msgbox codare("ID_HDD")

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

--------------------------------------------
On Fri, 20/12/13, abyadiazwar@yahoo.com <abyadiazwar@yahoo.com> wrote:

Subject: [belajar-access] membuat aplikasi dengan serial number
To: belajar-access@yahoogroups.com
Date: Friday, 20 December, 2013, 5:38 PM

makasih sebelumnya, ini post pertama saya kemarin
saya membuat aplikasi dari ms access 2010 FE dan BE nya
menggunakan ms access dengan form awal multiple login ,
rencananya aplikasi ini saya buat untuk 1 pc dan dibuatkan
serial number pada setiap pc yang ingin menjalankan aplikasi
ini, sekarang ini saya mencoba dengan pembacaan id HDD dan
coding replace data, yang saya bingung sekarang ini membuat
keygennya berdasarkan id HDD tadi. terima kasih