View Single Post
Old 14-04-2015, 08:53 AM   #4
User Profile
Serial_Killer

 
Serial_Killer's Avatar
 
Join Date: Mon Jan 2011
Posts: 237

Cấp bậc: 14 [cin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1teamcin1team]
Sức sống: 0 / 334
Hoạt động: 79 / 7694
Kinh nghiệm: 39%


Thanks: 11
Thanked 725 Times in 232 Posts
Default

Code:
function SumName(s:string):integer ;
var i:Integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
    Result:= Result + ord(s[i]);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Btn1Click(Sender: TObject);
var
  i, nSum, nX, nY, nZ:Integer;
  szKey:string;
  P1:string;
  Temp:array of byte;

const
  Table ='OMBHGX25V9EASIULR3Z41Y7JKD0C86TWPNQF';

begin
  nSum := SumName(Edit1.text);
  P1 := '';

  SetLength(Temp,8);
  for i:= 0 to 7 do
  begin
    nX := Random(35)+1;
    P1 := P1 + table[nX];
    Temp[i]:= nX-1;
  end;
  P1 := P1 + table[((temp[0] xor temp[7])+ nSum mod $24) +1 ];
  for i:= 0 to Length(Temp)-2 do
    P1 := P1 + table[((temp[i] xor temp[i+1])+ nSum) mod $24 + 1];
  insert('-',P1,5);
  insert('-',P1,10);
  insert('-',P1,15);
  Edit2.Text := P1;

end;
if you want to unregister, delete in %win%system32% file called IniRegWinCap

br
SK













Chữ k c nhn của Serial_Killer CRACK REQUESTS in PM will land on shitlist!!