تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] بخصوص تشفير ملف txt
#11
(03-11-18, 11:04 AM)asemshahen5 كتب : هذا مثال مع السورس كود

مثال مشروح عن 
السلام عليكم اخي
اريد برنامج بالفيجوال بيسك يشفر ملف الـ txt 
انا اصمم خرائط لمكائن الـ cnc ، الخريطة تدخل الى المكينة بصيغة txt ، اريد برنامج يشفر هذه الصيغة بحيث الخريطة تعمل فقط على المكينة وعندما تفتح الخريطة على اي نظام ويندوز تظهر مشفرة ... هذا الملف مثال على الصيغة التي تدخل الى المكينة والتي اُريد تشفيرها .. وشكرا

(03-11-18, 11:04 AM)asemshahen5 كتب : هذا مثال مع السورس كود

مثال مشروح عن التشفير

السلام عليكم اخي
اريد برنامج بالفيجوال بيسك يشفر ملف الـ txt 
انا اصمم خرائط لمكائن الـ cnc ، الخريطة تدخل الى المكينة بصيغة txt ، اريد برنامج يشفر هذه الصيغة بحيث الخريطة تعمل فقط على المكينة وعندما تفتح الخريطة على اي نظام ويندوز تظهر مشفرة ... هذا الملف مثال على الصيغة التي تدخل الى المكينة والتي اُريد تشفيرها .. وشكرا


الملفات المرفقة
.txt   8.TXT (الحجم : 2.61 ك ب / التحميلات : 3)
.txt   8.TXT (الحجم : 2.61 ك ب / التحميلات : 2)
الرد }}}
تم الشكر بواسطة:
#12
اذا كنت تريد تشفير الملف
وكذلك الملف سيتم العمل به على الماكينة فهنا سيكون المشكلة
ان الماكينا نفسها لم تتمكن من قرائة محتوى الملف

فاتمنى مراجعة الامر مجدداً لتوضح الصورة لك
او توضيح فكرتك كاملاً

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: asemshahen5
#13
المثال الذي وضعته لك يشفر كل أنواع الملفات مثل الصور و التكست و قواعد البيانات و حتى ملفات التنفيذية أي يشفر كل أنواع الملفات بلا استثناء .

إذا كنت تقصد تشفير ما بداخل الملف فهذا مثال على ذلك مأخوذ من هذه المشاركة ( منقول )  :

استفسار عن حقول تم تشفيرها

كود :
Public Function Encrypt(ByVal text As String, ByVal key As String) As String
       Try
           Dim crp As New TripleDESCryptoServiceProvider
           Dim uEncode As New UnicodeEncoding
           Dim bytPlainText() As Byte = uEncode.GetBytes(text)
           Dim stmCipherText As New MemoryStream
           Dim slt() As Byte = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
           Dim pdb As New Rfc2898DeriveBytes(key, slt)
           Dim bytDerivedKey() As Byte = pdb.GetBytes(24)
           crp.Key = bytDerivedKey
           crp.IV = pdb.GetBytes(8)
           Dim csEncrypted As New CryptoStream(stmCipherText, crp.CreateEncryptor(), CryptoStreamMode.Write)
           csEncrypted.Write(bytPlainText, 0, bytPlainText.Length)
           csEncrypted.FlushFinalBlock()
           Return Convert.ToBase64String(stmCipherText.ToArray())
       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
           Return Nothing
       End Try
   End Function
   Function Decrypt(ByVal text As String, ByVal key As String) As String
       Dim crp As TripleDESCryptoServiceProvider
       Try
           crp = New TripleDESCryptoServiceProvider
           Dim uEncode As New UnicodeEncoding
           Dim bytCipherText() As Byte = Convert.FromBase64String(text)
           Dim stmPlainText As New MemoryStream
           Dim stmCipherText As New MemoryStream(bytCipherText)
           Dim slt() As Byte = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
           Dim pdb As New Rfc2898DeriveBytes(key, slt)
           Dim bytDerivedKey() As Byte = pdb.GetBytes(24)
           crp.Key = bytDerivedKey
           crp.IV = pdb.GetBytes(8)

           Dim csDecrypted As New CryptoStream(stmCipherText, crp.CreateDecryptor(), CryptoStreamMode.Read)
           Dim sw As New StreamWriter(stmPlainText)
           Dim sr As New StreamReader(csDecrypted)
           sw.Write(sr.ReadToEnd)
           sw.Flush()
           csDecrypted.Clear()
           crp.Clear()
           Return uEncode.GetString(stmPlainText.ToArray())
       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
           Return Nothing
       End Try
   End Function
الرد }}}
تم الشكر بواسطة: elgokr , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 103 22-02-24, 12:09 PM
آخر رد: AHMED213
  [نقاش] بخصوص خصم مبلغ الضريبة من السعر h2551996 6 262 24-01-24, 06:17 PM
آخر رد: Taha Okla
  طلب مساعدة بخصوص كود الطباعة paveldida 2 453 19-01-24, 12:00 AM
آخر رد: العتيق
  استفسار عام بخصوص فتح اكثر من اتصال على قاعدة بيانات واحدة assuhimi 0 320 15-09-23, 04:54 PM
آخر رد: assuhimi
Bug [سؤال] قائمة ب اسماء برامج فك تشفير البرامج وقرائة السورسات Aymanr3b 0 284 06-09-23, 12:56 AM
آخر رد: Aymanr3b
  سؤال بخصوص المخازن والكميات Owz 1 369 03-08-23, 03:32 PM
آخر رد: Taha Okla
  [سؤال] سؤال بخصوص برنامج يعمل بالباركود eslam kady 2 619 05-06-23, 11:26 PM
آخر رد: eslam kady
  [VB.NET] سؤال بخصوص العلامات العشرية والتقريب علاء الكبابي 2 511 05-06-23, 01:02 PM
آخر رد: علاء الكبابي
Thumbs Down سؤال بخصوص ConfuserEx-GUI telecomnetwork2022 2 395 14-05-23, 12:31 PM
آخر رد: عبدالله الدوسري
  سؤال بخصوص المستخدمين النشطاء الحاليين علي الشبكة عبدالكريم برشدان 1 376 27-03-23, 11:18 PM
آخر رد: sanyor77

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم