Snydekoder til Delphi program

Hej Emil,

Lyder som en skidt ide at lægge snydekoder ind i programmet...

... men hvad du kan gøre er, at lave en "listands maskine" som accepterer den ene tast du kan fange af gangen. Tastes korrekt til næste tegn hele vejen aktiveres bool snyd = true; tastes forkert sendes tilbage til tilstand 0.

Med venlig hilsen
Ieet

Jeg kender ikke så meget til delphi, men man kan vel bruge et array, hvis de eksistere.

Det er desværre altså ikke så let som folk gør det til. Mener ikke udmiddelbart der findes en hurtig standart løsning til at gøre dette, og du skal altså enten ud i nogle nye komponenter eller en masse kodning.

Byggede engang en keylogger som loggede folk tastetryk, som bygger på nogle funktioner - desværre ikke helt nogle jeg kan huske. Men fandt denne tutorial til at lave log med folk tastetryk.

Artiklen er desværre bare på tysk, så ikke lige så let at forstå:
http://www.delphi-treff.de/tutorials/systemnahe-programmierung/win32/mouse-und-tastatur-hooks/

Men ellers så søg på noget "Delphi keylogger", eller lignende på google.

Det er et projekt i Programmering C på HTX, og kun for sjov jeg laver denne feature, for lige at lave lidt ekstra i mit program.

Kan du give et kodeeksempel? For jeg havde tænkt på noget af det samme, men hvis det første tegn der tastes "p" trigger en OnKeyPress event på formen, hvordan får jeg den så til at gå videre igen, hvis der trykkes på "r" som det næste osv.?

Det må jeg sige, at jeg ikke lige kan forestille mig hvordan du vil gøre

Jeg har fået løst mit problem nu. Jeg har følgende kode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if TastedeIKode = 0 then
  begin
    if Key = #107 then Inc(TastedeIKode);
  end
  else if TastedeIKode = 1 then
  begin
    if Key = #111 then Inc(TastedeIKode);
  end
  else if TastedeIKode = 2 then
  begin
    if Key = #100 then Inc(TastedeIKode);
  end
  else if TastedeIKode = 3 then
  begin
    if Key = #101 then Inc(TastedeIKode);
  end
  else if TastedeIKode = 4 then
  begin
    if Key = #110 then Multiplikator := 2;
  end
    
  end;

Multiplikator er en int, som bliver ganget på, når der bliver lagt point til, og TastedeIKode er en int, som jeg bruger til at finde ud af hvor meget af koden brugeren har tastet.

Shafh, hvorfor skule det være svært, det skal jo bare virke i hans program?

Emil her er lidt kode at kigge på:

var
  cheat: boolean;
  i: integer;

const
  keyword: array [0..12] of char = ('p','r','o','g','r','a','m','m','e','r','i','n','g');

Selve onkey procedure:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = keyword[i] then
    begin
      if i = 12 then
        begin
          form1.Caption := 'Snyd';
          cheat := true;
          i := 0;
        end
      else
        begin
          i := i+1;
        end
    end;
end;

og det sidste oncreate:

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 0;
  cheat := false;
end;

Håber det giver lidt idéer at arbejde med..

Hmm kan godt være i har ret. Syntes bare jeg arbejde med det engang, og havde helvede problemer med det.

Emil, virker din kode også hvis dit program ikke er aktiv?

Det virker nu. Man kører hele testen igennem, og når den så er slut og viser resultatet disabler jeg alle komponenter. Derved bliver formen aktiv, og koden kan tastes. Når man så starter et nyt spil, så får man dobbelt point, så det fungerer som jeg gerne vil have den til.

Hej Emil,

Godt at se at du implementerede det foreslåede

Med venlig hilsen
Ieet