قفل نرم افزاری ( دانلود کنین )

[alimanam]

با عرض سلام خدمت شما دوستان عزیز

به سفارش یکی از دوستان یک Windows forms Control نوشتم که کارش غیررایگان کردن برنامه های نوشته شده توسط شماست . با این روش که شما بوسیله کنترلی که به فرم برنامه خودتون اضافه می کنین (Regme32.dll) و مشخص کردن شماره پشتیبانی خودتون به کاربر نهایی این امکان رو میدین که با تماس با شما و اعلام سریال کاربری سیستم خود رمز عبور خود را دریافت و از برنامه شما استفاده کنه . برای اینکار هم یک keylocker آماده کردم که می تونین بوسیله اون رمز عبور کاربر را با وارد کردن سریال و فشردن دکمه استخراج رمز بدست آورده و دراختیار کاربر قرار دهید . امیدوارم که به درد شما بخوره .



دانلود کنترل (http://persiandrive.net/124020)
دانلود Keylocker (http://persiandrive.net/271988)
دانلود سورس کنترل (http://persiandrive.net/155499)
دانلود سورس Keylocker (http://persiandrive.net/665904)
اگه سوالی بود بپرسین .

[mohammad_king62]

با تشکر از شما
میشه توضیح بدید چطوری از اون تو برنامه استفاده کنیم

[ice007]

با تشکر از شما
ولی بهتر نیست به جای dll تولید قفل در صورت امکان source رو قرار بدید تا ببینیم چه خبره؟ شماره سخت افزار چطور تولید میشه؟ و... تا اگر لازم بود تغیراتی بدیم و بروزش کنیم

[alimanam]

با تشکر از شما
میشه توضیح بدید چطوری از اون تو برنامه استفاده کنیم

در جواب این دوست عزیز

اول از همه کنترل (Regme32.dll) رو به Toolbox ویژوال بیسیک اضافه کن بعد کنترل رو به فرم اصلی برنامه خودت Drag کن بعد از این کار کنترل رو انتخاب کن و از لیست Properties کنترل خاصیت PhoneContact رو پیدا کن وشماره تلفنی رو که می خوای کاربر نهایی باهاش تماس بگیره و با اعلام سریال کاربری خودش رمز عبور رو دریافت کنه رو وارد کن مثلا شماره موبایلت . همین !

حالا پروژه خود رو RUN کن می بینی که فرم کنترل قبل از اینکه برنامه ات لود بشه باز میشه و به کاربر اعلام می کنه که این برنامه مجانی نیست ! و باید با شماره مشخص شده توسط شما تماس بگیره و مابقی کارها ... روش فروختن رمز عبور به صلیغه خودتون .

وقتی که کاربر رمز عبور رو از طریق شما بدست بیاره میتونه با وارد کردن اون در قسمت مورد نظر برنامه شما رو باز کنه و دیگه خبری از فرم کنترل نیست !!! راستی یادت نره که خاصیت visible کنترل Regme رو false کنی .

بازم اگه مشکلی بود در خدمتم .

[sadeghlinux]

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

[VB.NET2005]

دوست عزیز میشه سورسشو . . . :لبخند:

[bahar jooon]

salam man baharam daneshjo computer ye moshkele barname nevisi daram mishe komakam koni. mamnooon. idim ine naghmeh_hh3010

[mohsen_csharp]

دوست عزیز شما که keylocker.exe رو گذاشتی این برنامه قفل گذار شما عملا بی استفاده خواهد بود چون هر کی این keylocker شما رو از اینجا پیدا کنه می تونه رمزو بشکنه پس بهتره که سورس این برنامه رو اینجا بزارین تا بقیه هم ازش اسفاده کنند.
راستی تو برنامه keylocker.exe و تو تابع GenerateKey بهتر نیست به جای اینهمه ضرب و تقسیم از روش های رمز گذاری پیشرفته تری استفاده کنید

[حامد مصافی]

دوست عزیز به منظور قابل استفاده نمودن این کامپوننت باید تمهیداتی مبنی بر عدم توانایی کاربر در کشف رمز بیندیشید.



Private Function GenerateKey() As String
Dim strArray2 As String() = New String(8 - 1) {}
Dim strArray As String() = New String(8 - 1) {}
Dim numArray As Integer() = New Integer(8 - 1) {}
strArray2(0) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(0)))
strArray2(1) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(1)))
strArray2(2) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(2)))
strArray2(3) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(3)))
strArray2(4) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(4)))
strArray2(5) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(5)))
strArray2(6) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(6)))
strArray2(7) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(7)))
numArray(0) = Strings.AscW(strArray2(0))
numArray(1) = Strings.AscW(strArray2(1))
numArray(2) = Strings.AscW(strArray2(2))
numArray(3) = Strings.AscW(strArray2(3))
numArray(4) = Strings.AscW(strArray2(4))
numArray(5) = Strings.AscW(strArray2(5))
numArray(6) = Strings.AscW(strArray2(6))
numArray(7) = Strings.AscW(strArray2(7))
strArray(0) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(0) * 3)) / 3) + 50) / 2)))
strArray(1) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(1) * 2)) / 4) + 60) / 3)))
strArray(2) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(2) * 4)) / 3) + 54) / 3)))
strArray(3) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(3) * 5)) / 2) + 68) / 3)))
strArray(4) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(4) * 4)) / 2) + 60) / 2)))
strArray(5) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(5) * 3)) / 3) + 52) / 3)))
strArray(6) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(6) * 9)) / 3) + 48) / 3)))
strArray(7) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(7) * 5)) / 3) + 50) / 2)))
Return Strings.UCase(String.Concat(New String() { Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(0)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(1)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(2)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(3)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(4)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(5)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(6)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(7)))) }))
End Function

[alimanam]

دوست عزیز به منظور قابل استفاده نمودن این کامپوننت باید تمهیداتی مبنی بر عدم توانایی کاربر در کشف رمز بیندیشید.



Private Function GenerateKey() As String
Dim strArray2 As String() = New String(8 - 1) {}
Dim strArray As String() = New String(8 - 1) {}
Dim numArray As Integer() = New Integer(8 - 1) {}
strArray2(0) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(0)))
strArray2(1) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(1)))
strArray2(2) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(2)))
strArray2(3) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(3)))
strArray2(4) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(4)))
strArray2(5) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(5)))
strArray2(6) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(6)))
strArray2(7) = Conversions.ToString(Strings.UCase(Me.HardwareSeri al.Chars(7)))
numArray(0) = Strings.AscW(strArray2(0))
numArray(1) = Strings.AscW(strArray2(1))
numArray(2) = Strings.AscW(strArray2(2))
numArray(3) = Strings.AscW(strArray2(3))
numArray(4) = Strings.AscW(strArray2(4))
numArray(5) = Strings.AscW(strArray2(5))
numArray(6) = Strings.AscW(strArray2(6))
numArray(7) = Strings.AscW(strArray2(7))
strArray(0) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(0) * 3)) / 3) + 50) / 2)))
strArray(1) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(1) * 2)) / 4) + 60) / 3)))
strArray(2) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(2) * 4)) / 3) + 54) / 3)))
strArray(3) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(3) * 5)) / 2) + 68) / 3)))
strArray(4) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(4) * 4)) / 2) + 60) / 2)))
strArray(5) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(5) * 3)) / 3) + 52) / 3)))
strArray(6) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(6) * 9)) / 3) + 48) / 3)))
strArray(7) = Conversions.ToString(Conversion.Int((((CDbl((numAr ray(7) * 5)) / 3) + 50) / 2)))
Return Strings.UCase(String.Concat(New String() { Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(0)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(1)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(2)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(3)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(4)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(5)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(6)))), Conversions.ToString(Strings.Chr(Conversions.ToInt eger(strArray(7)))) }))
End Function



با عرض سلام خدمت شما دوست عزیز
در تائید صحبت های دوستان باید عرض کنم که این کنترل رو ابتدا باید یه الگوریتم واسه کشف رمزش طراحی کنیم بعد هم بوسیله ابزارهایی فایل dll رو کامپرس و غیر قابل دی اسمبل کردن کنیم . که هیچکدوم از این روش ها به تجربه کاری بنده تضمین 100 در 100 برای کرک نشدن فایل نهایی نمیتونه تلقی بشه . فقط میتونه واسه کاربرهایی که سررشته ایی از برنامه نویسی مهندسی معکوس ندارن غیرقابل نفوذ باشه . امیدوارم که خودتون بقیه کارهایی رو که من وقت نداشتم انجام بدم شما بهش اضافه کنین . یا علی .

دانلود سورس کنترل (http://persiandrive.net/155499)
دانلود سورس KeyLocker (http://persiandrive.net/665904)

[arsalansalar]

با تشکر از شما دوست عزیز.
زمانی که من dll را به برنامه اضافه می کنم.خطای زیر را می دهد(عکس).
لطفا برای حل آن من را راهنمایی فرمایید.

[alimanam]

با تشکر از شما دوست عزیز.
زمانی که من dll را به برنامه اضافه می کنم.خطای زیر را می دهد(عکس).
لطفا برای حل آن من را راهنمایی فرمایید.

دوست عزیز اول اینکه سورس کنترل رو دوباره دانلود کن (صفحه 1 همین تاپیک ) واز regme32.dll جدید توی پروژه خودت اسفاده کن (اضافه کن به Toolbox ) ثانیاٌ این اکتیوایکس (http://persiandrive.net/995478) رو درون شاخه system32 ویندوز کپی کن و با Run خود ویندوز رجیسترش کن مشکلت حل میشه .

اگه بازم error داد عکس error رو بهم نشون بده تا راهنمائیت کنم .

یا علی

[mohammad_king62]

دوست عزیز جناب آقای alimanam با تشکر از کار جالبی که انجام دادید من مدت زیادی به
دنبال چنین چیزی بودم که شما کارمنو راحت کردید اما من باتوجه به کارهایی که شما فرمودید
بازهم با پیام خطا مواجه شدم لطفا راهنمایی کنید چون نیاز زیادی به این برنامه دارم
ضمنا من منظور شما رو از رجیستر کردن اکتیو ایکس در run متوجه نشدم من اکتیوایکسی که شما گفتید رو درsystem32 گذاشتم ولی هنوز وقتی کامپوننت رو روی فرم برنامه مذارم باز پیام خطا میده از شما ممنونم اگر توضیح بدید

[arsalansalar]

برای ریجیستر کردن تو run کد زیر و بنویس

RegSvr32 HardWareInfo.ocx
برنامه دوستمون که از زحماتش ممنونم تو ویندوز ویستا کار نمیکنه.

[karim orooji]

با سلام
هر کار کردم یک مشکلی برام پیش اومد
میخواستم ببنید این برنامه چه مشکلی داره


http://persiandrive.net/551817

[mohammad_king62]

سلام
من کارهایی رو که گفتید انجام دادم کامپوننت رو هم روی فرم قراردادم ولی موقعی که برنامه رو اجرا می کنم
خطا می ده منو راهنمایی کنید

[alimanam]

سلام
من کارهایی رو که گفتید انجام دادم کامپوننت رو هم روی فرم قراردادم ولی موقعی که برنامه رو اجرا می کنم
خطا می ده منو راهنمایی کنید

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

اول اینکه از تمامی دوسانی که از regme32 استفاده کردن تقاضا می کنم اگه مشکلی باهاش نداشتن پیام بزارن تا بتونیم با کمک همدیگه اون دسته ایی رو که با این کنترل مشکل دارن رو حل کنیم . مرسی

در جواب این دوستمون باید بگم که اگه منظورش از خطا همون خطایی هست که درپیام شماره 11 همین صفحه است من توضیح دادم و بعضی از دوستان که با همین error مواجه بودن کارشون درست شد و اگه یه خطای دیگست یا بنویسن یا عکسش رو بزارن تا بتونم راهنمایی کنم .

ولی واسه اینکه یه امتحانی کرده باشم یه کاری کن اول اینکه این دوتا dll رو به صورت Add Reference به پروژه خودت اضافه کن (AxInterop.HARDWAREINFOLib.dll وInterop.HARDWAREINFOLib.dll ) حالا از منوی پروژه گزینه آخر یعنی تنظیمات پروژه خودت روی تب Refernce کلیک کن و هردوی اون فایل dll رو انتخاب کن واز لیست خصوصیات اونها خاصیت Copy Local اونها رو به False ست کن و دوباره پروژه خودت رو Run کن .

اگه بازم مشکل داشتی حتما عکس error رو واسم نمایش بده تا بیشتر و بهتر بتونم راهنمایتون کنم .

یا علی .

[sinsin666]

سلام دوستان عزیز...
لینک دانلود فایل ها کار نمیکنه ...
کسی داره زحمت بکشه دوباره اپلود کنه...
مرسی...

[shocraneh]

با عرض سلام خدمت شما دوستان عزیز



دانلود کنترل (http://persiandrive.net/124020)
دانلود Keylocker (http://persiandrive.net/271988)
دانلود سورس کنترل (http://persiandrive.net/155499)
دانلود سورس Keylocker (http://persiandrive.net/665904)
اگه سوالی بود بپرسین .
شرمنده هیچ کدوم از سایت ها باز نمی کنه

[sinsin666]

دوست عزیز لینک ها از کار افتاده هیچ کدام کار نمیکنه...

[HadiVB]

لینک ندارین .................................................. .................................................. ...................................
.................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. .................................................. ........................................ر

[mortezamhd]

سلام دوست عزيز لينكها رو ميشه چك كنيد چون من نتونستم بازش كنم مرسي

[keylogger]

دوست عزیز سایت پرشین درایو دیگه بسته شد اگه میشه یک جا دیگه آپلود کن من خیلی به این کنترل و سورس نیاز دارم

[mortezamhd]

دوست عزيز ما منتظريم

[alimanam]

با عرض سلام خدمت شما دوستان عزیز

کار کنترل جدید ظرف روزهای آینده ( به احتمال خیلی زیاد 20 آینده ) به اتمام میرسه پس تا اون موقع لطف کنین صبر کنین . در ضمن دوستانی که آدرس دریافت کنترل قبلی رو داشتن محدود بودن ! و اگه به دوستان دیگه خودشون لینک دادن خودشون ضرر کردن چون کنترل هر یوزر منحصر بفرد بود و با دادن لینک کنترل این خاصیت رو ازش می گرفت .

[hossein-khoshseyar]

آقا چی شد
ما همچنان منتظریم

[alimanam]

دوستان عزیز کار نوشتن قفل تموم شده فقط چندتا ریزه کاری مونده که اونم تا اواسط هفته تموم میشه .

یا علی