ゲーム、トラブル解決、サーバ設定、PCグッズ

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

投稿日：2017年8月23日

必要になったので。自分用。

http://www.unira.org/test/md5.php?in=MD5関数への入力文字列

以下サンプル

http://www.unira.org/test/md5.php?in=test

http://www.unira.org/test/md5.php?in=pass

http://www.unira.org/test/md5.php?in=yourpass

http://www.unira.org/test/md5.php?in=password

冒頭のロゴは画像編集ソフトで作った。
出回っているphpのロゴ画像が自由に使えるものかわからなかったので。

-php, プログラミング
-php

執筆者：uniru

comment コメントをキャンセル

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

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

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

出力先ファイル名、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;
}

#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(^)の両辺は、数値なら数値、バイ …

【perl】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;

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は、くっつけると実行結果をペ …

PREV: 【スマホ】huawei p10 lite 電話番号の確認方法
NEXT: フリー素材神サイト　無料＆著作権表記不要＆商用可

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

関連記事