プログラミング – ゲーム攻略地帯の裏側

2017/09/07 -perl, プログラミング

zippack.pl

use strict;
use autodie;
use IO::Compress::Gzip qw(gzip $GzipError);
use File::Slurp;
use File::Basename;

#Ref: How to use Gzip/Gunzip
#http://blog.livedoor.jp/moya_pro/archives/21566288.html

unless ($ARGV[0]) {
	die "usage:". basename($0) ." inputfilename [>outputfilename]";
}

my $targetCode = read_file( $ARGV[0], { binmode => ':raw' } ) ;
my $buf;
gzip \$targetCode => \$buf or die "$GzipError";

print "#This file is generated by ". basename($0) . ".\n";
print "#Do not modify this file with a text editor.(or _DATA_ part will be broken.)\n";
print <<'EOD';
use IO::Uncompress::Gunzip qw(gunzip $GunzipError);
my $code;
my $zipcode = join('',map{$_}<DATA>);
gunzip \$zipcode => \$code or die "$GunzipError";
eval $code;
if ($@) {die $@, "\n";}
__DATA__
EOD
binmode(STDOUT);
print $buf;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

use strict;

use autodie;

use IO::Compress::Gzip qw(gzip $GzipError);

use File::Slurp;

use File::Basename;

#Ref: How to use Gzip/Gunzip

#http://blog.livedoor.jp/moya_pro/archives/21566288.html

unless ($ARGV[0]) {

die "usage:". basename($0) ." inputfilename [>outputfilename]";

}

my $targetCode = read_file( $ARGV[0], { binmode => ':raw' } ) ;

my $buf;

gzip \$targetCode => \$buf or die "$GzipError";

print "#This file is generated by ". basename($0) . ".\n";

print "#Do not modify this file with a text editor.(or _DATA_ part will be broken.)\n";

print <<'EOD';

use IO::Uncompress::Gunzip qw(gunzip $GunzipError);

my $code;

my $zipcode = join('',map{$_}<DATA>);

gunzip \$zipcode => \$code or die "$GunzipError";

eval $code;

if ($@) {die $@, "\n";}

__DATA__

EOD

binmode(STDOUT);

print $buf;

圧縮後のスクリプトのスクショ圧縮後スクリプトの実行結果 ※|moreは、くっつけると実行結果をペ …

【perl】2つのファイルの先頭Xバイトのxorを取るperlスクリプト

2017/09/01 -perl, プログラミング

使用サンプル ↓raw_script.txtとxorist.txt(あらかじめxorしておいた)をこのスクリプトにかけた結果、0xC2でxorされていたことがわかる用途 xorする前のファイルとxo …

【perl】入力ファイルに対して1バイトxorを行うスクリプト

2017/08/31 -perl, プログラミング

出力先ファイル名、xorする値はソース中にベタ書き。

#1byte xor
use strict;

our $key = pack("C*",0x33);#きちんとpackしないと結果がおかしくなる

unless ($ARGV[0]) {
	print "usage: xorist.pl inputfilename";
}

#バイナリファイル読み込み　ref：http://motivation.drivendevelopment.jp/2009-06-16-1.html
my $filename = $ARGV[0];
open my $file,'<',$filename or die;
binmode $file; 

open(OUT,">xorist_out.txt") or die;
binmode(OUT);

my $val;
while(read($file, $val, 1)){
	my $byte = ($val ^ $key);
	print OUT $byte;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

#1byte xor

use strict;

our $key = pack("C*",0x33);#きちんとpackしないと結果がおかしくなる

unless ($ARGV[0]) {

print "usage: xorist.pl inputfilename";

}

#バイナリファイル読み込み　ref：http://motivation.drivendevelopment.jp/2009-06-16-1.html

my $filename = $ARGV[0];

open my $file,'<',$filename or die;

binmode $file;

open(OUT,">xorist_out.txt") or die;

binmode(OUT);

my $val;

while(read($file, $val, 1)){

my $byte = ($val ^ $key);

print OUT $byte;

}

注意点メモ xor(^)の両辺は、数値なら数値、バイ …

【php】phpのmd5関数するだけのスクリプトを作った

2017/08/23 -php, プログラミング
php

必要になったので。自分用。 http://www.unira.org/test/md5.php?in=MD5関数への入力文字列以下サンプル http://www.unira.org/test/md5 …

「 プログラミング 」 一覧

「プログラミング」一覧