elimde lisanslama uygulaması mevcut. aşağıdaki kodun mantığı nedir bilgi verirmisiniz
birinci private ile başlayan kod sanırım uygulamayı kullanılacak bilgisayarın
ikinci private ile başlayan kodda müşteriye verilecek kod .
uygulamanın olduğu dizine .txt kaydedip ne yapacaz. kod sorduğunda kod yerine ne yazacağız
burada lisansta istenilen nedir ...
birde uygulamanın bulunduğu ana dizinde
539787628.txt dosya var içerisinde
e14ee86548afb20247ac182296f029e3
kodu var Vba kodlarındada bu var
Kod:
Private Sub Form_Load()
Dim wrkDefault As Workspace
Dim nesne, disk, k
Set nesne = CreateObject("Scripting.FileSystemObject")
Set disk = nesne.GetDrive(nesne.GetDriveName(nesne.GetAbsolutePathName("d:\")))
k = disk.SerialNumber
Me.disk = k
End Sub
Private Sub Komut0_Click()
Dim wrkDefault As Workspace
Dim nesne, disk, k
r = Mid(MD5String(Me.disk), 1, 8)
If asif = r Then
Set nesne = CreateObject("Scripting.FileSystemObject")
Set disk = nesne.GetDrive(nesne.GetDriveName(nesne.GetAbsolutePathName("d:\")))
k = disk.SerialNumber
Me.disk = disk.SerialNumber
klasor = CurrentProject.Path & "/" & disk.SerialNumber & ".txt"
Open CurrentProject.Path & "/" & disk.SerialNumber & ".txt" For Output As #1
Print #1, MD5String(disk.SerialNumber)
Close #1
DoCmd.OpenForm "başlangıç"
Else
10 MsgBox "HATALI ŞİFRE YENİNİDEN DENE"
End If
End Sub