ایجاد قفل نرم افزاری و اجرای فایل های اکسس فقط در یک رایانه

[snoopdick]

سلام به همگی ... دوستان می خواستم ببینم کسی راهی سراغ داره که بشه جلوی اجرای فایل های اکسس رو تو سیستم های دیگه گرفت ؟ به عنوان مثال یک فایل رجیستری ساخت و برنامه در صورت وجود اون فایل تو سیستم اجرا بشه ؟ اینجوری اگه فایل هم کپی بشه تا فایل رجیستری نباشه به دردی نمیخوری ... پیشاپیش متشکرم

[wolfstander]

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

[456231]

سلام به دوستان بزرگوار یه عبارت که توسط یه نرم افزار کد شده مثلا کد زیر با جه نرم افزاری میشه دیکد کنیم
oMPEWd5khu4mUKSxeYO5FXAJewQ35J6bEsV72x6mRho=

[salambeshoma]

سلام به دوست محترم wolfstander میشه کد همون هارد یا سی پی یو رو بدید

[snoopdick]

دقیقاً ... ممنون از راهنمائیتون .....

[Mahban]

سلام
میشه لینک سورس را بذارید؟

[Mahban]

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

سلام
میشه لینک سورس را قرار بدید؟

[amirzazadeh]

سلام
به اين پست هم نگاهي بندازيد:
https://barnamenevis.org/showthread.p...8A#post2296214

[amirzazadeh]

سلام
براي پيدا كردن MAC address هم ميتونيد از اين كد بهره ببريد:

Sub GetMACAddress()

' get a list of enabled adaptor names and MAC addresses

' from msdn.microsoft.com/en-us/library/windows/desktop/aa394217(v=vs.85).aspx



Dim objVMI As Object

Dim vAdptr As Variant

Dim objAdptr As Object



Set objVMI = GetObject("winmgmts:\\" & "." & "\root\cimv2")

Set vAdptr = objVMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")





For Each objAdptr In vAdptr

    MsgBox objAdptr.macaddress

Next objAdptr



End Sub