把二进制翻译成中文/英文
【四方】2013/08/27软件综合 IP:吉林
linux 把二进制翻译成中文/英文

01
#!/usr/bin/perl -w
02
#use diagnostics;
03
sub bin2cn{
04
    die "Error:1001:bin2cn\n" if chop($_[0]) eq "";
05
    @hexi = &bin2hex($_[0]);
06
    while(@hexi){
07
        $q=shift @hexi if @hexi;#noting
08
        $temp=&hex2int($q);
09
        $q=shift @hexi if @hexi;
10
        $temp=$temp*16+&hex2int($q);
11
        push @cni, chr($temp);
12
    }
13
    join '', @cni
14
}
15

16
sub bin2hex{
17
    my @binarr=('0000','0001','0010','0011','0100','0101','0110','0111','1000','1001','1010','1011','1100','1101','1110','1111');
18
    my @hexarr=("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F");
19

20
    if(length($_[0]) % 4 ){
21
        my @in = &split4($_[0]);
22
        while(my $ta=shift @in){
23
            for (0..15){
24
                push @re, $hexarr[$_] if ($binarr[$_] eq $ta) ;
25
            }
26
        }
27
        @re
28
    }else{
29
        print "Error:1001:bin2hex\n";
30
        exit
31
    }
32
}
33
sub hex2bin{
34
    my @binarr=('0000','0001','0010','0011','0100','0101','0110','0111','1000','1001','1010','1011','1100','1101','1110','1111');
35
    my @hexarr=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
36
    my @in = split //, $_[0];
37
    while(@in){
38
        my $tai=shift @in;#noting
39
        for (0..15){
40
            push @reo, $binarr[$_] if ($hexarr[$_] eq $tai);
41
        }
42
    }
43
    join '', @reo
44
}
45
sub split4{
46
    my $ini = $_[0];
47
    push @res, substr($ini,$_,4) for (grep {$_ % 4 == 0 } 0..length($ini));
48
    @res
49
}
50

51
sub hex2int{
52
    if ($_[0] =~ /^[ABCDEF]$/){
53
        ord($_[0])-65+10;
54
    }elsif($_[0] =~ /^[0123456789]$/){
55
        ord($_[0])-48;
56
    }else{
57
        print "\nError: 1001:hex2int\n";
58
        exit
59
    }
60
}
61
#open IN, "<./binaryfile";
62
#my $tee= <IN>;
63
#my @sd=&split4($tee);
64
#print "SS: @sd\n";
65
#print "OO: ".(length($tee) % 8)."\n"; 0
66

67
#print ord(1)." FF: ".&hex2int(1)."\n";
68

69
#my $Stee=&bin2cn($tee);
70
#print "TT: $Stee\n";
71

72
my $ods= "E4B896E7958CEFBC8CE4BDA0E5A5BDE38082";
73
my $des=&hex2bin($ods);
74
my $Stea=&bin2cn($des);
75
print "TT: $Stea\n";

转自 开源中国 Jahdo_Lee 发布于 2013年08月12日 22时
来自:计算机科学 / 软件综合
0
已屏蔽 原因:{{ notice.reason }}已屏蔽
{{notice.noticeContent}}
~~空空如也

想参与大家的讨论?现在就 登录 或者 注册

所属专业
上级专业
同级专业
【四方】
学者 机友 笔友
文章
135
回复
1318
学术分
1
2013/03/23注册,4年8个月前活动
暂无简介
主体类型:个人
所属领域:无
认证方式:手机号
IP归属地:未同步
文件下载
加载中...
{{errorInfo}}
{{downloadWarning}}
你在 {{downloadTime}} 下载过当前文件。
文件名称:{{resource.defaultFile.name}}
下载次数:{{resource.hits}}
上传用户:{{uploader.username}}
所需积分:{{costScores}},{{holdScores}}下载当前附件免费{{description}}
积分不足,去充值
文件已丢失

当前账号的附件下载数量限制如下:
时段 个数
{{f.startingTime}}点 - {{f.endTime}}点 {{f.fileCount}}
视频暂不能访问,请登录试试
仅供内部学术交流或培训使用,请先保存到本地。本内容不代表科创观点,未经原作者同意,请勿转载。
音频暂不能访问,请登录试试
支持的图片格式:jpg, jpeg, png
插入公式
评论控制
加载中...
文号:{{pid}}
投诉或举报
加载中...
{{tip}}
请选择违规类型:
{{reason.type}}

空空如也

加载中...
详情
详情
推送到专栏从专栏移除
设为匿名取消匿名
查看作者
回复
只看作者
加入收藏取消收藏
收藏
取消收藏
折叠回复
置顶取消置顶
评学术分
鼓励
设为精选取消精选
管理提醒
编辑
通过审核
评论控制
退修或删除
历史版本
违规记录
投诉或举报
加入黑名单移除黑名单
查看IP
{{format('YYYY/MM/DD HH:mm:ss', toc)}}