Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
можно 11.11.02 13:16 Число просмотров: 1128
Автор: ZaDNiCa <indeed ZaDNiCa> Статус: Elderman
|
вот перл скриптец (кажется он есть на www.licq.org)
--- Кат @#$ ---
#!/usr/bin/perl
#
# ICQ99b contact list converter
# (tested with build 2569)
#
# (c)1999 Erwin Aitenbichler <eait@gmx.at>
# This program is released under the terms of the GPL.
#
$path=(getpwuid($<))[7]."/.licq/";
$pathUsers=$path."users/";
$fnOwner=$path."owner.uin";
$fnUsers=$path."users.conf";
$verbose=1;
$|=1;
@fieldNames=("UIN","MyDefinedHandle","NickName","FirstName","LastName","PrimaryEmail");
@values=();
foreach $arg (@ARGV)
{
if ($arg eq "-q")
{ $verbose=0; }
elsif ($arg eq "-v")
{ $verbose=2; }
else
{ $fn=$arg; }
}
if (!defined($fn))
{
print STDERR "\nsyntax: licq.winconvert99b-2000 [options] <your_uin>.dat\n";
print STDERR "Extracts all UINs out of an ICQ99b/2000 database and creates licq .uin files.\n";
print STDERR "(tested with build 2569)\n";
print STDERR "\nThe .dat-file is usually located in: <your_win_drive>/Program Files/icq/Db99b/\n";
print STDERR "\noptions:\n";
print STDERR " -q quiet\n";
print STDERR " -v verbose\n";
print STDERR "\n";
exit 0;
}
# get owner uin
open(INFH, "<$fnOwner")|die "canґt open ґ$fnOwnerґ.\n";
while(<INFH>)
{
if ($_=~/Uin = (\d+)/)
{
$own_uin=$1;
}
}
close(INFH);
die "canґt determine owner uin.\n" if (!defined($own_uin));
print "owner uin: $own_uin\n\n" if $verbose>=2;
# read users from users.conf
%uins=();
if (open(INFH, "<$fnUsers"))
{
while (<INFH>)
{
$uins{$1}=1 if ($_=~/User\d+ = (\d+)/);
}
close(INFH);
}
else
{
print "ґ$fnUsersґ not found - will create a new one.\n" if $verbose>=1;
}
# import users
$count=0;
readFile($fn);
# write new users.conf
open(OUTFH, ">$fnUsers")|die "canґt open ґ$fnUsersґ for writing.\n";
@list=sort {$a <=> $b} (keys %uins);
print OUTFH "[users]\nNumOfUsers = ", $#list+1, "\n";
$i=1;
foreach $key (@list)
{
print OUTFH "User", $i++, " = ", $key, "\n";
}
close(OUTFH);
print "$count users add.\n" if $verbose>=1;
if ($verbose>=1)
{
print "NOTE: This script doesn't support all user information fields.\n";
print "Select 'Users/Update All Users' in licq to get full user information.\n";
}
sub readFile()
{
my $fn=shift;
open(INFH, "<$fn")|die "can't open file '$fn'\n";
binmode INFH; # for M$...
$key="";
$pos=0;
print "reading" if $verbose==1;
nextChar();
while (nextPair())
{
if ($field==0)
{
if ($values[0]!=$own_uin && ($values[1]|$values[2]))
{
if (!$uins{$values[0]})
{
$uins{$values[0]}=1;
$count++;
}
writeRecord();
}
@values=();
}
}
close(INFH);
print "\n" if $verbose==1;
}
sub nextPair()
{
do
{
nextKey();
return 0 if (eof(INFH));
}
while (!$key);
if ($c eq "k")
{
nextChar();
readString();
}
elsif ($c eq "i")
{
read(INFH, $buffer, 4);
$value=unpack("V", $buffer);
nextChar();
}
$values[$field]=$value;
return 1;
}
sub nextKey()
{
while (ord($c)!=0) { nextChar(); }
nextChar();
my $s="";
while (ord($c)!=0)
{
$s.=$c;
nextChar();
}
for ($i=0; $i<=$#fieldNames; $i++)
{
if ($fieldNames[$i] eq $s)
{
nextChar(); # type
$key=$s;
$field=$i;
return 1;
}
}
$key="";
return 0;
}
sub nextChar()
{
$c=getc(INFH);
print "." if ($verbose==1 && $pos%10000==0);
$pos++;
}
sub readString()
{
$value="";
my $len=ord($c);
nextChar();
return 0 if $c!=0;
nextChar();
return 1 if ($len==0);
my $i;
for ($i=0; $i<$len-1; $i++)
{
return 0 if (ord($c)==0);
$value.=$c;
nextChar();
}
return 0 if $c!=0;
return 1;
}
sub writeRecord()
{
if ($verbose>=2)
{
print "uin : $values[0]\n";
print "display name : $values[1]\n";
print "nick name : $values[2]\n";
print "first name : $values[3]\n";
print "last name : $values[4]\n";
print "email : $values[5]\n\n";
}
my $fnUIN=$pathUsers.$values[0].".uin";
if (!-f $fnUIN)
{
open(OUTFH, ">$fnUIN")|die "can't open '$fnUIN' for writing.\n";
print OUTFH "[user]\n";
print OUTFH "Alias = ", $values[1] ne "" ? $values[1] : $values[2];
print OUTFH "\nFirstName = $values[3]\n";
print OUTFH "LastName = $values[4]\n";
print OUTFH "EMail = $values[5]\n";
print OUTFH "History = default\n";
print OUTFH "Authorization =\n";
print OUTFH "OnlineNotify =\n";
print OUTFH "NewUser =\n";
print OUTFH "NewMessages =\n";
print OUTFH "Group =\n";
print OUTFH "City =\n";
print OUTFH "State =\n";
print OUTFH "Homepage =\n";
print OUTFH "Age =\n";
print OUTFH "Sex =\n";
print OUTFH "About =\n";
print OUTFH "PhoneNumber =\n";
print OUTFH "Country =\n";
print OUTFH "VisibleList =\n";
print OUTFH "InvisibleList =\n";
close(OUTFH);
}
}
--- Энд оф кат @#$ ---
|
|
|
подробно о проекте
Анализ криптографических сетевых...
