[Fwd: hasła w Płatniku]

[donkiszot at fiz.coi.waw.pl]

-------- Wiadomość oryginalna --------
Temat: Re: [Rwo-list] =?ISO-8859-2?Q?has=B3a_w_P=B3atniku?=
Od: Marcin Gryszkalis <mg at fork.pl>
Data: Sob, Listopad 29, 2003 3:39
Do: RWO List <rwo-list at mailman.linuxpl.org>

Witam

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";
-----------------------------------------------


pozdrawiam
-- 
Marcin Gryszkalis
jabber jid:mg at chrome.pl
gg:2532994
http://fork.pl