[vb.net] مشکل با اینکریپت:ودیکریپت کردن فایل اجرای

سلام
چیگونه یک فایل اجرای رو با الگوریتم xor اینکریپت کنیم؟
چیگونه این تابع بنویسم ممنون

سلام
الگوریتم XOR بسیار ساده است، الگوریتم های با بنیان های قوی ریاضی (مانند AES) هم داریم که در دات نت به راحتی قابل استفاده هستند...
ولی سوال اصلی اینجاست که هدف شما چیست؟
آیا میدانید که اگر هر فایل (exe, jpg, doc و...) را رمزنگاری کنید تا وقتی کد دیگری اجرا نشود و فایل را از رمز خارج نکند آن فایل قابل استفاده نخواهد بود؟
یعنی انتظار که ندارید که همینطوری هر بلایی خواستید سر exe در آورید و بعد هم بخواهید باز کار کند؟

کمی بیشتر توضیح دهید.

سلام ممنونم که جواب دادین هدفم همون طوری که گفتم یعنی بتونم کار کنم با این تابع اشنا شم وبتونم فایل اجرای رو اینکریپت کنم من مبتدا هستم اکر ممکنه با 1-2 مثال توضیح بدین پارا متر های ورودی ونحوه استفادشو بازم ممنون

نقل قول:

---

نوشته شده توسط ALIFARSI [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام ممنونم که جواب دادین هدفم همون طوری که گفتم یعنی بتونم کار کنم با این تابع اشنا شم وبتونم فایل اجرای رو اینکریپت کنم من مبتدا هستم اکر ممکنه با 1-2 مثال توضیح بدین پارا متر های ورودی ونحوه استفادشو بازم ممنون

---

واقعا ممنون از رسیدگی تون!!!
3 روزه میگزره روز هزار نفر انلاینه یعنی 3 هزار نفر یجواب نداده متاسفانه:n31:

سلام
دوست من، صبر داشته باشید... :n02:
خودم بطور معمول هفته ای یک یا دوبار لاگین میکنم، سایر دوستان هم همینطور هستند...
:n16:
نمونه کد رمزنگاری یک فایل با الگوریتم Data Encryption Standard

کد:

---

public static void Main(string[] args)
{
    Encrypt(@"D:\file.jpg", @"D:\file.encrypt", "123");
    Decrypt(@"D:\file.encrypt", @"D:\file2.jpg", "123");
}

public static void Decrypt(string input, string output, string password)
{
    byte[] hashpassword = MD5.Create().ComputeHash(Encoding.UTF8.GetBytes(password));
    var symmetric = DES.Create();
    symmetric.IV = hashpassword.Take(8).ToArray();
    symmetric.Key = hashpassword.Skip(8).ToArray();

    using (var reader = new System.IO.FileStream(input, System.IO.FileMode.Open, System.IO.FileAccess.Read))
    using (var writer = new System.IO.FileStream(output, System.IO.FileMode.CreateNew, System.IO.FileAccess.Write))
    using (var stream = new CryptoStream(reader, symmetric.CreateDecryptor(), CryptoStreamMode.Read))
    {
        byte[] buffer = new byte[64 * 1024];
        while (true)
        {
            int read = stream.Read(buffer, 0, buffer.Length);
            if (read <= 0) break;
            writer.Write(buffer, 0, read);
        }
    }
}

public static void Encrypt(string input, string output, string password)
{
    byte[] hashpassword = MD5.Create().ComputeHash(Encoding.UTF8.GetBytes(password));
    var symmetric = DES.Create();
    symmetric.IV = hashpassword.Take(8).ToArray();
    symmetric.Key = hashpassword.Skip(8).ToArray();

    using (var reader = new System.IO.FileStream(input, System.IO.FileMode.Open, System.IO.FileAccess.Read))
    using (var writer = new System.IO.FileStream(output, System.IO.FileMode.CreateNew, System.IO.FileAccess.Write))
    using (var stream = new CryptoStream(writer, symmetric.CreateEncryptor(), CryptoStreamMode.Write))
    {
        byte[] buffer = new byte[64 * 1024];
        while (true)
        {
            int read = reader.Read(buffer, 0, buffer.Length);
            if (read <= 0) break;
            stream.Write(buffer, 0, read);
        }
    }
}

---

ممنون از توجه تون ولی تایپبک من تو بخش .net هست وکد شما بنظر من [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] باشه !
من گفتم مبتداهستم فقط .net کمی میدونم نه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
دوستان نحوه استفاده این تابع XOREncryption روبگید یعنی پارا مترهای ورودی شو بیشتر توضیح میخوام ممنون

مشکل این ارور ها چیه؟ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

تبدیل VB.Net کدقبلی
یک پروژه Console Application با dotNet Framework 4.5 ایجاد کنید و در فایل Module1.vb کد زیر را قرار دهید:

کد:

---

Imports System.Security.Cryptography
Imports System.Linq
Imports System.Text

Public Module Module1

    Public Sub Main()
        Encrypt("D:\file.jpg", "D:\file.encrypt", "123")
        Decrypt("D:\file.encrypt", "D:\file2.jpg", "123")
    End Sub

    Public Sub Decrypt(input As String, output As String, password As String)
        Dim hashpassword = MD5.Create().ComputeHash(Encoding.UTF8.GetBytes(password))
        Dim symmetric = DES.Create()
        symmetric.IV = hashpassword.Take(8).ToArray()
        symmetric.Key = hashpassword.Skip(8).ToArray()

        Using _
            reader = New System.IO.FileStream(input, System.IO.FileMode.Open, System.IO.FileAccess.Read), _
            writer = New System.IO.FileStream(output, System.IO.FileMode.CreateNew, System.IO.FileAccess.Write), _
            stream = New CryptoStream(reader, symmetric.CreateDecryptor(), CryptoStreamMode.Read)

            Dim buffer(64 * 1024) As Byte
            Do While (True)
                Dim read As Integer = stream.Read(buffer, 0, buffer.Length)
                If (read <= 0) Then Exit Do
                writer.Write(buffer, 0, read)
            Loop
        End Using

    End Sub

    Public Sub Encrypt(input As String, output As String, password As String)
        Dim hashpassword = MD5.Create().ComputeHash(Encoding.UTF8.GetBytes(password))
        Dim symmetric = DES.Create()
        symmetric.IV = hashpassword.Take(8).ToArray()
        symmetric.Key = hashpassword.Skip(8).ToArray()

        Using _
            reader = New System.IO.FileStream(input, System.IO.FileMode.Open, System.IO.FileAccess.Read), _
            writer = New System.IO.FileStream(output, System.IO.FileMode.CreateNew, System.IO.FileAccess.Write), _
            stream = New CryptoStream(writer, symmetric.CreateEncryptor(), CryptoStreamMode.Write)

            Dim buffer(64 * 1024) As Byte
            Do While (True)
                Dim read As Integer = reader.Read(buffer, 0, buffer.Length)
                If (read <= 0) Then Exit Do
                stream.Write(buffer, 0, read)
            Loop
        End Using
    End Sub

End Module

---

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


در خصوص کد خودتان هم باید عرض کنم، این کد بنظر از برنامه نویسی بدی تحت VB6 تبدیل به کدبدتری در VB.Net شده.
علی الحساب دو مشکل شما بدین شکل رفع خواهند شد

کد:

---

Private Const ALI As String = "ali"
...
Dim strDataOut As String = ""

---

شاید کدتان کامپایل شود ولی مشکلی از شما حل نخواهد شد! فراموشش کنید!


موفق باشید.

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


ی توضیح در این مورید میخواستم
ورودی های این XOR تابع مثلا 2 تا هست 1- مهتوا( s) که قراره کدشه
2- مهتوا ( ali) یعنی مهتوا (s) براساس این کد میشه یعنی چه
یعنی مهتوا (s) همش مثلا ali میشن نمیدونم توضیح بدین لطفا ورودی 2 رو
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

یک کد XOR برایتان نوشتم، بسیار کوتاه و ساده تر است، این را ببینید و دانلود کنید و اجرا کنید، خواستید هر بحث و مشکلی را روی همین کد در خدمت هستم
ولی با عرض شرمندگی حال و حوصله سروکله زدن با کدهای VB6 ده پانزده سال پیش را که بزور دات نتی شده اند را ندارم

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

کد:

---

Public Sub XOREncrypt(filepathInp As String, filepathOut As String, xorvalue As Byte)
    If (System.IO.File.Exists(filepathOut)) Then System.IO.File.Delete(filepathOut)

    Dim buffer(64 * 1024) As Byte
    Using _
        reader = New System.IO.FileStream(filepathInp, System.IO.FileMode.Open, System.IO.FileAccess.Read), _
        writer = New System.IO.FileStream(filepathOut, System.IO.FileMode.CreateNew, System.IO.FileAccess.Write)

        Do While (True)
            Dim read As Integer = reader.Read(buffer, 0, buffer.Length)
            If (read <= 0) Then Exit Do

            For index As Integer = 0 To read - 1
                buffer(index) = buffer(index) Xor xorvalue
            Next

            writer.Write(buffer, 0, read)
        Loop
    End Using
End Sub

---

تابع فوق یک فایل را گرفته و تک تک بایت های آن را با یک عدد مشخص XOR میکند و نتیجه را در فایل دیگری میریزید...
خط اول فایل مقصد را در صورت وجود حذف میکند.
خط بعدی یک بافر (حافظه موقت) 64KB میگیرد.

در خطوط Using دو فایل ورودی و خروجی جهت خواندن و نوشتن باز میشوند.
در اولین حلقه (While) برنامه برای آنکه مشکل سرریز RAM رخ ندهد هر بار 64KB از فایل ورودی را میخواند و رویش عملیات انجام میدهد.

بدین شکل میتوان فایل های چندین گیگابایتی فیلم را هم با کمترین مصرف RAM رمزنگاری کرد، چون عملیات بجای آنکه یکباره انجام شود در قطعات کوچک انجام میشود.


با کمک تابع Read یک بلوک 64KB از فایل ورودی خوانده میشود.
در حلقه دوم (For) تک تک بایت های بلوک خوانده شده با عدد مشخص XOR میشوند.
و پس از حلقه و به کمک تابع Write آن بلوک رمزشده در فایل خروجی ریخته میشود.
این فرآیند تا خوانده شدن تمام فایل ورودی تکرار میشود.

==============

تابع XOR یک تابع دوسمته است، مشابه Not ، یعنی یک بار اجرایش کنید، مثلا رمزنگاری انجام میشود و دفعه بعد اجرایش کنید، رمزگشایی انجام میشود.

جهت امتحان، یک تصویر، فیلم یا exe را به ورودی برنامه بدهید تا رمزکنید، سپس همان فایل رمزشده را به ورودی برنامه بدهید تا مجدد رمزگشایی کند، مشاهده میکنید که مجدد عکس یا فیلم و exe تان کار خواهد کرد.

دانلود پروژه کامل:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
موفق باشید.

باسلام:همین کد شمارو
اکر بخوام تکس پسورد از روی فرم پاککنم بجاشConst تعریف کنم ,
وان قیسمت که گفتی 64 64 میخونه هم پاک کنم یعنی یک بار بیخونه کا فیه
این کد بچه صورت میشه !
وبچه صورت فراخوانی میشه!
ی راهنمای کنید ممنون