Printable View
سلام
ولی یکبار خواندن فایل فقط ارزش دانشگاهی و الگوریتم و... دارد(:n39:) و ارزش عملی ندارد و درعمل غیرقابل استفاده است.کد:Private Const XORVALUE As Byte = 85
Public Sub XOREncrypt(filepathInp As String, filepathOut As String)
Dim buffer() As Byte = System.IO.File.ReadAllBytes(filepathInp)
For index As Integer = 0 To buffer.Length - 1
buffer(index) = buffer(index) Xor XORVALUE
Next
System.IO.File.WriteAllBytes(filepathOut, buffer)
End Sub
سلام
من از کد تابع شما در جای دگه استفاده کردم 2 تاارور داد
1 تابع پیدا نکرده ؟
2 ثابیت که تعریف کردم پیدانکرده؟
چیگونه این ارور ها رو بر طرف کنم؟
یا ی کد تا بع دگه بگید که با این رویش کد من هم خانی داشته باشه ممنون اینم عکس
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام
عزیزجان، آن پروژه ای که برایتان قرار دادم، دیالوگ Open و Save را دارد، چه اصراری است که بخواهید اینها را با هم ادقام کنید و بعد هم بدین شکل...
برنامه نویسی زبان نوشتار عادی که نیست که هرچیزی را بردارید و چیز دیگری را جایش تایپ کنید و انتظار داشته باشید یک جوری رایانه بفهمد و کار کند...
یک قواعدی داریم سینتکسی داریم که باید رعایت شود.
طبیعتا رایانه هرچیزی که به هر شکلی شما مینویسید را نمی تواند بفهمد، یک نقطه هم در جای خود مهم است، شما برای ویرایش کدهای برنامه نویسی باید یک دانش حداقلی داشته باشید.
پس دستور زیر را چرا حذف میکنید؟نقل قول:
اکر بخوام تکس پسورد از روی فرم پاککنم بجاشConst تعریف کنم
با توجه به اینکه برنامه نویسی نمیدانید، مجدد پیشنهاد میکنم از پروژه کامل بدون هیچ دستکاری استفاده کنید:کد:Private Const XORVALUE As Byte = 85
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:! کد صحیح تر شده خودتان پس از ادقام !
Private Sub Button2_Click...
...
If (SaveFileDialog1.Show...) Then
XOREncrypt(s, SaveFileDialog1.FileName)
End If
...
End Sub
Private Const XORVALUE As Byte = 85
Public Sub XOREncrypt(filepathInp As String, filepathOut As String)
Dim buffer() As Byte = System.IO.File.ReadAllBytes(filepathInp)
For index As Integer = 0 To buffer.Length - 1
buffer(index) = buffer(index) Xor XORVALUE
Next
System.IO.File.WriteAllBytes(filepathOut, buffer)
End Sub
سلام ممنونم از توجه و راهنمای تون
اسرار من فقط بخاطر اینه که به این رویش1- عادت دارم ,
2- و بعد اینکد کردن با xor ,استاندار کنم با بیس64 همین,
من چند سوال دارم لطفا راهنمای کنید
1- فرق ساب(sub) و تابع(function) چیه؟؟ اکر همین کد تو تابع بنویسم چه فرق داره ,مثلان توخودنویشتن تابع چه فرق داره وتو نحوه فراخانی چه فرق داره,
2- من میخوام با پسورد اینکد کنم یعنی موقه دیکد کردن پسورد بخواد وبدون اون دیکد نشه
سلام
اولا ربط Base.64 را چندان به این مباحث درک نمیکنم، شما مگر نمیخواهید یک فایل (مانند exe) را رمز کنید، پس ...
sub ها هیچ خروجی ندارند در حالیکه func ها چیزی از نیجه کارشان برمیگردانند...نقل قول:
فرق ساب(sub) و تابع(function) چیه؟؟
کد:MySubName(123, "Hello", x)
MyFuncName(123, "Hello", x)
y = MyFuncName(123, "Hello", x)
نقل قول:
من میخوام با پسورد اینکد کنم یعنی موقه دیکد کردن پسورد بخواد وبدون اون دیکد نشه
متاسفم، حداقل من نمیدانم شما چه میخواهید ، گمان نکنم کمک بیشتری بتوانم بکنم... :n13::n40:کد: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
باسلام دوستان: کمی در مورید پک کردن یک برنامه توضیح بدین اکر تایپیک یا مقاله فارسی در این مورید هست لطفا لینک بزارید
اکر همین فایل که با الگوریتم xor اینکریپت شده رو تو یک فایل exe تزریق کنم که وقتی روی فایل exe کلیک کرد فایل اینکریپت شده رو اجرا کنه چیگونه میتونم اینکارو کنم؟ممنون
سلام
رمزنگاری، آنهم با اگوریتم سستی مانند XOR ...
مخفی کردنی یک exe داخل یک exe دیگر و اجرای آن ...
انشاا... ویروس که نه ولی برنامه مردم آزار و مایه لعن و نفرین که نمیخواهید بسازید؟ :n35:
درون exe ها و dll ها بخشی به نام Resource پیش بینی شده که میتوانید متن و آیکون و تصویر و آهنگ و هر فایلی را در آن قرار دهید و از آن استفاده کنید.
کافیست فایل را در Resource اضافه کنید و در زمان لازم Extract کنید.
(برای ورود به بخش Resource میتوانید از منوی Project>Properties>Resource اقدام کنید)
دو پست مختلف به دو شیوه مختلف در این مورد صحبتی شده:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
پس از Extract در هارد میتوانید هر exe را با تابع System.Diagnostics.Process.Start اجرا کنید.
(پیشنهاد میکنم اجرای notepad یا ماشین حساب ویندوز را توسط تابع فوق یکبار امتحان کنید)
موفق باشید.
سلام دوباره
نه دوست عریر ویروس کجابود!ویروس مگه به این اسونیهایه!
من فقط یک فایل اجرا کننده یاهمون (stub)میخوام وا30 فایل اینکریپت شده همین
بقول خودت که با این تابع هر exe را با تابع System.Diagnostics.Process.Start exe اجرا میشه فایل من که exe نیست ایینکریپتشده هست
من این کارو میخوام انجام بدم
فایل اینکریپت شده رو تزریق کنم تو فایل اجرا کننده (stub) اینو خودم میدنم( " هالا تو این فایل اجرا کننده (stub) چه دستورات نیازه که فایل اینکریپت شده رو از سورس خودش پیدا ودیکریپت وبعد هم اجراکنه انو نمیدونم" ) لطفا توضیح بدین
نمیخوام فایلو اول تو هارد کپی ار انجاه اجرا کنه این طور نباشه
از دوستان که وقت میزارن وراهنمای میکنن ممنونم
نقل قول:
سلام
به این فن آوری هسته ای کمک کنید
سلام
متاسفم، فقط یک مسیر برای اجرای exe های دات نتی در RAM وجود دارد و بطور کلی API جهت اجرای برنامه های ویندوزی در RAM نداریم یا حداقل من بلد نیستم ...نقل قول:
نوشته شده توسط ALIFARSI
تنها راهی که بلدهستم آن است که فایل در را temp ذخیره و اجرا کنید ...
؟
کدام؟ همان که حق مسلم ماست؟! :n19:نقل قول:
نوشته شده توسط ALIFARSI
میبخشید کمی درگیری دانلود و نصب و امتحان مکرر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] داشتم و البته هنوز دارم ...