تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد كود دمج ملف مضغوط zip داخل ملف نصى txt
#1
السلام عليكم ورحمة الله
وجدت فى بعض المواقع اخ عامل برنامج دمج ملف مضغوط داخل صورة
فاردت ان اعرف هل من الممكن دمج ملف مضغوط zip داخل ملف نصى txt
الرد }}}
تم الشكر بواسطة:
#2
كيف يعني دمج ملف مضغوط داخل txt ????

يعني تحويل صيغة الzip الى txt وارجاعها ؟؟
الرد }}}
تم الشكر بواسطة:
#3
انظر هذا الموضوع لفهم قصدى
الرد }}}
تم الشكر بواسطة:
#4
الموضوع بسيط

كل ماعمله هو دمج البياتات من خلال اوامر الدوس

هناك طرق عدة لفعل ذلك بالفيجوال بيسك

إما باستعمال الدوس كما فعل هو
او استعمال append في stream

طبعا append هي الافضل

تفضل (الكود محول)

PHP كود :
    Public Partial Class Form1

        
Private Path1 As String ""
        
Private Path2 As String ""

        
Private Sub button1_Click(sender As ObjectAs EventArgs)
            
Dim op As New OpenFileDialog()
            
op.CheckFileExists True
            
If op.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                Path1 
op.FileName
            End 
If
        
End Sub

        
Private Sub button2_Click(sender As ObjectAs EventArgs)
            
Dim op As New OpenFileDialog()
            
op.CheckFileExists True
            
If op.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                Path2 
op.FileName
            End 
If
        
End Sub

        
Private Sub button3_Click(sender As ObjectAs EventArgs)
            If 
Path1 <> "" AndAlso Path2 <> "" AndAlso textBox1.Text <> "" Then
                Dim sv 
As New SaveFileDialog()
                
sv.Filter textBox1.Text "File|*." textBox1.Text
                
If sv.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                    JoinFile
(sv.FileName)
                
End If
            Else
                
MessageBox.Show("Check your enteries""Error"MessageBoxButtons.OKMessageBoxIcon.[Error])
            
End If
        
End Sub


        
Private Sub JoinFile(outPath As String)
            Try
                
Dim filesBytes As New List(Of Byte)()
                
filesBytes.AddRange(System.IO.File.ReadAllBytes(Path1))
                
filesBytes.AddRange(System.IO.File.ReadAllBytes(Path2))

                
Dim fs As New System.IO.FileStream(outPathSystem.IO.FileMode.Append)
                
Dim outData As Byte() = filesBytes.ToArray()
                
fs.Write(outData0outData.Length)
                
fs.Close()

                
MessageBox.Show("Joining Completed""Secsess"MessageBoxButtons.OKMessageBoxIcon.Information)
            Catch 
ex As Exception
                MessageBox
.Show(ex.Message)
            
End Try
        
End Sub


    End 
Class 

والبرنامج في السورس في المرفقات


الملفات المرفقة
.zip   File joiner.zip (الحجم : 54.56 ك ب / التحميلات : 105)
الرد }}}
تم الشكر بواسطة:
#5
جزاك الله خيرا اخى
سوال اخير هل من الممكن دمج اكثر من ملف مثلا اريد دمج صورة مع ملف نصى مع ملف مضغوط
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم

اخواني هذا الموضوع يخص [b]Steganography
وهي كلمة يونانية تعني اخفاء المعلومات أو فن الاختزال المقصود منها اخفاء بيانات داخل بيانات اخرى لغرض التشفير.

مثلا اخفاء نص داخل صورة ويمكن تشفير النص ومن ثم اخفائه لزيادة الأمان.

وأشهر خوارزمية لفعل ذلك خوارزمية البت الأقل أهمية LSB مختصر لكلمة (Least Significant Bit) حيث يتم اخفاء بت واحد من النص داخل 8 بتات من الصورة

او فرضنا أنا لدينا الحرف A ونريد أخفائه داخل صورة اولا نحول الحرف A الى Binary أرقام ثنائية ,وكما نعرف أن الحرف A يعادل الرقم 65 في جدول آسكي اذا يحول الى (01000001)

اذا سوف نحتاج الى 8 بايتات من الصورة لخزن 8 بتات أي كل بايت نخزن فيه بت واحد

والطريقة كما بينا هي LSB أي تبديل البت الأقل أهمية ببت واحد من النص

والبت الاقل أهمية هو البت الاول لانه لا يترك تأثيرا كبيرا على الصورة في مثالنا لو بدلنا البت الاول (1) ب (0) سيكون النتاج 64 وهذا لا يؤثر في عرض الصورة من ناحية المظهر.

أتمنى أني قد وضحت الفكرة.[/b]
الرد }}}
تم الشكر بواسطة:
#7
جزاكم الله خير
وشكر للاخ (الشاكي لله) على المثال
كما نشكر الاستاذ ( سجاد ) الشرح القيم بارك الله فيك

احبتي الان تم وضع ملف داخل ملف طيب
اين برنامج فك التشفير
لاستعادة الملفات :o
ربي يحفظكم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 430 09-01-24, 08:40 PM
آخر رد: new_programer
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 460 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 358 08-11-23, 08:16 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer

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


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