Şifreleme Programı

[vasifokur]

Sayın Üstadlar ; forumda buna benzer programlar vardı , herhalde silindiler. Bilgisayar seri numarasına göre şifre üreten ve zamanı gelince bu şifreyi girmeyi zorlayan bir çalışma rica etsem ekleyebilir misiniz ?

 

[htsumer]

Declare Function GetVolumeInformationA Lib "kernel32" _
(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

Sub Seri_No()
Dim SeriNo As Long
GetVolumeInformationA "C:\", vbNullString, 0, SeriNo, 0, 0, vbNullString, 0
Range("A1") = SeriNo
End Sub

A1 Hücresine seri numarayı atar..Bunu bir şekilde imput yada başka sistemle sorgulama yapabilrisn..

 

[vasifokur]

Teşekkür ederim Sayın Htsümer.