大家来找茬！请大家帮我看看这个uuencode编解码程序究竟错在哪里？

bikkuri

大家好！
我有一个困扰我很长时间的问题请大家帮忙。
我写了一个uuencode的编码和解码程序。
uuencode的编码规则详见：http://zh.wikipedia.org/wiki/Uuencode
编码程序如下：

1. #!/bin/sh
   
2. uu_encode()
   
3. {
   
4. rm -f $encuu
   
5. if [ -f /usr/bin/uuencode ] ; then
   
6. for buff in $(hexdump -ve '1/1 "%x "'); do printf "\x$buff" >> $encuu; done
   
7. uuencode $encuu $encuu|awk 'NR>2{print p}{p=$0}'
   
8. rm -f $encuu
   
9. else
   
10. hexdump -ve '1/1 "%d "'|awk '{for(k=0;k*45<=NF;k++){m=(45*k+45<NF)?77:(NF+32-45*k);printf("%c",m);for(i=1;i<=m-32;i+=3){t=0;t=$(i+k*45)*256*256+$(i+k*45+1)*256+$(i+k*45+2);for(j=3;j>=0;j--){z=1;for(p=0;p<6*j;p++)z=z*2;c=(i+34-j<=m)?(int(t/z)+32):"`";if(c==32)c=96;printf("%c",c);t%=z}}printf"\n"}printf"`\n"}'
    
11. fi
    
12. }
    
13. encuu=/tmp/uu.enc
    
14. uu_encode

复制代码

解码程序如下：

1. #!/bin/sh
   
2. uu_decode()
   
3. {
   
4. if [ -f /usr/bin/uudecode ] ; then
   
5. echo "begin 644 b" > $decuu
   
6. awk NF >> $decuu
   
7. echo "end" >> $decuu
   
8. uudecode -o $outuu $decuu
   
9. cat $outuu
   
10. rm -f $decuu $outuu
    
11. else
    
12. local buff=""
    
13. for buff in $(awk '{for(l=0;l<NR;l++){h=substr($0,1,1);$0=substr($0,2);if(h!="`"){while(length($0)>0){split(substr($0,1,4),a,"");$0=substr($0,5);t=0;for(i=3;i>=0;i--){for(c=32;c<96;c++){if(sprintf("%c",c)==a[4-i])break}z=1;for(p=0;p<6*i;p++)z=z*2;t=t+z*((a[4-i]=="`")?0:c-32)};for (j=2;j>=0;j--) if (a[4-j]!="`"){y=1;for(p=0;p<8*j;p++)y=y*2;printf("\\x%x",t/y);t%=y}}}}printf"\n"}');do printf "$buff";done
    
14. fi
    
15. }
    
16. decuu=/tmp/uu.dec
    
17. outuu=/tmp/uu.out
    
18. uu_decode

复制代码

编码程序和解码程序中首先判断系统有没有自带的uuencode和uudecode命令，如果有的话，则直接使用系统自带的命令，如果没有的话，则用awk进行编码和解码运算。
因为用系统自带的命令执行效率远比用awk来运算要高，所以只有系统没有自带编解码命令的时候才用awk来编解码。
但是现在发现两者编解码出来的内容不一致！

1. root@nbox:/tmp/test/uu# gzip -c uudecode_final.sh |./uuencode_final.sh
   
2. M'XL(`/PXA5,"`UV2P7*;,!"&[WJ*C8HGD@T!8]?35I9SRS&'7&-/"[(((@08
   
3. MD";!#.\>`;'K5B?MM[O__IK5MQL_5H7?I,B8WT<IRJ,D%'5()?`,7@*^:>JQ
   
4. MPI@I"P=@H%-9("G2$G`L7U0!F_4:8@P[<&R5,2AZ?X7'!]A=P%0LBR.^@A=-
   
5. MKP2G--J8<T9$^HN@^FWP,?$SDWDC45Z**(?8)`G'&"5E/=[!NG'(,/^VLXSD
   
6. M/&#Y]O&)Y8L%[5+>F+C1-7$"=^DN*7."*Q)2IA*2WG#\!]/N/56Y)+DL7G1J
   
7. MLW07T*ZI<J7)M<::NI&+\7]*WRG3=O!@0/$54SL;*,^CHR7!5R$3VY\;)@9/
   
8. M=F13U:K0"<$S@5U!.8^>UYXZT+B6T6M_XLM1J;(BU78S5ZRR?2=^FH=VBEZ<
   
9. MYH1,#7QT?A_\$MXJI/W0!23C(<L&`YDU`':Q8W%V^'IF^X_ZCWDVJK>\M>IG
   
10. M6_O]Q^P#N]IO[;MFO.WMF7)X7^#^EK)C"1,`[`QKP)84$B4*]6A<'??U6V5_
    
11. 6T9V-T+C%"['1W]^'/@%23X'>D@(`````
    
12. `
    
13. root@nbox:/tmp/test/uu#
    
14. ------------------------------------------------------------------------------------------------
    
15. root@dbox:/tmp/test/uu# gzip -c uudecode_final.sh |./uuencode_final.sh
    
16. M'XL(`->]A%,"`UV2P7*;,!"&[WJ*C8HGD@T!8]?35I9SRS&'7&-/"[(((@08
    
17. MD";!#.\>`;'K5B?MM[O__IK5MQL_5H7?I,B8WT<IRJ,D%'5()?`,7@*^:>JQ
    
18. MPI@I"P=@H%-9("G2$G`L7U0!F_4:8@P[<&R5,2AZ?X7'!]A=P%0LBR.^@A=-
    
19. MKP2G--J8<T9$^HN@^FWP,?$SDWDC45Z**(?8)`G'&"5E/=[!NG'(,/^VLXSD
    
20. M/&#Y]O&)Y8L%[5+>F+C1-7$"=^DN*7."*Q)2IA*2WG#\!]/N/56Y)+DL7G1J
    
21. MLW07T*ZI<J7)M<::NI&+\7]*WRG3=O!@0/$54SL;*,^CHR7!5R$3VY\;)@9/
    
22. M=F13U:K0"<$S@5U!.8^>UYXZT+B6T6M_XLM1J;(BU78S5ZRR?2=^FH=VBEZ<
    
23. MYH1,#7QT?A_\$MXJI/W0!23C(<L&`YDU`':Q8W%V^'IF^X_ZCWDVJK>\M>IG
    
24. M6_O]Q^P#N]IO[;MFO.WMF7)X7^#^EK)C"1,`[`QKP)84$B4*]6A<'??U6V5_
    
25. 6T9V-T+C%"['1W]^'/@%23X'>D@(`````
    
26. `
    
27. root@dbox:/tmp/test/uu#

复制代码

大家可以看到在nbox上是有自带的uuencode和uudecode命令的，所以nbox上应该是标准的uuencode编码结果。
dbox是没有自带的uuencode和uudecode命令的，所以dbox上是awk运算出来的编码结果。
两者乍一看非常相似，但是仔细看可以发现从第7个字符开始有细微的差异。
请大家帮忙看看我的程序错在什么地方呢？
谢谢了！

bikkuri

awk编解码的部分大家看着可能比较累，我排一下版，来个局部特写。
编码部分：

1. hexdump -ve '1/1 "%d "'|awk '{
   
2. for(k=0;k*45<=NF;k++){
   
3.         m=(45*k+45<NF)?77:(NF+32-45*k);
   
4.         printf("%c",m);
   
5.         for(i=1;i<=m-32;i+=3){
   
6.                 t=0;
   
7.                 t=$(i+k*45)*256*256+$(i+k*45+1)*256+$(i+k*45+2);
   
8.                 for(j=3;j>=0;j--){
   
9.                         z=1;
   
10.                         for(p=0;p<6*j;p++)z=z*2;
    
11.                         c=(i+34-j<=m)?(int(t/z)+32):"`";
    
12.                         if(c==32)c=96;
    
13.                         printf("%c",c);
    
14.                         t%=z
    
15.                 }
    
16.         }
    
17.         printf"\n"
    
18. }
    
19. printf"`\n"
    
20. }
    
21. '

复制代码

解码部分：

1. for buff in $(awk '{
   
2.         for(l=0;l<NR;l++){
   
3.                 h=substr($0,1,1);
   
4.                 $0=substr($0,2);
   
5.                 if(h!="`"){
   
6.                         while(length($0)>0){
   
7.                                 split(substr($0,1,4),a,"");
   
8.                                 $0=substr($0,5);
   
9.                                 t=0;
   
10.                                 for(i=3;i>=0;i--){
    
11.                                         for(c=32;c<96;c++){
    
12.                                                 if(sprintf("%c",c)==a[4-i])break
    
13.                                         }
    
14.                                         z=1;
    
15.                                         for(p=0;p<6*i;p++)z=z*2;
    
16.                                         t=t+z*((a[4-i]=="`")?0:c-32)
    
17.                                 };
    
18.                                 for(j=2;j>=0;j--)if(a[4-j]!="`"){
    
19.                                         y=1;
    
20.                                         for(p=0;p<8*j;p++)y=y*2;
    
21.                                         printf("\\x%x",t/y);
    
22.                                         t%=y
    
23.                                 }
    
24.                         }
    
25.                 }
    
26.         }
    
27. printf"\n"
    
28. }
    
29. ');do printf "$buff";done

复制代码

yestreenstars

不明觉厉~{:2_166:}

Herowinter

回复 3# yestreenstars
星辰大大都不明，我等只能绕道了。

   

yestreenstars

回复 4# Herowinter
我主要是没耐心看，你可以试试~{:2_172:}

   

damcool

1. #!/bin/bash
   
2. 
   
3. ################################################################################
   
4. # Function Name:   HELP_USAGE                                                   
   
5. # Description:     Function to display the usage of the script                  
   
6. # Parameters:      None                                                         
   
7. # Return:          Help messages                                                
   
8. # Called By:       Script Main Loop->Script Parameters' Handler                 
   
9. # History:         2013-Dec-31 Initial Edition                       RobinHoo  
   
10. ################################################################################
    
11. 
    
12. function help_usage(){
    
13. cat <<EOF
    
14. Unix-to-Unix ENCODE & DECODE BASH SCRIPT
    
15. Usage: $PROGNAME [OPTION]... [FILE]
    
16.   -d, --decode Decode the UUEncoded file
    
17.   -h, --help   Show current help message of the script usages
    
18.    
    
19. 
    
20. Please Report Script Bugs to $AUTHOR_MAIL
    
21. EOF
    
22. exit 1
    
23. }
    
24. 
    
25. function UUENCODE()
    
26. {
    
27.         which uuencode >/dev/null 2>&1 && uuencode "$FNAME" "$FNAME" 2>/dev/null && return
    
28.         echo "begin $(stat -c %a "$FNAME") $(basename "$FNAME")"
    
29.         hexdump -ve '3/1 "%d " "\n"' < "$FNAME"|awk 'BEGIN{for(i=33;i<96;i++)U64=sprintf("%s%c",U64,i);U64="`"U64}{k+=NF;t=$1*65536+$2*256+$3;for(j=3;j>=0;j--){c=(3-j<=NF)?substr(U64,int(t/2^(6*j))+1,1):"`";o=sprintf("%s%c",o,(c=="\0")?"_":c);t%=2^(6*j);if (length(o)>59) {printf"M%s\n",o;o=""}}}END{if(k%45>0)printf"%c%s\n",32+k%45,o;printf "`\nend\n"}'
    
30. }
    
31. 
    
32. function UUDECODE()
    
33. {
    
34.         local buff=""
    
35.         which uudecode >/dev/null 2>&1 && uudecode -o - "$FNAME" && return
    
36.         for buff in $(cat < "$FNAME"|awk 'BEGIN{for(i=33;i<96;i++)U64=sprintf("%s%c",U64,i);U64="`"U64}NR>1{if ($0=="`") exit;m=index(U64,substr($0,1,1));n=0;$0=substr($0,2);while(length()){split(substr($0,1,4),a,"");$0=substr($0,5);t=0;for(i=3;i>=0;i--) t=t+2^(6*i)*(index(U64,a[4-i])-1);for (i=2;i>=0;i--) if (++n<m){printf("\\x%x",t/2^(8*i));t=t%2^(8*i)}}printf"\n"}');do printf "$buff"; done
    
37. }
    
38. BASE_DIR=$(cd "$(dirname "$0")" && pwd)
    
39. PROGNAME=$(basename "$0")
    
40. AUTHOR_MAIL="robin.hoo@hotmail.com"
    
41. DECODE=0;
    
42. HELP=0;
    
43. FNAME="";
    
44. while [ $# -gt 0 ]
    
45. do
    
46.     case "$1" in
    
47.     (-d)        DECODE=1;;
    
48.     (-h)        HELP=1;;
    
49.     (--decode)  DECODE=1;;
    
50.     (--help)    HELP=1;;
    
51.     (-*)        echo "$PROGNAME: error - unrecognized option or parameter $1" 1>&2; HELP=1;break;;
    
52.     (*)         [ "$FNAME" != "" ] && echo "$PROGNAME: error - more than one file name " 1>&2 && HELP=1 && break || FNAME="$1";;
    
53.     esac
    
54.     shift
    
55. done
    
56. [ $# -gt 1 ] && HELP=1
    
57. [ "$FNAME" == "" ] && FNAME="/dev/stdin"
    
58. [ $HELP -eq 1 ] && help_usage
    
59. [ $DECODE -eq 1 ] && UUDECODE || UUENCODE
    

复制代码

bikkuri

谢谢damcool大侠！
我也找出来了我的程序的错误，主要是在对`字符的处理上错了。
很高兴抛砖引玉能引出您的高大上程序！收藏学习了！

jason680

回复 7# bikkuri

http://perltricks.com/article/97 ... Perl-on-Android-4-4