اینم سورس قفل نرم افزاری که گفتم میزارم

[سید حمید حق پرست]

سلام بفرمایید

توجه : سورس اولی (Ghofl) نرم افزاری هست که قراره به کاربر بدیم . کاربر بعد از اجرا کردنش یه سریال بهش نشون میده و سریالرو میده به شوما حالا شما سریلی که کاربر بهتون داده در نرم افزار دوم (decod) در تکست باکس اول قرار میدهید و کلید decod رو بزنید . برنامه یه سریال جدید در تکست باکس دوم بهتون میده و شما اونو در فایل License.Lic (با نوتپد بازش کنید) قرار دهید و ذخیرش کنید حالا فایل لایسنس را به کاربر بدهید تا کنار برنامه قرار دهد و اجرا کنه

موفق باشید

یا علی (ع)

[hosein3000]

با تشکر از دوست عزیز

به نظر شما این برای کاربر راحتتره یا اون یکی که با سریال هارد کد میساخت ؟؟
به نظر شما از کدومشون استفاده کنم بهتره؟؟

[سید حمید حق پرست]

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

شما میتونید پیشرفته ترش کنید مثلا سریال سی پیو هم بهش اضافه کنید

[hosein3000]

منظورم این بود که فایل لایسنس به کاربر دادن بهتره یا فقط یه سریال نامبر
می خوام کاربر برای دریافت سریال حداقل کارو انجام بده یعنی مراحل دریافت و فعال سازیش زیاد طولانی نباشه تا کاربر بیخیالش بشه

[سید حمید حق پرست]

میشه . راحتم میشه اما این روشی که شما میگید مطمئن نیست

[sr2m72]

منظورم این بود که فایل لایسنس به کاربر دادن بهتره یا فقط یه سریال نامبر
می خوام کاربر برای دریافت سریال حداقل کارو انجام بده یعنی مراحل دریافت و فعال سازیش زیاد طولانی نباشه تا کاربر بیخیالش بشه

جناب حق پرست درست میگن، اینطوری امنیتش بیشتره، اگه سریال نامبر باشه راحت تر کرک میشه.

[joker]

به علت چك كردن ساده مقادير در حافظه ،امنيت = 0

[سید حمید حق پرست]

نقطه ظعفش کجاست؟ . میشه کامل توضیح بدید . یه نرم افزار که مال خودمه و قفله میدم بهتون میتونید کرک کنید؟ . با همین روشه

[سید حمید حق پرست]

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

[joker]

نرم افزار خودتون هم مطمئنا با همين روش كرك ميشه
جهت كسب اطلاعات بيشتر به همين بخش امنيت نرم افزار سايت مراجعه كنيد ؛

[IamOverlord]

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

[سید حمید حق پرست]

اون بخش امنیت و هک لینکشو لطف میکنید



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

[سید حمید حق پرست]

این تاپیکی که زدید کدوم یک از روشهاش خوبه ؟ . ممنونم راهنماییم کنید
http://barnamenevis.org/showthread.php?104440-%D9%85%D8%AD%D8%A7%D9%81%D8%B8%D8%AA-%D8%A7%D8%B2-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%81%D8%A7%D9%8A%D9%84-%D8%A7%D8%AC%D8%B1%D8%A7%D9%8A%D9%8A-%28%D8%A8%D8%B1%D8%A7%D9%8A-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%B9%D9%85%D9%88%D9%85%29

[IamOverlord]

مثلا این که برای سریال از شرط های If ساده استفاده نکنی که یه متغیر رو با یه عدد مقایسه کنی، یا مثلا برنامه ات JUMP های الکی داشته باشه تا Cracker گمراه بشه، اطلاعات مهم برنامه ات مثلا فلان سریال رو خیلی راحت تو کد Assembly پیدا نکنه، می تونی سریال رو پیچیده ذخیره کنی...
البته این ها فقط کارو سخت تر می کنه! یه Cracker حرفه ای بالاخره کار خودشو می کنه.
یکی از معروف ترین ابزار ها PE Explorer هست.

[سید حمید حق پرست]

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

یا علی (ع)

[سید حمید حق پرست]

این روش چی لطفا ببینید :


Private Sub Command1_Click()
If Text2.Text = "IRaNHaCK" + Mid(Text1.Text, 3, 6) + "D4RK3NZZ" + Mid(Text1.Text, 4, 5) Then
SaveSetting "BlackInteligence", "Serial", "Number40", "Database"
MsgBox "Activated", vbDefaultButton1, "Database"
Me.Hide
Form2.Show
Else
MsgBox "Your serial number is invalid", vbDefaultButton1, "Database"
End If
End Sub


Private Sub Form_Load()

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each objItem In colItems
MsgBox "AddressWidth: " & objItem.AddressWidth
MsgBox "Architecture: " & objItem.Architecture
MsgBox "Availability: " & objItem.Availability
MsgBox "Caption: " & objItem.Caption
MsgBox "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
MsgBox "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
MsgBox "CpuStatus: " & objItem.CpuStatus
MsgBox "CreationClassName: " & objItem.CreationClassName
MsgBox "CurrentClockSpeed: " & objItem.CurrentClockSpeed
MsgBox "CurrentVoltage: " & objItem.CurrentVoltage
MsgBox "DataWidth: " & objItem.DataWidth
MsgBox "Description: " & objItem.Description
MsgBox "DeviceID: " & objItem.DeviceID
MsgBox "ErrorCleared: " & objItem.ErrorCleared
MsgBox "ErrorDescription: " & objItem.ErrorDescription
MsgBox "ExtClock: " & objItem.ExtClock
MsgBox "Family: " & objItem.Family
MsgBox "InstallDate: " & objItem.InstallDate
MsgBox "L2CacheSize: " & objItem.L2CacheSize
MsgBox "L2CacheSpeed: " & objItem.L2CacheSpeed
MsgBox "LastErrorCode: " & objItem.LastErrorCode
MsgBox "Level: " & objItem.Level
MsgBox "LoadPercentage: " & objItem.LoadPercentage
MsgBox "Manufacturer: " & objItem.Manufacturer
MsgBox "MaxClockSpeed: " & objItem.MaxClockSpeed
MsgBox "Name: " & objItem.Name
MsgBox "OtherFamilyDescription: " & objItem.OtherFamilyDescription
MsgBox "PNPDeviceID: " & objItem.PNPDeviceID
MsgBox "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
MsgBox "PowerManagementSupported: " & objItem.PowerManagementSupported
Text1.Text = objItem.ProcessorId
MsgBox "ProcessorType: " & objItem.ProcessorType
MsgBox "Revision: " & objItem.Revision
MsgBox "Role: " & objItem.Role
MsgBox "SocketDesignation: " & objItem.SocketDesignation
MsgBox "Status: " & objItem.Status
MsgBox "StatusInfo: " & objItem.StatusInfo
MsgBox "Stepping: " & objItem.Stepping
MsgBox "SystemCreationClassName: " & objItem.SystemCreationClassName
MsgBox "SystemName: " & objItem.SystemName
MsgBox "UniqueId: " & objItem.UniqueId
MsgBox "UpgradeMethod: " & objItem.UpgradeMethod
MsgBox "Version: " & objItem.Version
MsgBox "VoltageCaps: " & objItem.VoltageCaps
Next
If GetSetting("BlackInteligence", "Serial", "Number40") = "Database" Then
Me.Hide
Form1.Show
End If
End Sub


و یا استفاده از فشرده کننده UPX که خروجی برنامه رو Compress میکنه و قادر به تغییر دادن توسط Resource Editor ها نخواهد بود

لطفا کمک کنید

ممنون


یا علی (ع)

[joker_pok]

آقاجون بهترین راهش اینه که شما سریالی که به کاربر نشون میدی واسه سریال مستر برنامه که قراره برات بفرسته اینه که اون سریال ساخته شده خودتو کلا کد کنی با الگوریتم های کاملا حرفه ای تو سریال خودتو کد کن ببین کرکر گیج میشه یا نه . سخته اما کرکر هم بالاره محدوده دیگه

آقا میشه کاری کرد که وقتی برنامه اجرا میشه عملیات در حافظه مخفی بمونه و آثارشو نشون نده ؟

[سید حمید حق پرست]

نه اینم کرک میشه که شما میگید . اگه یه کم کرک بلد باشید میدونید که تو یک 5 دقیقه ای من که کرک حرفه ای نیستم میتونم کرک کنم

[سید حمید حق پرست]

راهی که به فکرم میاد اینه که ما از الگوریتم زیر استفاده کنیم :
شماره سریال هارده بگیر تو یه عدد ضرب کن!
از یه عدد دیگه کم کن!
همینطوری چند بار عملیات ریاضی رو انجام بدم!

این الگوریتم وقتی بهتر جواب میده که هم زمان از چند تا سریال استفاده کنی!
مثلا سریال هارد + ای پی + هر عدد دیگه ک فک کنی ب درد بخور هست!

و نتیجه رو تو این کد بنویسیم :

private sub form load()

Dim x as string
X=inputbox("enter your password","get password")
While x <> "mohammad"
X=inputbox("password was wrong,enter the right password","get password")
Wend
Form2.show

[سید حمید حق پرست]

روش دیگه هم اینه که برای نمایش دادن سریال به کاربر از MSGBOX استفاده نکنیم . بلکه برنامه هنگام اجرا یه فایل تکست حاوی سریالی که میخوایم به کاربر نشون بدیم در کنار برنامه درست کنه و از الگوریتم بالا که گفتم استفاده کنیم

[سید حمید حق پرست]

سلام
جناب اقای joker (http://barnamenevis.org/member.php?838-joker) عزیز و IamOverlord (http://barnamenevis.org/member.php?72921-IamOverlord) عزیز بی زحمت اینو امتحان کنید ببینید میتونید Unpacker کنی . من خودم با چند نرم افزار نتونستم . اگه تونستید نتیجه رو اینجا بزارید ممنون میشم

یا علی(ع)

[IamOverlord]

امان از دست PE Explorer!

[سید حمید حق پرست]

این که نوشه file is not upacked

[hosein3000]

خوب خلاصه .....

یه قفل مناسب برا من معرفی میکنین استفاده کنم؟؟؟/

[IamOverlord]

این که نوشه file is not upacked

چون اون برای Upack هست، برای UPX رو زیرش نوشته.

[IamOverlord]

البته اگه توجه کنید یه بخش Unprocessed Data داره که نتونسته بهش دست بزنه :لبخند:

[سید حمید حق پرست]

داداش من با PE Explorer کار نکردم . من با نرم افزارهای زیر کار کردم و میکنم :
1- PEiD
2- OLLYDBG
3- hiew32 : Hiew 7.2
4- w32Dasm
5- Hiew_ShellExt
. حالا میخواستم بدونم با این پچ که کردم تونستی کرک کنی؟
یه روش هم گفتم چند پست قبل اگه میشه مشاهده کنید ببینید قفل خوبی هست یا نه . اینجا هم دو باره میزارم . روش :


راهی که به فکرم میاد اینه که ما از الگوریتم زیر استفاده کنیم :
شماره سریال هارده بگیر تو یه عدد ضرب کن!
از یه عدد دیگه کم کن!
همینطوری چند بار عملیات ریاضی رو انجام بدم!

این الگوریتم وقتی بهتر جواب میده که هم زمان از چند تا سریال استفاده کنی!
مثلا سریال هارد + ای پی + هر عدد دیگه ک فک کنی ب درد بخور هست!

و نتیجه رو تو این کد بنویسیم :

private sub form load()

Dim x as string
X=inputbox("enter your password","get password")
While x <> "mohammad"
X=inputbox("password was wrong,enter the right password","get password")
Wend
Form2.show



یا :

If Image1.Text = "1234" Then
If Image1.Text = "1456" Then
form2.Show
Else
End
End If
End If

و اینم واسه سریال :

Private Sub Command1_Click()
If Text2.Text = "IRaNHaCK" + Mid(Text1.Text, 3, 6) + "D4RK3NZZ" + Mid(Text1.Text, 4, 5) Then
SaveSetting "BlackInteligence", "Serial", "Number40", "Database"
MsgBox "Activated", vbDefaultButton1, "Database"
Me.Hide
Form2.Show
Else
MsgBox "Your serial number is invalid", vbDefaultButton1, "Database"
End If
End Sub


Private Sub Form_Load()

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each objItem In colItems
MsgBox "AddressWidth: " & objItem.AddressWidth
MsgBox "Architecture: " & objItem.Architecture
MsgBox "Availability: " & objItem.Availability
MsgBox "Caption: " & objItem.Caption
MsgBox "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
MsgBox "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
MsgBox "CpuStatus: " & objItem.CpuStatus
MsgBox "CreationClassName: " & objItem.CreationClassName
MsgBox "CurrentClockSpeed: " & objItem.CurrentClockSpeed
MsgBox "CurrentVoltage: " & objItem.CurrentVoltage
MsgBox "DataWidth: " & objItem.DataWidth
MsgBox "Description: " & objItem.Description
MsgBox "DeviceID: " & objItem.DeviceID
MsgBox "ErrorCleared: " & objItem.ErrorCleared
MsgBox "ErrorDescription: " & objItem.ErrorDescription
MsgBox "ExtClock: " & objItem.ExtClock
MsgBox "Family: " & objItem.Family
MsgBox "InstallDate: " & objItem.InstallDate
MsgBox "L2CacheSize: " & objItem.L2CacheSize
MsgBox "L2CacheSpeed: " & objItem.L2CacheSpeed
MsgBox "LastErrorCode: " & objItem.LastErrorCode
MsgBox "Level: " & objItem.Level
MsgBox "LoadPercentage: " & objItem.LoadPercentage
MsgBox "Manufacturer: " & objItem.Manufacturer
MsgBox "MaxClockSpeed: " & objItem.MaxClockSpeed
MsgBox "Name: " & objItem.Name
MsgBox "OtherFamilyDescription: " & objItem.OtherFamilyDescription
MsgBox "PNPDeviceID: " & objItem.PNPDeviceID
MsgBox "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
MsgBox "PowerManagementSupported: " & objItem.PowerManagementSupported
Text1.Text = objItem.ProcessorId
MsgBox "ProcessorType: " & objItem.ProcessorType
MsgBox "Revision: " & objItem.Revision
MsgBox "Role: " & objItem.Role
MsgBox "SocketDesignation: " & objItem.SocketDesignation
MsgBox "Status: " & objItem.Status
MsgBox "StatusInfo: " & objItem.StatusInfo
MsgBox "Stepping: " & objItem.Stepping
MsgBox "SystemCreationClassName: " & objItem.SystemCreationClassName
MsgBox "SystemName: " & objItem.SystemName
MsgBox "UniqueId: " & objItem.UniqueId
MsgBox "UpgradeMethod: " & objItem.UpgradeMethod
MsgBox "Version: " & objItem.Version
MsgBox "VoltageCaps: " & objItem.VoltageCaps
Next
If GetSetting("BlackInteligence", "Serial", "Number40") = "Database" Then
Me.Hide
Form1.Show
End If
End Sub


و بعدا با UPXپچش کنیم

ممنون میشم جواب این دو سوالو بدید

[joker]

فرقي نداشت
UPX را اصلا جزو پروتكتورها حساب نكنيد. فشرده ساز حسابش كنيد.

[naderfalah]

خیلی ممنونم