5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

【恥】お前らの人に見られたくない物をうp【恥】

1 :1:02/10/04 00:52 ID:8s4jeVAi
たのむぜ〜、俺がばっちりチェックしてやるよ
感想もかいてやるから、このさいみんなにも見てもらおうぜ
なんでもいいぞ

2 :nobodyさん:02/10/04 01:18 ID:???
何の意図があってこの板なのか……?

3 :1:02/10/04 02:11 ID:8s4jeVAi
>>2
それはそれはふかーいふかーい意味があって・・・・

4 :nobodyさん:02/10/04 02:18 ID:???
昔書いたソースコードかな(w

5 :nobodyさん:02/10/04 02:25 ID:???
確かに始めて書いたのはdでもなく恥かしい。

6 :nobodyさん:02/10/04 11:04 ID:???
今書いてるソースコード

7 : ◆nqY464pJQ. :02/10/04 12:22 ID:???
#jpegファイルの高さと横のサイズを出す
#API: dot24bit("$filename");
sub dot24bit{
my $cff9d=0;
my @ffxx=();
my $CXY=0;
my $filej="$_[0]";
open(DXC,$filej);
while(<DXC>){
my $cc=unpack "h*","$_";
#区分け 2+1+2Y+2X+1+3+3+3
#hex 4+2+4Y+4X+2+6+6+6[set 8]
$cc=~s/(ff0c)(.{34})/
$cff9d++;push @ffxx,$2
/xeg;
$fx_cou=@ffxx;
for(my $ii=0;$ii<=$fx_cou;$ii++){
if($ffxx[$ii]=~m/^001180/)
{
$CXY=$ffxx[$ii];
}
}
#$ffxx[0]=~s/(.{4})(..)(.{4})(.{4})(..)(.{6})(.{6})(.{6})/$3:$4/g;
$CXY=~s/(.{6})(.{4})(.{4}).{20}/$1:$2:$3/g;
@hexG=split(/:/, $CXY);
$hexG[1]=~s/(.)(.)/$2$1/g;
$hexG[2]=~s/(.)(.)/$2$1/g;
$kaizX=hex("$hexG[1]");
$kaizY=hex("$hexG[2]");
}print "$cff9d->$CXY Y:$kaizY X:$kaizX\t$filej\n";
}


8 : ◆nqY464pJQ. :02/10/04 12:24 ID:???
#jpegファイルの解像度を出す
#API: jd("$filename");
sub jd{
$cff9d=0;
@ffxx=();
my $filej="$_[0]";
open(DXC,$filej);
while(<DXC>){
my $cc=unpack "h*","$_";
#↓探す符号
$cc=~s/(ff0e)(.{34})/
$cff9d++;push @ffxx,$2
/xeg;
$ffxx[0]=~s/0001a46494640010/\t/g;
$ffxx[0]=~s/(.....)(.{4})(.{4})(.{6})/$1 $2:$3/g;
@hexG=split(/:/,$ffxx[0]);
$hexG[1]=~s/(.)(.)/$2$1/g;
$kaiz=hex("$hexG[1]");
} print "$cff9d->$ffxx[0] $kaiz\t$filej\n";
}

3 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)