欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: [榨干芯片性能]STC15F104E/W 8腳單片機 MD5算法移植+軟串口發送源程序 [打印本頁]
作者: npn    時間: 2020-7-12 10:16
標題: [榨干芯片性能]STC15F104E/W 8腳單片機 MD5算法移植+軟串口發送源程序
本帖最后由 npn 于 2020-7-23 22:43 編輯

STC15F104E/STC15F104W 單片機芯片,字符串寫入EEPROM的第1個扇區 (限511字節,最后1字節為空字符0)。
由于該型號芯片的RAM容量有限，使用EEPROM的第2個扇區擴展RAM空間。
晶振頻率:11.0592Mhz 波特率:9600，如有問題請在樓下跟帖回復。
(2020-07-23) V1.1 刪改部分函數變量，優化RAM占用。



單片機源程序如下:

  2. #include "stc15f104e.h"
  3. #include "intrins.h"
  4. #define ReverseIntBytes(l) l<<24|l>>24|(l&0xFF0000)>>8|(l&0xFF00)<<8;
  5. #define XchgVar(A,B) A=A^B;B=A^B;A=A^B;
  6. #define U8 unsigned char
  7. #define U16 unsigned int
  8. #define U32 unsigned long
  9. U8 code  *eeprom = 0x1000;
  10. U32 code *eeprom32 = 0x1000;
  11. U32 code ti[]={
  12.         0xd76aa478,0xe8c7b756,0x242070db,0xc1bdceee,
  13.         0xf57c0faf,0x4787c62a,0xa8304613,0xfd469501,0x698098d8,
  14.         0x8b44f7af,0xffff5bb1,0x895cd7be,0x6b901122,0xfd987193,
  15.         0xa679438e,0x49b40821,0xf61e2562,0xc040b340,0x265e5a51,
  16.         0xe9b6c7aa,0xd62f105d,0x02441453,0xd8a1e681,0xe7d3fbc8,
  17.         0x21e1cde6,0xc33707d6,0xf4d50d87,0x455a14ed,0xa9e3e905,
  18.         0xfcefa3f8,0x676f02d9,0x8d2a4c8a,0xfffa3942,0x8771f681,
  19.         0x6d9d6122,0xfde5380c,0xa4beea44,0x4bdecfa9,0xf6bb4b60,
  20.         0xbebfbc70,0x289b7ec6,0xeaa127fa,0xd4ef3085,0x04881d05,
  21.         0xd9d4d039,0xe6db99e5,0x1fa27cf8,0xc4ac5665,0xf4292244,
  22.         0x432aff97,0xab9423a7,0xfc93a039,0x655b59c3,0x8f0ccc92,
  23.         0xffeff47d,0x85845dd1,0x6fa87e4f,0xfe2ce6e0,0xa3014314,
  24.         0x4e0811a1,0xf7537e82,0xbd3af235,0x2ad7d2bb,0xeb86d391
  25.         };

  27. U8 code ss[4][4]={
  28.         {7,12,17,22},{5,9,14,20},{4,11,16,23},{6,10,15,21}
  29. };

  31. union md5_key {
  32.         U32 l[4];
  33.         U8 c[16];
  34. };

  36. union udata {
  37.         U32 l;
  38.         U8 c[4];
  39. };

  41. union udata2 {
  42.         U32 l[2];
  43.         U8 c[8];
  44. };

  46.         sbit txd = P3^1;
  47.         void delay_uart(){
  48.             U8 data a,b;
  49.             for(b=3;b>0;b--)
  50.                 for(a=94;a>0;a--);
  51.         }

  53.         void txd_data(U8 i) {
  54.                 U8 j = 1;
  55.                 delay_uart();
  56.                 txd = 0;
  57.                 do {
  58.                         delay_uart();
  59.                         txd = i & j;
  60.                         j <<= 1;
  61.                 } while (j);
  62.                 delay_uart();
  63.                 txd = 1;
  64.         }

  66.         void send_text(U8 *text){
  67.                 for(;*text;text++){
  68.                         txd_data(*text);
  69.             }
  70.         }

  72. void eeprom_open(){
  73.         IAP_CONTR = 0x83;
  74.         IAP_CMD = 0;
  75.         IAP_ADDRH        = 0x00;
  76.         IAP_ADDRL        = 0x00;
  77. }

  79. void eeprom_close(){
  80.         IAP_CONTR = 0;
  81.         IAP_CMD = 0;
  82.         IAP_TRIG = 0;
  83.         IAP_ADDRH = 0;
  84.         IAP_ADDRL = 0;
  85. }

  87. void eeprom_write(U16 addr,U8 dat){
  88.         IAP_CONTR = 0x83;
  89.         IAP_CMD = 2;
  90.         IAP_ADDRL = addr;
  91.         IAP_ADDRH = addr >> 8;
  92.         IAP_DATA = dat;
  93.         IAP_TRIG = 0x5a;
  94.         IAP_TRIG = 0xa5;
  95.         _nop_();_nop_();_nop_();
  96. }

  98. void eeprom_erase(U16 addr){
  99.     IAP_CONTR = 0x83;
  100.     IAP_CMD = 3;
  101.     IAP_ADDRL = addr;
  102.     IAP_ADDRH = addr >> 8;
  103.     IAP_TRIG = 0x5a;
  104.     IAP_TRIG = 0xa5;
  105.     _nop_(); _nop_();_nop_();
  106. }

  108. U8 block = 0;

  110. void witre_md5_data(U8 address,U8 byte){
  111.         eeprom_write(0x200|((block<<6)|address),byte);
  112. }

  114. U8* md5(U8 *i){
  115.         union md5_key md5_key;
  116.         union udata2 md;
  117.         U32 A,B,C,D,g;
  118.         U16 z,pc=0,len=0,gn;
  119.         U8 a,c,r,m;
  120.         bit f,s128=0;
  121.         md5_key.l[0] = 0x67452301;
  122.         md5_key.l[1] = 0xefcdab89;   
  123.         md5_key.l[2] = 0x98badcfe;
  124.         md5_key.l[3] = 0x10325476;
  125.         for(;*i;i++) len++;
  126.         gn=((len+8)>>6)+1;
  127.         i -= len;
  128.                 for(z=1;z<=gn;z++){
  129.                         for(c = 0;c < (z == gn ? 56 : 64); c++){
  130.                         f = pc >= len;
  131.                         a = pc & 63 ^ 3;
  132.                         if(f && !s128){
  133.                                  s128=1;
  134.                                 witre_md5_data(a,128);
  135.                         } else {
  136.                                 witre_md5_data(a,f ? 0 : *i++);
  137.                         }
  138.                         pc++;
  139.                 }
  140.         if(z == gn) {
  141.                 md.l[0]=len;md.l[1]=0;
  142.                 for(a=0;a<3;a++){
  143.                         f = 0;
  144.                         for(c=0;c<8;c++){
  145.                                 m=md.c[c^3];
  146.                                 r= m<<1|f;
  147.                                 f= m>>7;
  148.                                 md.c[c^3]=r;
  149.                         }
  150.                 }
  151.                 for(c=0;c<8;c++){
  152.                         witre_md5_data(56|c,md.c[c]);
  153.                 }
  154.         }

  156.         A=md5_key.l[0];B=md5_key.l[1];
  157.         C=md5_key.l[2];D=md5_key.l[3];
  158.         for(a=0;a<64;a++){
  159.                 switch(a>>4){
  160.                         case 0:{g=(B&C)|((~B)&D);c=a;break;}
  161.                         case 1:{g=(D&B)|((~D)&C);c=5*a+1;break;}
  162.                         case 2:{g=B^C^D;c=3*a+5;break;}
  163.                         case 3:{g=C^(B|(~D));c=7*a;break;}
  164.                 }

  166.         A=B+_lrol_(A+g + eeprom32[0x80 | (block << 4) | (c & 15)] + ti[a],ss[a>>4][a&3]);
  167.         XchgVar(A, D); XchgVar(B, D); XchgVar(C, D);
  168.         }
  169.                 if(++block > 7){
  170.                         eeprom_erase(0x200);
  171.                         block = 0;
  172.                 }

  174.         md5_key.l[0]+=A;md5_key.l[1]+=B;
  175.         md5_key.l[2]+=C;md5_key.l[3]+=D;
  176.                 }

  178.                 for(c=0;c<4;c++){
  179.                         md5_key.l[c]=ReverseIntBytes(md5_key.l[c]);
  180.                 }
  181.         return md5_key.c;
  182. }

  184. void main(){
  185. U8 z;
  186. U8* md5_answer;
  187. eeprom_open();
  188. eeprom_erase(0x200);
  189. send_text("STC15F104E MD5 V1.1\r\n");
  190. send_text("md5(\"");
  191. send_text(eeprom);
  192. send_text("\")=");
  193. md5_answer = md5(eeprom);
  194. for (z = 0; z < 16; z++) {
  195.         txd_data(((md5_answer[z] >> 4) < 10 ? 48 : 87) + (md5_answer[z] >> 4));
  196.         txd_data(((md5_answer[z] & 15) < 10 ? 48 : 87) + (md5_answer[z] & 0xF));
  197. }

  199. send_text("\r\n");
  200. eeprom_close();
  201. while (1) {
  202.         WDT_CONTR = 0x37;
  203. }


  206. }

復制代碼


所有資料51hei提供下載:

MD5-STC15F104E V1.1.zip (13.15 KB, 下載次數: 39)
作者: 51hei團團    時間: 2020-7-12 16:43
這個牛逼啊,單片機居然能干這么高端的事情
作者: BG6BXN    時間: 2020-7-13 15:45
正在找STC15F104E/W 軟串口發送源程序，謝謝了！
作者: szb314    時間: 2020-7-24 15:32
EEPROM 當RAM用會不會很慢
作者: npn    時間: 2020-7-24 22:47
szb314 發表于 2020-7-24 15:32
EEPROM 當RAM用會不會很慢

添加IO口賦值語句，然后用邏輯分析儀測量即可。



歡迎光臨 (http://m.raoushi.com/bbs/) Powered by Discuz! X3.1