ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





نمایش نتایج: از 1 به 4 از 4
  1. #1
    masoudsky
    كاربر عادي
    تاریخ عضویت
    2012 Sep
    نوشته ها
    6
    0
    2

    Question طراحي قفل سخت افزاري جهت نرم افزار

    با سلام
    من يك برنامه نوشتم با ويژوال بيسيك ، توسط يك فلش وقتي به كامپيوتر زده بشه برنامه قابل استفاده باشه يعني در واقع فلش قفل سخت افزاري برنامه باشه ممنوم لطفا راهنمايي كنيد
  2. #2
    mr.holmes
    مدیر بخش
    تاریخ عضویت
    2012 Mar
    نوشته ها
    46
    21
    44
    درود,
    برای شما چندتا مثال و سورس از یو اس پی ضمیمه کردم امیدوارم که کمکتون کنه.

    لیستی از مثال های ضمیمه شده :
    Windows_De2060784162007.zip
    USB_Virus_2164201032009.zip
    Usb_protec2221753192012.zip
    USB_Key_101966691202006.zip
    USB_Flash_2050602272007.zip
    USB_DRIVE_2141391242009.zip
    USB_Detect215634722009.zip
    USB_AutoRu20383012182006.zip
    USB_AUTORU196127112006.zip
    FolderProt2157397122009.zip
    DM_USB_Men21369012122008.zip
    usbhidio
    Block_Viru21367812112008.zip
    AutoFileCo1574694162003.zip
    فایل های ضمیمه فایل های ضمیمه
    • نوع فایل: zip New folder (6).zip (828.6 کیلو بایت, این فایل 46 مرتبه دانلود شده است )
    ویرایش توسط mr.holmes : 2012-09-15 در ساعت 04:01 AM
    If at first you don’t succeed, call it version 1.0
  3. 1
  4. #3
    masoudsky
    كاربر عادي
    تاریخ عضویت
    2012 Sep
    نوشته ها
    6
    0
    2
    ممنون از شما ولي ميشه توضيح بديد
  5. #4
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,590
    759
    465
    ببنید یه روش دیگه هم وجود داره شما بیاید ابتدا ای دی فلش رو به دست بیارید؟کدشو برات میزام بعد اینکه بتونی قفل کنی برنامه رو:

     					 						[INDENT] 							Private Declare Function GetLogicalDrives Lib "Kernel32" () As Long
    Private Declare Function GetDriveType Lib "Kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
    Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (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
    Dim A(0 To 25) As String, I As Integer, C(1 To 10) As String, T As Integer, F(1 To 10) As String
    Dim Serial As Long, VName As String, FSName As String
    Private Sub Command1_Click()
    End
    End Sub
    Private Sub Form_Paint()
    Timer1.Interval = 2
    End Sub
    Private Sub Timer1_Timer()
    Dim LDs As Long, Cnt As Long, sDrives As String
    LDs = GetLogicalDrives
    I = 0
    T = 0
    Serial = 0
    Text1.Text = ""
    List1.Clear
    For R = 0 To 25
    A(R) = ""
    Next R
    For E = 1 To 10
    C(E) = ""
    Next E
    For U = 1 To 10
    F(U) = ""
    Next U
    For Cnt = 0 To 25
    I = I + 1
    If (LDs And 2 ^ Cnt) <> 0 Then
    A(I) = Chr$(65 + Cnt)
    End If
    Next Cnt
    For B = 0 To 25

    If A(B) <> "" Then
    Select Case GetDriveType(A(B) & ":\")
    Case 2
    T = T + 1
    C(T) = A(B) & ":\"
    End Select
    End If
    Next B
    For S = 1 To 10
    If C(S) <> "" Then
    If C(S) <> "A:\" Then
    List1.AddItem C(S)
    F(S) = C(S)
    End If
    End If
    Next S
    Label1.Caption = List1.ListCount
    For H = 1 To 10
    If F(H) <> "" Then
    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))
    GetVolumeInformation F(H), VName, 255, Serial, 0, 0, FSName, 255
    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
    If Serial = 0 Then
    Text1.Text = Text1.Text + "Drive Status : DISCONNECTED" + vbNewLine + "Drive : " & F(H) + vbNewLine + "The Volume name of " & F(H) & " is '" + VName + "', the File system name of " & F(H) & " is '" + FSName + "' and the serial number of " & F(H) & " is '" + Trim(Str$(Serial)) + "'" + vbNewLine + vbNewLine
    Else
    Text1.Text = Text1.Text + "Drive Status : CONNECTED" + vbNewLine + "Drive : " & F(H) + vbNewLine + "The Volume name of " & F(H) & " is '" + VName + "', the File system name of " & F(H) & " is '" + FSName + "' and the serial number of " & F(H) & " is '" + Trim(Str$(Serial)) + "'" + vbNewLine + vbNewLine
    End If
    End If
    Next H
    If Text1.Text = "" Then
    Text1.Text = "No USB Drive Found"
    End If
    End Sub
    [/INDENT]



    ولی این امنیت زیادی نداره یه نسخه قفل گذاری روی همین انجمن هست جستجو کن خیلی امنیتش بالاتره.
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
نمایش نتایج: از 1 به 4 از 4

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

Content Relevant URLs by vBSEO 3.6.0 RC 2