Hackerboard Wiki HaboBlog
Hackerboard bei Facebook Hackerboard bei Google+ Hackerboard bei Twitter

[HaBo]

 
Hacks & Crackmes Tests, Fragen oder Hilfestellungen. Crackmes und Hackits werden hier diskutiert.

KeyGenMe#1

Diskussion: KeyGenMe#1 im Forum Hacks & Crackmes, in der Kategorie Software Home; Anzeige Hallo, ich bin grad durch Zufall mal wieder auf das Board gestoßen. Da ich vor ner Weile mal nen ...

Antwort
Alt 18.06.07, 12:09   #1 (permalink)
 
Registriert seit: 18.06.07
Bonzai Leistung: Facit NTK
Likes: 0
Standard KeyGenMe#1

Anzeige

Hallo, ich bin grad durch Zufall mal wieder auf das Board gestoßen.
Da ich vor ner Weile mal nen KeyGenMe geschrieben hatte, wollte ich das hier mal posten.

Würd mich freuen wenns jemand knackt (routine ist nicht schwer).

Name: KeyGenMe#1
Type: KeyGenMe
Description: read nfo
Language: Delphi
Level: -+-------- (easy)
Rules:

  • No Patching
  • No SerialFishing


Gruß Bonzai
Angehängte Dateien
Dateityp: rar keygenme_1.rar (392,6 KB, 288x aufgerufen)
Bonzai ist offline   Mit Zitat antworten
Alt 19.06.07, 19:40   #2 (permalink)
 
Registriert seit: 12.10.06
Poseidon8 Leistung: Facit NTK
Likes: 0
Standard

Also du sagst zwar
Zitat:
No SerialFishing
, aber für Anfänger wie mich ist es trotzdem ne gute Übung, deshalb jetzt meine Serial:
Poseidon8//6080U369185819591
Mfg, Poseidon.
Poseidon8 ist offline   Mit Zitat antworten
   
HaBOT
 
- Anzeige -

Werbung ist gerade online    
Alt 19.06.07, 21:52   #3 (permalink)
Themenstarter
 
Registriert seit: 18.06.07
Bonzai Leistung: Facit NTK
Likes: 0
Standard

wenn du dich schon nicht an meine regeln hälst, dann doch bitte die boardregeln einhalten.

Hints/Results mittels Spoiler-Tags posten.

Danke
Bonzai ist offline   Mit Zitat antworten
Alt 20.06.07, 03:24   #4 (permalink)
Member of Honour
 
Benutzerbild von +++ATH0
 
Registriert seit: 02.04.05
+++ATH0 Leistung: K 6-3+++ATH0 Leistung: K 6-3+++ATH0 Leistung: K 6-3
Likes: 76
Standard

Ich hoffe es ist kein Fehler drin, schon ein bisschen spät.

Algo   

Code:
function GenSerial(Name: String):String;
  function GetSerialToken(c: Char): String;
  var
    str1: String;
    rest, durch: Integer;
  begin
    str1 := '';
    rest  :=  (ord(c)-$14);
    durch :=  (ord(c)-$14);
    While (durch > 0) Do
      begin
        rest := durch mod $0A;
        durch := durch div $0A;
        if ((rest + $30) < $3A) Then
          str1 := str1 + chr(rest + $30)
        Else
          str1 := str1 + chr(rest + $37);
      end;
    result := str1;
  end;
  function TableConversion(Token: String):String;
  var
    i: Integer;
  begin
    case StrToIntDef(Token,91) of
      11: result := 'A';
      22: result := 'B';
      33: result := 'C';
      44: result := 'D';
      55: result := 'E';
      66: result := 'F';
      77: result := 'G';
      88: result := 'H';
      99: result := 'J';
      00: result := 'K';
      12: result := 'L';
      23: result := 'M';
      34: result := 'N';
      45: result := 'O';
      56: result := 'P';
      67: result := 'R';
      78: result := 'S';
      89: result := 'T';
      90: result := 'U';
      01: result := 'W';
      else result := Token;
    end;
  end;
  function FinalTableConversion(str: String):String;
  var
    i: Integer;
    token: String;
  begin
    result := str;
    i := 1;
    While i < Length(result) Do
      begin
        Token := TableConversion(result[i]+result[i+1]);
        If Token <> result[i]+result[i+1] Then
          begin
            Delete(result,i,2);
            Insert(Token,result,i);
          end;
        Inc(i);  
      end;
  end;
  procedure ReverseTokenOrder(const res: TStringList; var new: TStringList);
  var
    i: Integer;
  begin
    new := TStringList.Create;
    For i := res.Count -1 DownTo 0 Do
      begin
        new.Add(res.Strings[i]);
      end;
  end;
var
  i: Integer;
  strodd: TStringList;
  streven, strevenrev: TStringList;
  strfinal: String;
begin
  strfinal := '';
  streven := TStringList.Create;
  strodd := TStringList.Create;
  For i := Length(Name) DownTo 1 Do
    begin
      If odd((ord(Name[i])-$14)) Then
        begin
          strodd.Add(TableConversion(ReverseString(GetSerialToken(Name[i]))));
        end else
        begin
          streven.Add(TableConversion(ReverseString(GetSerialToken(Name[i]))));
        end;
      end;
  ReverseTokenOrder(streven, strevenrev);
  For i:= 0 To streven.Count -1 Do
    begin
      strfinal := strfinal + strevenrev.Strings[i];
    end;
  For i:= 0 To strodd.Count -1 Do
    begin
      strfinal := strfinal + strodd.Strings[i];
    end;
  result := FinalTableConversion(strfinal);
end;
Angehängte Dateien
Dateityp: rar keygen.rar (41,3 KB, 93x aufgerufen)
+++ATH0 ist offline   Mit Zitat antworten
Alt 22.06.07, 20:05   #5 (permalink)
 
Registriert seit: 12.10.06
Poseidon8 Leistung: Facit NTK
Likes: 0
Standard

Zitat:
wenn du dich schon nicht an meine regeln hälst
Sorry, dachte nicht dass die Serial irgendwem schadet.
Zitat:
dann doch bitte die boardregeln einhalten.
Hast natürlich recht, werd ich beim zweiten mal beachten.
Mfg, Poseidon.
Poseidon8 ist offline   Mit Zitat antworten
Alt 22.10.07, 17:45   #6 (permalink)
 
Registriert seit: 09.10.07
Mr.Yeah Leistung: Facit NTK
Mr.Yeah eine Nachricht über ICQ schicken
Likes: 0
Standard noch'n Keygen

Hier ist noch ein Keygen, welches ironischerweise eine gepatchte Version des HackIts ist.
Angehängte Dateien
Dateityp: zip keygen.zip (433,8 KB, 56x aufgerufen)
Mr.Yeah ist offline   Mit Zitat antworten
Antwort
   
- Anzeige -

Werbung ist gerade online    

[HaBo] » Software Home » Hacks & Crackmes » KeyGenMe#1
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks sind aus
Pingbacks sind aus
Refbacks sind aus


Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
keygenme ]=-antr4xx-=[ Hacks & Crackmes 2 26.01.08 20:18
KeygenMe Xylon Hacks & Crackmes 6 24.09.06 23:50
Keygenme ^^ ReDoX Hacks & Crackmes 3 21.09.06 16:17
Keygenme Nr. 1 drmelon Hacks & Crackmes 5 09.08.06 12:46
KeygenMe Straubi Hacks & Crackmes 5 17.07.06 20:26


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61