【恥】お前らの人に見られたくない物をうｐ【恥】
■ このスレッドは過去ログ倉庫に格納されています
00011
02/10/04 00:52ID:8s4jeVAi感想もかいてやるから、このさいみんなにも見てもらおうぜ
なんでもいいぞ
0002nobodyさん
02/10/04 01:18ID:???00031
02/10/04 02:11ID:8s4jeVAiそれはそれはふかーいふかーい意味があって・・・・
0004nobodyさん
02/10/04 02:18ID:???0005nobodyさん
02/10/04 02:25ID:???0006nobodyさん
02/10/04 11:04ID:???#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";
}
#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";
}
■ このスレッドは過去ログ倉庫に格納されています