با سلام خدمت مهندسان ایران زمین .
اگه میشه یه راهی بگید که بشه روی برنامه پسوورد گذاشت .
البته من با بانک اطلاعاتی اکسس این کارا کردم ولی میخواستم ببینم روشی دیگری که از امنیت بیشتری برخوردار باشه هست یا نه .
مثلا روش سخت افزاری یا ...
لطفا کمکم کنید ، هرچه زودتر بهتر .
سلام
یک روش نسبتا موثر خوندن شماره سریال هارد دیسک ( خود هارد نه درایوها ) یا مادربورد یا سی پی یو و تبدیل اون به کد رمز هست. با بدست اوردن این رمز می تونید رمز دیگه ای طبق اون ایجاد کنید تا با اون رمز دوم ، برنامه اجازه استفاده رو به کار بر بده. با این کار هر پسورد برای تنها یک کامپیوتر قابل استفاده هست.
این کل کار هست ولی تنظیم الگوریتمهای تولید کد رو باید خودتون درست کنید تا فقط خودتون از اون سر در بیارید.
از نقطه نظر امنیتی هم می تونه جلوی کاربران متوسط و نیمه حرفه ای رو بگیره که فکر می کنم برای حفاظت برنامه کافی باشه.
با سلام خدمت شما دوست عزیز ( DI DI ) .
از این که من را راهنمایی گردید ممنونم .
اگه لطف کنید و سورس این عملیات را به من بگید ممنون میشم .
با تشکر از زحمات بی دریق شما .
تا دیداری دوباره خدا نگهدار شما باشد .
کد:
Public Function incode() As String
Dim lngNumSerial As Long
Dim strRotulo As String
Dim strTipoVolume As String
Dim lngVal As Long
115 MaMa = MaMa + 1
If MaMa = 1 Then DRe = "D:"
If MaMa = 2 Then DRe = "E:"
If MaMa = 3 Then DRe = "f:"
If MaMa >= 4 Then
MsgBox "برنامه قادر به ادامه کار نیست .", vbInformation, "ÎØÇ ÏÑ ÝÑÇÎæÇäí ÊæÇÈÚ"
Call UnloadAllForms
Exit Function
End If
strRotulo = Space(255)
strTipoVolume = Space(255)
lngVal = GetVolumeInformation(Left(DRe, 2) + "\", strRotulo, Len(strRotulo), lngNumSerial, 0, 0, strTipoVolume, Len(strTipoVolume))
'Label1.Caption = "Serial Drive is : " & (lngNumSerial)
SNo = (lngNumSerial)
' MsgBox SNo
If SNo = 0 Then GoTo 115
Strr = SNo
tol = Len(Strr)
For s = 0 To tol - 1
code = Right(Strr, tol - s)
code = Left(code, 1)
code = Asc(code)
code = code + (s + 1)
code = Hex(code)
DeCode = DeCode + CStr(code)
Next s
'MsgBox Decode
Strr = DeCode
tol = Len(Strr)
For s = 0 To tol - 1
code = Right(Strr, tol - s)
code = Left(code, 1)
code = Asc(code)
code = code + (s + 1)
code = Hex(code)
decode2 = decode2 + CStr(code)
Next s
'MsgBox decode2
'****************************************
قسمتهایی که از کد تابع حذف شده
***************************************)
incode = decode70
'MsgBox decode7
End Function
این تابع طریقه خوندن شماره سریال درایوها و تبدیل اون به کد رمز رو به شما نشون می ده. نمونه پیش رفته تری از این تابع رو برای حفاظت از طرحهای نظامی استفاده کردم ولی نمام کدهای به کار بفته در اون رو نمی توم اینجا بزارم. در حقیقت استفاده تنها از این کد می تونه قفل شما رو برای کراکرها به یک زنگ تفریح تبدیل کنه و امیدوارم خودت بتونی اون رو بست و گسترش بدی.
راستی اگه قفلی ساختی لطف کن یه نمونه از اون رو ( فایل EXE ) در اختیار من بزار تا به خودت هم نشون بدم چقدر این قفل های تلفنی می تونن آسیب پذیر باشن.
آقا ( Di Di ) دستت در نکنه .
امید وارم همین تور که کار من را را انداختی خدا کارت را را بندازه .
در اولین فرستی که برنامه را ساختم بهت فایل Execute را میدم .
تا دیداری دوباره خدا حافظ .