Brauche dringend Turbo Pascal

Hallo Leute,

könnt ihr mir bitte helfen. Ich brauche dringend Turbo Pascal egal welche Version zum downloaden. Muss ne Facharbeit über das Thema Kryptologie schreiben und wollte gern am Ende ein kleines Programm dazu schreiben (Neben bei ich bin für JEDEN vorschlag wie dieses Programm aussehen könnte SEHR SEHR SEHR DANKBAR,ich persönlich wollte so ne art Cesar Code benutzen was mir ein bischen sehr simpel erscheint, wobei die umsetztung wahrscheinlich etwas anders aussehen wird). Bitte hilft mir (Im moment schaue ich mit einen Dackelblick in den Monitor und hoffe das ihr in euch kraft euer Fantasy ein Gefühl der Hilfsbereitschaft erweckt und mir paar tips gibt)
Danke
Gruß Sedat

Hi Sedat,

Verschlüsselung:
http://didaktik.cs.uni-potsdam.de/HyFISCH/Informiere…

Pascal:

http://www.freepascal.org

Grüße
Wolfgang

Hallo Leute,

könnt ihr mir bitte helfen. Ich brauche dringend Turbo Pascal
egal welche Version zum downloaden.

Wie schon angegeben, FreePascal, ist TP7.0-kompatibel, ansonsten gibt es bei Borland im Museum die Version 5.5 zum runterladen, musst Dich nur dort in der Community anmelden (ungefaehrlich).

http://community.borland.com/museum/

Ciao Lutz

DANKE GEHT ES VIELLEICHT ETWAS EINFACHER
Tach auch,

zunächst einmal danke für die Tipps.
Aber ich hätte da noch eine bitte (hoffe ihr vergibt mir)
aber der caesar Code ist einfach viel zu kompliziert für einen aremen unerfahrenen jungen wie ich es bin.
Also könnt ihr mir etwas helfen einen einfachen caesar cod auf die beine zustellen. Ganz simple also ich muss nicht einegabene um wieviele stellen sich das alphabet verschieben soll (3 stellen wären super). Könnt ihr mir bitte etwas auf die sprunge helfen ich habe totale kopfschmerzen vom lauten grubeln.
BITTE hilft mir
Gruß

Brächte nochmal diene Hilfe
Hi,

Danke für deinen Hilfe, aber das VerschlüsslungsProgramm welches du mir empfohlen hast ist einfach viel zu hoch für mich. Kannst du mir vielleicht bei einem viel Simpleren Program Helfen.
Einfach nur ne eingabe das Alphabet verschiebt sich um 3 und der neue Verschlüsselte Text wird angegeben. und wie ich das wieder zurück hinkriegen. Ich weiss ich verlange viel aber kannst du mir viellecht etwas helfen oder empfehlen???
Danke im Vorraus
Gruß Sedat

Hi Sedat,

Verschlüsselung:

s:=Edit1.Text;
for i:=1 to length(s) do
s[i]:=char(i xor Ord(s[i]));
Edit2.Text:=s;

Und das ganze wieder zurück:
s:=Edit2.text;
for i:=1 to length(s) do
s[i]:=char(i xor Ord(s[i]));
Edit3.Text:=s;

Wolfgang

1 Like