代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Perl
】
把二进制翻译成中文/英文
作者:
Jahdo_Lee
/ 发布于
2013/8/20
/
1974
#!/usr/bin/perl -w #use diagnostics; sub bin2cn{ die "Error:1001:bin2cn\n" if chop($_[0]) eq ""; @hexi = &bin2hex($_[0]); while(@hexi){ $q=shift @hexi if @hexi;#noting $temp=&hex2int($q); $q=shift @hexi if @hexi; $temp=$temp*16+&hex2int($q); push @cni, chr($temp); } join '', @cni } sub bin2hex{ my @binarr=('0000','0001','0010','0011','0100','0101','0110','0111','1000','1001','1010','1011','1100','1101','1110','1111'); my @hexarr=("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"); if(length($_[0]) % 4 ){ my @in = &split4($_[0]); while(my $ta=shift @in){ for (0..15){ push @re, $hexarr[$_] if ($binarr[$_] eq $ta) ; } } @re }else{ print "Error:1001:bin2hex\n"; exit } } sub hex2bin{ my @binarr=('0000','0001','0010','0011','0100','0101','0110','0111','1000','1001','1010','1011','1100','1101','1110','1111'); my @hexarr=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'); my @in = split //, $_[0]; while(@in){ my $tai=shift @in;#noting for (0..15){ push @reo, $binarr[$_] if ($hexarr[$_] eq $tai); } } join '', @reo } sub split4{ my $ini = $_[0]; push @res, substr($ini,$_,4) for (grep {$_ % 4 == 0 } 0..length($ini)); @res } sub hex2int{ if ($_[0] =~ /^[ABCDEF]$/){ ord($_[0])-65+10; }elsif($_[0] =~ /^[0123456789]$/){ ord($_[0])-48; }else{ print "\nError: 1001:hex2int\n"; exit } } #open IN, "<./binaryfile"; #my $tee= <IN>; #my @sd=&split4($tee); #print "SS: @sd\n"; #print "OO: ".(length($tee) % 8)."\n"; 0 #print ord(1)." FF: ".&hex2int(1)."\n"; #my $Stee=&bin2cn($tee); #print "TT: $Stee\n"; my $ods= "E4B896E7958CEFBC8CE4BDA0E5A5BDE38082"; my $des=&hex2bin($ods); my $Stea=&bin2cn($des); print "TT: $Stea\n";
试试其它关键字
把二进制翻译成中文/英文
同语言下
.
获取本机所有IP和设备的绑定情况
.
生成隨機密碼
.
取文件的最后修改时间
.
获取本机所有IP和设备的绑定情况
.
将perl脚本变成乱糟糟的一团
.
从 HTML网页中解析出链接
.
使用 HTTP::Request 请求 URL 并将响应保存到文件
.
使用指定的User-Agent抓取网页
.
使用 Net::SMTP发送邮件
.
编写的一个简单 Web服务器
可能有用的
.
C#实现的html内容截取
.
List 切割成几份 工具类
.
SQL查询 多列合并成一行用逗号隔开
.
一行一行读取txt的内容
.
C#动态修改文件夹名称(FSO实现,不移动文件)
.
c# 移动文件或文件夹
.
c#图片添加水印
.
Java PDF转换成图片并输出给前台展示
.
网站后台修改图片尺寸代码
.
处理大图片在缩略图时的展示
Jahdo_Lee
贡献的其它代码
(
1
)
.
把二进制翻译成中文/英文
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3