سأطرح موضوع هام لمعرفة اسرار الرسيفر
عن طريق عمل اللودر
كيف يمكن لكل شخص مبرمج أن يصنع لودر
لتحميل برنامج أو محطات أو ملف شيفرةأو سحب من الريسيفر
بختصار صنع لودر مثل لودر الشركة المصنعة لكل الاجهزة
سنبدأ في صنع لودر لأجهزة الاسترا
الطريقة هي بأن نستعمل جهازين كمبيوتر الجهاز الاول للتعامل
مع الرسيفر والجهاز الثاني للمراقبة
وطريقة الوصل كما في الصورة
الرابط من منتدى آخر وهذا مخالف
نبدأ اولا بسحب قنوات أو سوفت وير من الرسيفر بواسطة البرنامج EMUpgrade أو eMEdit

شغل برنامج المراقبة المرفق مع الموضوع واضبطه على الكوم 2
ثم شغل نسخة اخرى واضبطه على الكوم 1 طبعاً على كمبيوتر المراقبة
سوف نشاهد الاوامر الخارجة من الكمبيوتر الاول والخارجة من الرسيفر
كلاً على حد في برنامج المراقبة 1 و 2
ونستنج مايلى:
عندما نطلب من البرنامج EMUpgrade سحب من الرسيفر فإنه يعطي إشارة( 01 )بلغة hex بشكل متكرر
حتى نطلب من الرسيفر نقل معلومات فيقوم بإرسال حزمة معلومات حجمها (65بايت) في بدايتها امر (08)
بلغة hex والحزمة هي عبارة عن معلومات تعريف الرسيفر ورقم الموديل والهاردوير والسوفت وير
بعد أن يستقبل اللودر هذه الإشارة(إشارة معلومات الرسيفر= 65بايت) يقوم بإرسال أمر ( 10 ) فيقوم
الرسيفر ب إرسال حزمة من المعلومات حجمها (1029bytes) مرفق في بدايتها معلومة(hex 02 00 FF) وفي
نهايته معلومة (hex 00 FF) وبعد إزالة هذه المعلومتين من هذه الحزمة يبقى حجمها (1024بايت)
ثم يرسل اللودر أمر( 10 ) أيضا فيرسل الرسيفر حزمة ثانية (1029 بايت)
تتضمن في بدايتها ونهايتها نفس معلومات الحزمةالسابقة
وهكذا تتكرر العملية حتى نهاية البرنامج فيرسل اللودر أمر (17)بلغة hex معناه اكتمال الاستقبال
فيظهر على شاشة الرسيفر " تم النقل"

وهكذا تتم معرفة عمل لودر السحب من الرسيفر

ثم نقوم بتنزيل سوفت وير على الرسيفر من الكمبيوتر الاول ونشاهد الأوامر على الكمبيوتر الثاني
بنفس الطريقة السابقة فيتم بذلك معرفة طريقة الإرسال للرسيفر
والطريقة عكسية تماماً

هذا هو كود برنامج المراقبة وقريباً برنامج اللودر

Dim Buffer As String
Dim stop1 As Integer

Private Sub Command1_Click()
ComPortOpen
Option1.Enabled = False
Option2.Enabled = False
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
MSComm1.PortOpen = False
Option1.Enabled = True
Option2.Enabled = True
Command1.Enabled = True
Command2.Enabled = False
End Sub


Private Sub Command3_Click()
stop1 = 0
Command3.Enabled = False
Command4.Enabled = True
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
RichTextBox1.Text = Buffer$
RichTextBox1.Refresh
Loop Until stop1 = 1
Command4.Enabled = False
Command3.Enabled = True
End Sub

Private Sub Command4_Click()
stop1 = 1
Command4.Enabled = False
Command3.Enabled = True

End Sub

Private Sub Command5_Click()
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Binary As #1
Put #1, 1, Buffer
Close #1
End Sub

Private Sub Form_Load()
Combo1.AddItem "110"
Combo1.AddItem "300"
Combo1.AddItem "1200"
Combo1.AddItem "2400"
Combo1.AddItem "4800"
Combo1.AddItem "9600"
Combo1.AddItem "19200"
Combo1.AddItem "38400"
Combo1.AddItem "57600"
Combo1.AddItem "115200"
Combo1.AddItem "230400"
Combo1.AddItem "460800"
Combo1.AddItem "921600"
ComPortOpen
RichTextBox1.Text = ""
End Sub
Private Sub ComPortOpen()
Dim Instring As String
Dim speed As String
If Option1.Value = True Then
MSComm1.CommPort = 1
Else
MSComm1.CommPort = 2
End If
speed = Combo1.Text + ",N,8,1"
MSComm1.Settings = speed
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If

تم حذف الملف لانه يحمل دعاية لمنتدى آخر