🚀 go-pugleaf

Ponieważ nikt nie napisał sam podam rozwiązanie.

Cały myk polega na wytworzeniu 8 tablic i pobraniu z niego odpowiednich 
pozycji liter.

W skrypcie perla cytowanym przeze mnie tworzone są przez zamienianie 
miejscami.
Niestety u mnie nie działało i dlatego uruchomiłem ten zmodyfikowany 
skrypt, który wyświetlał wygenerowane prawidłowe tablice i dopiero je 
użyłem u siebie.

kod

function DekodujHasloPlatnika(ciag : String):String;
type TCiag = array[0..15] of char;
CONST kk='lmnopqrstuvwxyz{';
       order : array[0..23] of integer 
=(0,1,2,3,4,0,3,5,2,1,5,4,3,6,6,2,4,2,2,4,3,2,7,7);
var a,b,i,j : Integer;    //var i,code,output,keys=[];
     code : Integer;//String;
     pkey  : array[0..7] of TCiag;
     haslo : array of char;

function find(x : String; y : Char):integer;
var i : integer;
begin
   for i := 1 to Length(x) do
   begin
     if (x[i]=y)then
     begin
       result:=i-1;
       break;
     end else result := -1;
   end;
end;
begin
   SetLength(haslo,Length(ciag));
   strcopy(PChar(haslo),PChar(ciag));
   for i := 0 to 7 do pkey[i]:=kk;
   pkey[0]:='tuvwxyz{lmnopqrs';
   pkey[1]:='qpsrmlonyx{zutwv';
   pkey[2]:='utwvyx{zmlonqpsr';
   pkey[3]:='mlonqpsrutwvyx{z';
   pkey[4]:='pqrslmnoxyz{tuvw';
   pkey[5]:='nolmrspqvwtuz{xy';
   pkey[6]:='onmlsrqpwvut{zyx';
   pkey[7]:='srqponml{zyxwvut';
   i:=0;
   j:=0;
   while i<Length(ciag) do
   begin
     a:=find(pkey[order[j]],haslo[i]);
     b:=find(pkey[order[j]],haslo[i+1]);
     result:=result+char(a+16*b);
     inc(j);
     i:=j*2;
     //http://www.manobit.com/platnik-haslo/
   end;
end;

kod prawidłowo dekoduje hasło płatnika 10.


---
Ta wiadomość została sprawdzona na obecność wirusów przez oprogramowanie antywirusowe Avast.
https://www.avast.com/antivirus