بسم الله ...
ارجو مساعدتي باسرع وقت انا محتاجتكم هذا اول طلب لي .............يارب ساعدني
انا اريد عمل برنامج تشفير الملفات وفكة وقد وجدت الاكواد من موقع ولكن اريد ان اعرف عن:
ماهي الاشياء اللي يحتاجها الكود على الواجهة (الفورم) اقصد ماذا يخرج لي
كيف اشغل الكود ........كيف يتم الربط بين الكود والواجهة ....اريد البرنامج يشتغل
ارجوكم ساعدوني بشرح مفصل لاني مبتدئة في اللغة ومطلوب مني عمل ذلك .......لكم مني دعوة في ظهر الغيب وفي الثلث الاخير من الليل
الكود:
Imports System
Imports System.IO
Imports System.Security.Cryptography
Class FileEncrypt
Public Shared Function ConvertStringToByteArray(s As [string]) As [byte]()
Dim ca As [Char]() = s.ToCharArray()
Dim ba(ca.Length - 1) As [byte]
Dim i As Integer
For i = 0 To ba.Length - 1
ba(i) = Convert.ToByte(ca(i))
Next i
Return ba
End Function 'ConvertStringToByteArray
Public Shared Sub Main()
Dim fs As New FileStream("EncryptedFile.txt", FileMode.Create, FileAccess.Write)
' Creating a file stream
انشاء ملف لتشفيره
Console.WriteLine("Enter Some Text to be stored in encrypted file:")
Dim strinput As [string] = Console.ReadLine()
Dim bytearrayinput As [byte]() = ConvertStringToByteArray(strinput)
' DES instance with random key
انشاء نسخه مع مفتاح عشوائي من DESCryptoServiceProvider
Dim des As New DESCryptoServiceProvider()
' Create DES Encryptor from this instance
انشاء مشفر من هذه النسخه
Dim desencrypt As ICryptoTransform = des.CreateEncryptor()
' Create Crypto Stream that transforms file stream using des encryption
انشاء شفره التشفير للنسخه
Dim cryptostream As New CryptoStream(fs, desencrypt, CryptoStreamMode.Write)
' Write out DES encrypted file
بدايه التشفير
cryptostream.Write(bytearrayinput, 0, bytearrayinput.Length)
cryptostream.Close()
' Create file stream to read encrypted file back
انشاء الملف للقراءه من الملف المشفر
Dim fsread As New FileStream("EncryptedFile.txt", FileMode.Open, FileAccess.Read)
' Create DES Decryptor from our des instance
انشاء مشفر نسخه التشفير السابقه
Dim desdecrypt As ICryptoTransform = des.CreateDecryptor()
' Create crypto stream set to read and do a des decryption transform on
' incoming bytes
Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)
' Print out the contents of the decrypted file
طباعه محتوي الملف المشفر
Console.WriteLine(New StreamReader(cryptostreamDecr).ReadToEnd())
Console.WriteLine ()
Console.WriteLine ("Press Enter to continue...")
Console.ReadLine()
End Sub 'Main
End Class 'FileEncrypt
