Base64编码互换程序(Tk)

最新推荐文章于 2024-10-12 10:47:31 发布

原创最新推荐文章于 2024-10-12 10:47:31 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#insert #delete

Perl /Tk/ DBI 专栏收录该内容

9 篇文章

订阅专栏

#!/usr/bin/perl
# jondy# http://blog.youkuaiyun.com/jondynet
use MIME::Base64;
use Tk;
use Tk::LabFrame;

my $main = new MainWindow;
$main->title('Base64编码互换程序');
$main->geometry("300x150");

$main->LabFrame(-label => "Main",
   -labelside => 'acrosstop',
   width=>276,
   height=>60)->place(-x=>8,-y=>10);
my $basecode = $main->Entry(-width => 20,
   -relief=>'groove',
   -font=>'{Courier New} 13 {normal}')->place(-x=>20,-y=>35);
my $ascicode = $main->Entry(-width => 20,
   -relief=>'groove',
   -font=>'{Courier New} 13 {normal}')->place(-x=>20,-y=>60);
$main->Button(-text => '转换',
   -relief=>'groove',
   -font=>'{宋体} 9 {normal}',
   -command=>/&encode)->place(-x=>235,-y=>34);
$main->Button(-text => '还原',
   -relief=>'groove',
   -height=>'0',
   -font=>'{宋体} 9 {normal}',
   -command=>/&decode)->place(-x=>235,-y=>59);
$main->Label(-text => 'Base64编码转换程序',
   -font=>'{宋体} 9 {normal}',
   -width=>30)->place(-x=>128,-y=>105);
$main->Label(-text => "Powered by jondy /n jondy/@tom.com",
   -font=>'{宋体} 9 {normal}',
   -width=>30)->place(-x=>128,-y=>120);

$basecode -> insert('0','BASE64');
$ascicode -> insert('0','ASCII');

MainLoop;

sub encode{
my $asci2code = $basecode->get;
$asci2code = decode_base64($asci2code);
$ascicode -> delete('0','end');
$ascicode -> insert('0',$asci2code);
}

sub decode{
my $base64code = $ascicode->get;
$base64code = encode_base64($base64code);
chop($base64code);
$basecode -> delete('0','end');
$basecode -> insert('0',$base64code);
}