با سلام
برنامه ای برای محاسبه یک رمز نوشته ام که در آن عددg1 با poly1،XORمی شوند ودر g1 ریخته می شود اما xor فقط زمانی اتفاق میفته که بیت باارزش g1یک باشه.برای عددهای توی این برنامه باید مقدار هگز 93 بدست بیاد اما با برنامه من عدد دیگه ای بدست میاد:
اگه میشه بگین اشکال برنامم چیه؟؟؟؟؟؟؟؟؟
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdbus = 4 , Db7 = Portd.7 , Db6 = Portd.6 , Db5 = Portd.5 , Db4 = _
Portd.4 , E = Portd.3 , Rs = Portd.0
Dim G1 As Word
Dim A As Word
Dim J As Byte
Dim B As Word
Dim G2 As Word
Dim Poly1 As Word
Home : Cls : Cursor Off
Lcd "hi"
Wait 2
Cls
G1 = &B0101110000000000
A = &B1000000000000000
Poly1 = &B1000001110000000
For J = 1 To Len(g1) Step 1
B = G1 And A
If B = A Then
G1 = G1 Xor Poly1
G2 = G1
Shift G1 , Left
Else
Shift G1 , Left
End If
Next
Locate 1 , 1
Lcd "pec="
Lcd Hex(g2)
End
برنامه ای برای محاسبه یک رمز نوشته ام که در آن عددg1 با poly1،XORمی شوند ودر g1 ریخته می شود اما xor فقط زمانی اتفاق میفته که بیت باارزش g1یک باشه.برای عددهای توی این برنامه باید مقدار هگز 93 بدست بیاد اما با برنامه من عدد دیگه ای بدست میاد:
اگه میشه بگین اشکال برنامم چیه؟؟؟؟؟؟؟؟؟
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdbus = 4 , Db7 = Portd.7 , Db6 = Portd.6 , Db5 = Portd.5 , Db4 = _
Portd.4 , E = Portd.3 , Rs = Portd.0
Dim G1 As Word
Dim A As Word
Dim J As Byte
Dim B As Word
Dim G2 As Word
Dim Poly1 As Word
Home : Cls : Cursor Off
Lcd "hi"
Wait 2
Cls
G1 = &B0101110000000000
A = &B1000000000000000
Poly1 = &B1000001110000000
For J = 1 To Len(g1) Step 1
B = G1 And A
If B = A Then
G1 = G1 Xor Poly1
G2 = G1
Shift G1 , Left
Else
Shift G1 , Left
End If
Next
Locate 1 , 1
Lcd "pec="
Lcd Hex(g2)
End
دیدگاه