browseIXORI's Credo KeygenMe #1

CONST table: array[0..35] of byte = (
    $13, $16, $99, $11, $63, $15, $54, $52, $88, $01, $31, $56, $68, $55, $37, $41,
    $74, $46, $75, $57, $76, $6C, $77, $6A, $78, $44, $79, $58, $48, $59, $6F, $5A,
    $77, $73, $64, $52
);

function gen(szName, szUName:string):string;
var i:Byte;
summ,summ1,summ2,summ3:DWORD;
begin
  summ:=0;
  summ1:=0;

  for i:=0 to Length(szName)-1 do
    begin
    summ:=summ+ ord(szName[i+1]) * table[i];
    summ1:=summ1+ord(szUName[2])*table[i];
    summ3:=summ1-table[i];
    end;

   for i:=0 to Length(szUName)-1 do
    begin
    summ1:=summ1 + table[i];
    summ:=summ+ ord(szUName[i+1]) * table[i];
    summ2:=summ-summ1;
    end;
    Result:=Format('%X-%X-%X-%X-%X-%X',[Ord(szUName[1]),$99,summ3,$52, summ2, Ord(szUName[3])]) ;;
end;