سورس Locker , Unlocker قوی برای فایل ها

[SAEID2009]

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

[.:KeihanCPU:.]

در مورد قفل کردن فایلهای exe یکی از دوستان یه نمونه گذاشته بود
جستجو کن ببین پیدا میکنی !

[xman_dj]

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

[SAEID2009]

نه نه وین رار و وین زیپ نمیخوام سورس قفل کردن هر فایل رو میخوام نه فقط exe
مرسی

[relax_cp]

ببین این به دردت می خوره:

[SAEID2009]

ببین این به دردت می خوره:
ممنون دسوت عزیز که به فکر بودی.
نه سورس روی اون فایلی که من خواستم کار نکرد.
ممنون میشم کسی نمونه ی دیگه ای داره بگذاره

[pcdownload.bloghaa.com]

برای این کار دکمه ای در فرم قرار داده وکد زیر را بنویسید:

Sub FileEncodeAndDecode(InputFile As String, _
OutputFile As String, _
PasswordKey As String)
Dim temp As Single
Dim Char As String * 1
Dim XORMask As Single
Dim temp1 As Integer
Open InputFile For Binary As #1
Open OutputFile For Binary As #2
For x = 1 To Len(PasswordKey)
temp = Asc(Mid$(PasswordKey, x, 1))
For y = 1 To temp
temp1 = Rnd
Next y
' Re-seed to throw off prying eyes
Randomize temp1
Next x
Counter = 0
For z = 1 To FileLen(InputFile)
'Generate random mask
XORMask = Int(Rnd * 256)
'Get the char & change it
Get 1, , Char
Char = Chr$((Asc(Char) Xor XORMask))
Put 2, , Char
Counter = Counter + 1
If Counter > Len(PasswordKey) Then Counter = 1
' Pull random numbers from the hat
For x = 1 To (Asc(Mid$(PasswordKey, Counter, 1)) * 2)
temp = Rnd
Next x
Next z
Close #1
Close #2
End Sub
Private Sub Command1_Click()
Dim InputFile As String
Dim OutputFile As String
Dim PasswordKey As String
InputFile = InputBox("Enter thr filename to encode/decode")
OutputFile = _
InputBox("Enter the new filename this file will become")
PasswordKey = InputBox("Enter the password")
Call FileEncodeAndDecode(InputFile, OutputFile, PasswordKey)
MsgBox "File written to " + OutputFile
End
End Sub
(http://astara.bloghaa.com)

[xxxxx_xxxxx]

خودتون محتوای فایل رو انکریپت و دیکریپت کنید. حالا به هر نحوی، زیاد فرق نمی کنه.
البته با تغییر یک کاراکتر از فایل هم میشه این کارو کرد.
افزودن یک کاراکتر یا رشته جدید و منحصربه فرد به فایل میتونه روش ساده و کارآمدی باشه.

[SAEID2009]

خودتون محتوای فایل رو انکریپت و دیکریپت کنید. حالا به هر نحوی، زیاد فرق نمی کنه.
البته با تغییر یک کاراکتر از فایل هم میشه این کارو کرد.
افزودن یک کاراکتر یا رشته جدید و منحصربه فرد به فایل میتونه روش ساده و کارآمدی باشه.
میشه لطفا یک نمونه و یا یک مثلا قرار بدید؟؟؟

[SAEID2009]

دوستان کسی دیگه ای نمونه بهتر یا دیگری نداره؟؟
ممنون میشم