این موضوع رو ایجاد کردم تا ببینم AES و DES دقیقا چیه و چجوری میشه ازش استفاده کرد اینکه گفته میشه که برای انتقال اطلاعات امن هستش خوب انتقال اطلاعات باهاش چجوریه؟
با تشکر از جواب هاتون :smile:
با تشکر از جواب هاتون :smile:
$regfile = "xm16a4def.dat" $crystal = 32000000 '32MHz $hwstack = 200 $swstack = 200 $framesize = 200 $lib "xmega.lib" : $external _xmegafix_clear : $external _xmegafix_rol_r1014 Config Osc = Disabled , 32mhzosc = Enabled '32MHz Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1 Open "comD.2:115200,8,n,1" For Output As #1 Dim Text As String * 32 Do Text = "test AES" Print #1 , "main text => " ; Text Print #1 , Aesencrypt Keydata , Text , 32 Print #1 , "after encrypt => " ; Text Print #1 , Aesdecrypt Keydata , Text , 32 Print #1 , "after decrypt => " ; Text Print #1 , Wait 1 Loop End Keydata: Data &H0AA , &H011 , &H022 , &H033 , &H044 , &H055 , &H066 , &H077 , &H088 , &H099 , &H0AA , &H0BB , &H0CC , &H0DD , &H0EE , &H0FF
دیدگاه