Co nowego w Płatniku 5.01.001 (

[grzes]

Dnia piątek 16 styczeń 2004 17:03, Tomasz Knapik napisał:

> Mam pyhtanko Paniusie zapomnialy hasla do platnika , mozna sie do
> tego jakos dostac??

Jakaś epidemia?
Dopiero ktoś pytał o to na janosik-devel.
A to chyba powinni na infolini Płatnika wiedzieć.
Wiem, wiem :-) nie wiedzą...
Ale przeszukać listę to wypada!

<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
-- 
Grzegorz Pietrzak                        |
e-poczta: g r z e s p t at p f dot p l   | Wszechwiedzą nikt nie grzeszy
jid: grzehorz at histeria.pl                | więc mówimy tylko to co wiemy
gg: 1693035                              |