nehmen wir an du hast nen string "ABCDEFG" dann addiert du alle ordinalwerte von den ascizeichen zusammen
Delphi-Quellcode:
var i, qs: integer;
begin
qs := 0;
for i := 1 to lenght(s) do qs := qs+ord(s[i]);
end;
dann muss halt qs immer z.b. 1360 sein
oder du nimmst ne zahl und prüfst ob die durch ne primzahl dividiert werden kann
Delphi-Quellcode:
var i: integer;
begin
i := strtointdef(edit1.text,0);
if i <> 0 then
begin
if i mod 1337 = 0 then //gültig
end;
end;