Дали мне програмку на perl, а разобраться не могу
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Дали мне програмку на perl, а разобраться не могу - 2009-12-21 00:43:52.713333
|
|
|
dimx007
Сообщений: 9
Оценки: 0
Присоединился: 2009-05-16 14:53:37.220000
|
Прога генерирует из кода установки HWID.
Пишу c:\get_hwid.pl 11111-11111-11111
Не пойму как правильно написать команду для запуска …
#!/usr/bin/perl -w
die "Использование: $0 код_установки\n" if(!@ARGV);
$Reg = shift @ARGV;
$Reg =~ m/(\d{5})-(\d{5})-(\d{5})/;
$Reg1 = $1.$2;
$Reg2 = $3;
$Res = get_hwid($Reg1+0,$Reg2+0);
printf "HWID=%x\n",$Res;
exit(0);
sub get_hwid
{
# Function arguments
my $a1 = shift;
my $a2 = shift;
# Local variables
my $var1;
my $var2;
my $result;
$var1 = ($a1 >> 16) ^ $a2;
$var2 = ($a1 & 0xFFFF) ^ $a2;
# printf "%x %x\n",$var1,$var2;
$result = ($var1 << 16) | $var2;
return $result;
}
|
|
|
|
|
|
