Forum: Software-Projekte der Mitglieder
by Sascha_OW,
3. Mär 2006
das war auch nicht zu einfach zu entschlüssln auch mit quelltext:
http://www.hackerboard.de/thread.php?postid=168866#post168866
Forum: Software-Projekte der Mitglieder
by Sascha_OW,
2. Mär 2006
deswegen steht ja auch dahinter "ne scherz"
also ich wollte das ding ja nie in die CL stellen es wurde dahin verschoben
aber trotzdem für die die das programm noch nicht gelesen haben:
Die Verschlüsselung macht nicht viel aber für den Anfang reicht es:
als erstes wird der Asciiwert der einzelen Zeichen ausgelesen
dann werden die mit 154 Multipliziert und danach noch mit der eigenen...
Forum: Software-Projekte der Mitglieder
by Sascha_OW,
2. Mär 2006
ja das mag sein. Ich der anfang vom string könnte einen noch ein bisschen verwirren.... und da ist ja festgelegt wo die zufallszahlen sind.
Ist ja auch meiner aller erste verschlüsselung die ich jemals gemacht habe, ich werde mich da jetzt vlt wenn ich zeit haben mal ein bisschen reinlesen und mal schauen was ich denn da so auf die beine stelle, vieleicht ja "md6" ne scherz
Forum: Software-Projekte der Mitglieder
by Sascha_OW,
2. Mär 2006
das ist schon war, aber ich kenne mich da nicht so gut aus und weiss nicht so recht wie das mit den Schlüüseln läuft und ich finde als einfache Verschlüüselung geht das doch durcvh
Forum: Software-Projekte der Mitglieder
by Sascha_OW,
2. Mär 2006
so ich habe das denn noch mal überdacht:
function verschüssel (Wort: string) : string;
var i,f,x,v,ran:integer;
test, test1, test2, ran_str, test3 : string;
begin
test := '';
ran_str := '';
ran := 0;
For i := 1 to length(wort) do begin
ran := random(8)+1;
Forum: Software-Projekte der Mitglieder
by Sascha_OW,
2. Mär 2006
ich werde jetzt noch mal 2..3 Sachen nach bessern
Forum: Software-Projekte der Mitglieder
by Sascha_OW,
2. Mär 2006
also ich denke das die Schwächen auf der Hand liegen, wenn man die Wert in eine Datei speichert und sich dann an mal anguckt dann endeckt man das es viele verwirrende zeiche gibt aber auch Zufälltig gut lesbare zahlen und dann kommt man auch irgendwann drauf das es sich um ord() handelt.
Ich denke aber das das ganze für den "Einfachen gebraucht" geeignet ist
Forum: Software-Projekte der Mitglieder
by Sascha_OW,
2. Mär 2006
function verschüssel (Wort: string) : string;
var i,f,x:integer;
test, test1, test2 : string;
begin
test := '';
For i := 1 to length(wort) do begin
test := Test+ '#' + Inttostr(Ord(Wort)) + '#';
test2 := Inttostr(Ord(Wort)) + '#';
For f := Length(test2) to 9 do begin
x := random (215) +36;