Jump to content
View in the app

A better way to browse. Learn more.

Tuts 4 You

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Featured Replies

Posted

Hi,

For the group T.P.o.D.T I created a KeyGenMe... It has no public encryption and is just based on my own fantasy...

Download it here

I hope you guys can solve it...

Solution = Keygen + Source + Tutorial (really nice for newbies learning)...

Mr. eXoDia // T.P.o.D.T 2011

mr.exodia.tpodt@gmail.com
/>http://www.tpodt.net16.net

Edited by Mr. eXoDia

  • Author

Weird I attached it too but apparently it failed :)

Mr. eXoDia

PS Already solved it? :)

Edited by Mr. eXoDia

I made a quick keygen in masm, but I ripped your whole algo. I'm too lazy not to rip it. :D

Easier and quicker that way. :P

Edited by Saduff

where is the fun ripping the code ?

here is my quick try, code can be optimized.

tnx for the keygenme.

var
i, j, x, Len: Integer;
Name: string;
Name2: string;
Buffer: array of Char;
tmp1, tmp2, tmp3:Integer;begin
Name:= Edt1.Text;
for i := 1 to 12 do
Name2 := Name2 + Name; Len := Length(Name2);
i:= 1 ;
j:= 0 ;
x:= 6;
SetLength(Buffer,13);
repeat
begin
Buffer[j] := c h r(ord(Name2[i]));
inc(j);
Buffer[j] := c h r(ord(Name2[Len]));
Dec(Len,2);
Inc(i,2);
inc(j);
Dec(x)
end;
until x = 0 ; Name := '';
i := 0;
j := 12;
repeat
tmp1 := ord(Buffer[j]);
tmp2 := ord(buffer[i]);
tmp3 := tmp1 + tmp2;
Name := Name + Format('%X%X%X',[tmp1,tmp2,tmp3]);
inc(i);
Dec(j);
until i= 12;
Len:= Length(Name);
Name := Copy(Name,2,Len);
Len:= Length(Name);
Name2 := '';
for i := 1 to Len do
begin
tmp1 := StrToInt('$'+Name[i]);
if tmp1 <> 9 then
inc(tmp1);
Name2 := Name2 + IntToHex(tmp1,0);
if i mod 10 = 0 then
Name2 := Name2 + '-';
end;
Name2 := copy(Name2,1,Length(name2)-1);
Edt2.Text := Name2;end;

@sama:

True that. I might make another one in BC++ if I have time, just to practice C++.

And you already posted Delphi source...

  • Author

@sama: Maybe spoiler the code block...? (I don't know if there are spoilers on this site btw)

@saduff: yes it would be nice if you code it for 'real'...

Mr. eXoDia

Create an account or sign in to comment

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.