تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود تحويل byte الىwords
#1
من يستطيع مساعدتي بكود يحول البايتات الى ورد
مثلا

01 23 45 67 89 ab cd ef 01 12 23 34 45 56 67 78

تتحول الى مصفوفة

l[0]=67452301

l[1]=efcdab89

l[2]=34231201

l[3]=78675645

يعني تقسم البايتات اربع اجزاء وتسويلهم تدوير
اني سويت هذه الفنكشن بس بيها طلع خطأ

الخطأ بالمكان الاصفر

هذه الخوارزمية الاصلية

convert bytes to words

l[i/4]=(l[i/4]<<<8+k[i]


هذه الاشارة >>> معناها التدوير لليسار
[k[i هذا المدخل الاول البايتات
الرد }}}}
تم الشكر بواسطة:
#2

السلام عليكم ورحمة الله

أكيد تقصد DWord كما هو واضح من أمثلة النتائج التي في مثالك

هذه طريقة مختلفة قليلاً إن شاء الله تكون فيها الفائدة
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click

    Dim b 
As Byte() = _
    
{&H01, &H23, &H45, &H67, &H89, &HAB, &HCD, &HEF, &H01, &H12, &H23, &H34, &H45, &H56, &H67, &H78}

    
Dim dw As Integer() = convBytesToDWords(b)

    
Dim s As New System.Text.StringBuilder
    
For 0 To dw.Length 1
        s
.AppendLine(String.Format("dw({0}) = {1} "iHex$(dw(i))))
    
Next
    MsgBox
(s.ToString)

End Sub


Private Function convBytesToDWords(As Byte()) As Integer()
    
Dim dw((b.Length 4) - 1) As Integer
    
For i1 0 To b.Length 1 Step 4
        
For i2 0 To 3
            dw
(i1 4) = (dw(i1 4) << 8) + (b(i1 i2))
        
Next
    Next
    
Return dw
End 
Function 

الرد }}}}
تم الشكر بواسطة: rafah samih
#3
رحم الله والديك
ياااااارب يوفقك ,, راح اجرب هذه الطريقة .. والف شكرا

طيب اذا اريد البايتات تكون مختلفة
يعني مو نفسهة
كل مرة يدخل شكل البايتات ويكون ورد مختلفة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحويل الصوت الى نص Basil Abdallah 0 30 14-05-17, 09:34 PM
آخر رد: Basil Abdallah
  [سؤال] كيفية تحويل كود اكسلvba الى فيجوال بيسك farhat 10 312 10-03-17, 08:36 PM
آخر رد: farhat
  [سؤال] كيف يمكنني تحويل التقويم من هجري إلى ميلادي والعكس؟؟ اليوم مبتدئة وغداً محترفة 2 140 01-03-17, 03:55 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  [سؤال] تحويل رقم farhat 3 118 27-02-17, 04:25 PM
آخر رد: farhat
  مشكلة ف الحفظ والتعديل بعد تحويل المشروع لملف تنفيذي apo yousef 3 164 23-02-17, 12:28 PM
آخر رد: ssayed111
  تحويل الارقام الي حروف محمد بوقزاحة 6 443 22-01-17, 05:01 PM
آخر رد: tryold
  [VB.NET] مشكلة تحويل من 32بت الى 64 بت yemen1 3 238 08-01-17, 01:23 PM
آخر رد: yemen1
  [VB.NET] مساعدة في تحويل كود من php الى vb.net dubai.eig 8 375 23-12-16, 01:29 AM
آخر رد: dubai.eig
  [VB.NET] تحويل التاريخ لسلسلة نصية tifagreet 1 235 01-11-16, 01:28 PM
آخر رد: ممدوح
Information [VB.NET] خطاء في الكرستال ريبورت عند تحويل قاعدة البيانات من اكسس إلى ميسكوال 3msoft 2 245 22-10-16, 11:49 PM
آخر رد: 3msoft

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


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