PŁATNIK

[Grzegorz Pietrzak]

Dnia sob 3. stycznia 2004 17:00, MAREK_BEATA napisał:
> mam ogromny problem, po wpisaniu błędnego hasła płatnik się zablokował
> czyjesteś w stanie mi pomóc ? POZDROWIENIA
> MAREK


Kilka listów wcześniej(dawniej?) był taki opis:

<cytat>
Hasla sa trzymane w kluczu
HKEY_LOCAL_MACHINE\SOFTWARE\PROKOM Software SA\Płatnik\5.01.001\Admin

w kolejnych wartosciach AdmXX (kazda zmiana hasla dodaje 1 wpis).
Przy instalacji wypelnianych jest kilka wart. poczatkowych, do
Adm1 wpisywana jest aktaulna data, do Adm2 i 3 - imie i nazwisko
administratora, do Adm4 poczatkowe haslo. Przy zmianie hasla
do starego dopisywany jest znak '1'. Haslo moze miec max. 24 znaki. Hasla
sa "zaszyfrowane" :)

Ponizej program do odszyfrowywania (algorytm odtworzony eksperymentalnie,
byc moze zalezy od jakiejs specyficznej dla systemu wartosci)

$ perl x.pl lzpovzyswnuwln
lzpovzyswnuwln -> haslo11

-----------------------------------------------
#!/usr/bin/perl -w

$enc = shift;

sub swap($$)
{
     $_ = shift;
     $e = "." x shift;
     s/($e)($e)/$2$1/g;
     return $_;
}

$k = "lmnopqrstuvwxyz{";

@pkey = (
swap($k, 8),
swap(swap($k, 4), 1),
swap(swap($k, 8), 1),
swap($k, 1),
swap($k, 4),
swap($k, 2),
swap(swap($k, 2), 1),
swap(swap(swap($k, 4), 2), 1),
);

@order = (0,1,2,3,4,0,3,5,2,1,5,4,3,6,6,2,4,2,2,4,3,2,7,7);

$i = 0;
sub dec($$)
{
     $a = index $pkey[$order[$i]], shift;
     $b = index $pkey[$order[$i]], shift;
     $i++;
     return chr hex sprintf "%x%x",$b,$a;

}

print "$enc -> ";
$enc =~ s/(.)(.)/dec($1,$2)/ge;
print "$enc\n";
</cytat>

Pozdrawiam
P.S.
Ale to chyba nie jest support Płatnika...
-- 
Grzegorz Pietrzak
grzegorz.pietrzak at artikon.one.pl
Wszechwiedzą nikt nie grzeszy
więc mówimy tylko to co wiemy