کمک درباره پسوورد گذاری روی برنامه ؟

[mbawin2]

با سلام خدمت مهندسان ایران زمین .
اگه میشه یه راهی بگید که بشه روی برنامه پسوورد گذاشت .
البته من با بانک اطلاعاتی اکسس این کارا کردم ولی میخواستم ببینم روشی دیگری که از امنیت بیشتری برخوردار باشه هست یا نه .
مثلا روش سخت افزاری یا ...
لطفا کمکم کنید ، هرچه زودتر بهتر .

[Di Di]

سلام
یک روش نسبتا موثر خوندن شماره سریال هارد دیسک ( خود هارد نه درایوها ) یا مادربورد یا سی پی یو و تبدیل اون به کد رمز هست. با بدست اوردن این رمز می تونید رمز دیگه ای طبق اون ایجاد کنید تا با اون رمز دوم ، برنامه اجازه استفاده رو به کار بر بده. با این کار هر پسورد برای تنها یک کامپیوتر قابل استفاده هست.
این کل کار هست ولی تنظیم الگوریتمهای تولید کد رو باید خودتون درست کنید تا فقط خودتون از اون سر در بیارید.
از نقطه نظر امنیتی هم می تونه جلوی کاربران متوسط و نیمه حرفه ای رو بگیره که فکر می کنم برای حفاظت برنامه کافی باشه.

[mbawin2]

با سلام خدمت شما دوست عزیز ( DI DI ) .
از این که من را راهنمایی گردید ممنونم .
اگه لطف کنید و سورس این عملیات را به من بگید ممنون میشم .
با تشکر از زحمات بی دریق شما .
تا دیداری دوباره خدا نگهدار شما باشد .

[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 ) در اختیار من بزار تا به خودت هم نشون بدم چقدر این قفل های تلفنی می تونن آسیب پذیر باشن.

[mbawin2]

آقا ( Di Di ) دستت در نکنه .
امید وارم همین تور که کار من را را انداختی خدا کارت را را بندازه .
در اولین فرستی که برنامه را ساختم بهت فایل Execute را میدم .
تا دیداری دوباره خدا حافظ .