#!/usr/bin/perl
use Digest::MD5  qw(md5_hex);

$pad = pack("H2048", "00000000963007772c610eeeba51099919c46d078ff46a7035a563e9a395649e3288db0ea4
b8dc
791ee9d5e088d9d2972b4cb609bd7cb17e072db8e7911dbf906410b71df220b06a4871b9f3de41be
847dd4da1aebe4dd6d51
b5d4f4c785d38356986c13c0a86b647af962fdecc9658a4f5c0114d96c0663633d0ffaf50d088dc8
206e3b5e10694ce44160
d5727167a2d1e4033c47d4044bfd850dd26bb50aa5faa8b5356c98b242d6c9bbdb40f9bcace36cd8
32755cdf45cf0dd6dc59
3dd1abac30d9263a00de518051d7c81661d0bfb5f4b42123c4b3569995bacf0fa5bdb89eb8022808
88055fb2d90cc624e90b
b1877c6f2f114c6858ab1d61c13d2d66b69041dc760671db01bc20d2982a10d5ef8985b1711fb5b6
06a5e4bf9f33d4b8e8a2
c9077834f9000f8ea8099618980ee1bb0d6a7f2d3d6d08976c6491015c63e6f4516b6b62616c1cd8
3065854e0062f2ed9506
6c7ba5011bc1f4088257c40ff5c6d9b06550e9b712eab8be8b7c88b9fcdf1ddd62492dda15f37cd3
8c654cd4fb5861b24dce
51b53a7400bca3e230bbd441a5df4ad795d83d6dc4d1a4fbf4d6d36ae96943fcd96e34468867add0
b860da732d0444e51d03
335f4c0aaac97c0ddd3c710550aa41022710100bbe86200cc925b56857b3856f2009d466b99fe461
ce0ef9de5e98c9d92922
98d0b0b4a8d7c7173db359810db42e3b5cbdb7ad6cbac02083b8edb6b3bf9a0ce2b6039ad2b17439
47d5eaaf77d29d1526db
048316dc73120b63e3843b64943e6a6d0da85a6a7a0bcf0ee49dff099327ae000ab19e077d44930f
f0d2a3088768f2011efe
c206695d5762f7cb67658071366c19e7066b6e761bd4fee02bd3895a7ada10cc4add676fdfb9f9f9
efbe8e43beb717d58eb0
60e8a3d6d67e93d1a1c4c2d83852f2df4ff167bbd16757bca6dd06b53f4b36b248da2b0dd84c1b0a
aff64a0336607a0441c3
ef60df55df67a8ef8e6e3179be69468cb361cb1a8366bca0d26f2536e2685295770ccc03470bbbb9
1602222f260555be3bba
c5280bbdb2925ab42b046ab35ca7ffd7c231cfd0b58b9ed92c1daede5bb0c2649b26f263ec9ca36a
750a936d02a906099c3f
360eeb8567077213570005824abf95147ab8e2ae2bb17b381bb60c9b8ed2920dbed5e5b7efdc7c21
dfdb0bd4d2d38642e2d4
f1f8b3dd686e83da1fcd16be815b26b9f6e177b06f7747b718e65a0888706a0fffca3b06665c0b01
11ff9e658f69ae62f8d3
ff6b6145cf6c1678e20aa0eed20dd75483044ec2b30339612667a7f71660d04d476949db776e3e4a
6ad1aedc5ad6d9660bdf
40f03bd83753aebca9c59ebbde7fcfb247e9ffb5301cf2bdbd8ac2baca3093b353a6a3b4240536d0
ba9306d7cd2957de54bf
67d9232e7a66b3b84a61c4021b685d942b6f2a37be0bb4a18e0cc31bdf055a8def022d");

@pad = unpack("L256",$pad);

@owner = unpack("C*",$ARGV[0]);
@regid = reverse unpack("C*", pack("H*", substr($ARGV[1],5,4).substr($ARGV[1],10,4)));

@tab = (@regid, @owner);
$g = $pad[71];

foreach $c(@tab)
{
        $i = ($c^$g) & 0xff;
        $g = ($g>>8) ^ $pad[$i];
}

$key = $g << 16;
$g = ($g>>8) ^ ($pad[$g & 0xff]);
$g = ($g>>8) ^ ($pad[$g & 0xff]);
$key = $key | ( (($g>>16)^$g) & 0xffff);

$keystr =  uc(unpack("H*", pack("N",$key)));
$digest = md5_hex("$keystr\n");

$keystr = $keystr.uc(substr($digest,0,4));
$keystr =~ s/^(..)(..)(..)(..)(..)(..)$/\1-\2-\3-\4-\5-\6/;
printf "key:  %s\n", $keystr;



длинный код в одну строчку..

Спасибо бразильским хакерам за наше счастливое детство..

запускать под рутом :)

Нужно лекарство для дров от linuxant

БОЛЬШОЕ СПАСИБО за помощь! Теперь один вопросик - а где (или когда) это нужно запускать?

есть такой принцип игры "вопрос-ответ"
в простейшем варинте установка Windows 95 ))))

а по существу... установи дрова, получишь код, запусти прогу введи код получишь ответ...
запусти установку дров еще раз (там есть утилита конфигурирования)
введешь ответ..

Нужно лекарство для дров от linuxant

Хорошо хоть не послал...

Скрипт (а это он и есть, на перле) - генерит ключики, но дрова (7.18.00full) кушать эти ключики не желают ни в какую. Модем - Conexant HSF Система - Fedora Core 3 Ядро - 2.6.9-1.667 Вот такие, блин, дела. Благо мне с этим мопедом жить полдня осталось. Но если подкините правильный скрипт или ломаные дрова - буду очень благодарен. Старые дрова и дрова LinModem ставить не предлагать, они не живут на ядре 2.6. Даунгрейд ядра тоже не предлагать ;) Мыльте olvo@grandprix3.ws, если можете помочь ...