Printable View
سلام
یک نمونه کد دیگر برایتان حاضر کردم...
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
این بسته شامل دو پروژه XORFile (قبلی) و ExeEmbeddedFile (جدید) است.
شما باید یک فایل exe را که میخواهید رمز و درون برنامه تان ذخیره کنید را به XORFile بدهید و فایل رمز شده را در شاخه ExeEmbeddedFile\Resources با نام Embed.exe جایگزین کنید...
پس از کامپایل پروژه ExeEmbeddedFile برنامه ای خواهید داشت که با گرفتن password فایل exe اصلی را اجرا میکند.
موفق باشید.
سلام
من این کد میخوام تو تابع (Function) یزارم به چه صورت در میاد! ممنون
کدکد:Public Sub XOREncrypt(filepathInp As String, filepathOut As String, password AS Byte)
Dim buffer() As Byte = System.IO.File.ReadAllBytes(filepathInp)
For index As Integer = 0 To buffer.Length - 1
buffer(index) = buffer(index) Xor password
Next
System.IO.File.WriteAllBytes(filepathOut, buffer)
End Sub
سلام
تابع شود! یعنی همینطوری بدون مشکل ، فهم یا دلیل خاصی باید تابع شود؟ خوب تابع باید در نتیجه کارش چیزی پس دهد، من نمیدانم شما چه چیزی میخواهید از این کد پس بگیرید! بعد اگر این کد پارامترهایش تغییری کند که کل کدهای دیگری که با این مانند چرخ دنده های یک ماشین همکاری میکنند به هم خواهند ریخت، بعد باید ... ! :n02::n13:نقل قول:
من این کد میخوام تو تابع (Function) یزارم به چه صورت در میاد
سلام
باشه پارامترهایش تغیر کنه فقط تو تابع باشه (که یچیزی رو از نتجه کار پس دهد) من انو میخوام بدونم که به چه صورت در میاد (function)
سلام
کد:'الگوی کلی تعریف تابع
Public Function NAME(PARAMS) As TYPE
'...
'...
'...
Return VALUE
End Function
'یک تابع که دو عدد را جمع میکند !
Public Function Add(x As Integer, y As Integer) As Integer
Dim sum As Integer
sum = x + y
Return sum
End Function
'یک تابع که برای یک کاربر متن خوش آمد گویی می سازد !
Public Function Welcome(username As String) As String
Dim result As String
result = "Welcome, " + username
Return result
End Function
'یک تابع که صحت نام کاربری و گذرواژه را بررسی میکند
Public Function IsValidUserPass(username As String, password As String) As Boolean
Dim read_password_from_database As String
'...
read_password_from_database = "123"
'...
Dim result As Boolean
result = username = "Admin" AndAlso password = read_password_from_database
Return result
End Function
کد:'پس از رمزنگاری یک عدد که بیانگر تعداد بایت های پردازش شده است را برمیگرداند
Public Function XOREncrypt(filepathInp As String, filepathOut As String, password As Byte) As Integer
Dim buffer() As Byte = System.IO.File.ReadAllBytes(filepathInp)
For index As Integer = 0 To buffer.Length - 1
buffer(index) = buffer(index) Xor password
Next
System.IO.File.WriteAllBytes(filepathOut, buffer)
Return buffer.Length
End Function