Autor |
Beitrag |
Webo
Beiträge: 577
Erhaltene Danke: 14
Win 7, Debian
C# (Visual Studio 2013), PHP, C, C++ (Eclipse, KDevelop)
|
Verfasst: Mo 28.03.11 17:44
_________________ Man kann nur das aus dem Ärmel schütteln, was man auch vorher reingesteckt hat.
|
|
Kha
Beiträge: 3803
Erhaltene Danke: 176
Arch Linux
Python, C, C++ (vim)
|
Verfasst: Di 29.03.11 00:37
Ds asi, fc, ahsöshesikcihf maihcr hbkeudr izn Agut fmd eais nKeo ndrieec rhet, nedne Asr Cmon doec . shh eai bnepiaca hrm Taalg vees rcz hio cnhetnemtu...
Gcorlifpst 1:
| .{:c;'09AZazüÜßß'2/{{}/c<\c>|!}%{|}*}:p,.2%\(;2%+:t;{.p{t(\:t;}@if}% |
_________________ >λ=
Zuletzt bearbeitet von Kha am Di 29.03.11 11:13, insgesamt 1-mal bearbeitet
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Di 29.03.11 00:49
Gwii br tde dsed reTn hC roedae?
dae uicg hein ntL leiscb hadreUknod dwiaenrnt?
_________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
Jann1k
Beiträge: 866
Erhaltene Danke: 43
Win 7
TurboDelphi, Visual Studio 2010
|
Verfasst: Di 29.03.11 09:28
Zitat: | Gwii br tde dsed reTn hC roedae?
dae uicg hein ntL leiscb hadreUknod dwiaenrnt? |
Dea iscmhü asms0t 1e0 g4 ls.ae uibn.
|
|
Narses
Beiträge: 10181
Erhaltene Danke: 1254
W10ent
TP3 .. D7pro .. D10.2CE
|
Verfasst: Di 29.03.11 10:08
Moin!
BenBE hat folgendes geschrieben : | Und wann wird der Thread eigentlich dekodiert? |
Jetzt
Es handelte sich übrigens um eine Transposition über alle Buchstaben und Ziffern im Text.
cu
Narses
_________________ There are 10 types of people - those who understand binary and those who don´t.
|
|
HenryHux
Beiträge: 542
Erhaltene Danke: 33
Windows 7 Premium
Delphi XE, Eclipse
|
Verfasst: Di 29.03.11 10:14
Ah verstanden..
Daabse drazuuelratn mgier!
Swcühnösncehni Tcahg!
Edit: Werden die Aufgaben einfach gepostet oder brauch man eine Anmeldung o.ä?
|
|
Jakob_Ullmann
Beiträge: 1747
Erhaltene Danke: 15
Win 7, *Ubuntu GNU/Linux*
*Anjuta* (C, C++, Python), Geany (Vala), Lazarus (Pascal), Eclipse (Java)
|
Verfasst: Di 29.03.11 17:58
|
|
Kha
Beiträge: 3803
Erhaltene Danke: 176
Arch Linux
Python, C, C++ (vim)
|
Verfasst: Mi 30.03.11 01:35
Diese verbose Skriptsprache ? Nein, es ist eigentlich schon, was dransteht: Golfscript.
Edit: HenryHux hat folgendes geschrieben : | Werden die Aufgaben einfach gepostet oder brauch man eine Anmeldung o.ä? |
Eingeloggt solltest du schon sein . Der Rest dürfte dann selbsterklärend sein, sobald die Links da sind.
_________________ >λ=
|
|
jaenicke
Beiträge: 19273
Erhaltene Danke: 1740
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mi 30.03.11 01:54
Dann mal hier noch die ausführliche Version von mir: 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: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83:
| const LETTER_CHARS = ['a' .. 'z', 'A' .. 'Z', 'ä', 'ö', 'ü', 'Ä', 'Ö', 'Ü', '0'..'9', 'ß'];
type TCryptAction = (caEncrypt, caDecrypt);
procedure IncPos(var APosition: PChar; AEndPos: PChar; ACount: Integer; AIgnoreBrackets: Boolean); var InsideBrackets: Boolean; begin InsideBrackets := False; while (ACount >= 0) and (APosition < AEndPos) do begin while (not CharInSet(APosition^, LETTER_CHARS) or (InsideBrackets and not AIgnoreBrackets)) and (APosition < AEndPos) do begin if CharInSet(APosition^, ['[', ']']) then InsideBrackets := not InsideBrackets; Inc(APosition); end; if (ACount > 0) and (APosition < AEndPos) then Inc(APosition); Dec(ACount); end; end;
function Crypt(const AValue: string; AAction: TCryptAction; AIgnoreBrackets: Boolean): string; var SecondRun: Boolean; CurrentEncPos, CurrentDecPos, EncEndPos, DecEndPos, EncStartPos: PChar; begin SetString(Result, PChar(AValue), Length(AValue)); if AAction = caEncrypt then begin CurrentEncPos := PChar(Result); CurrentDecPos := PChar(AValue); end else begin CurrentEncPos := PChar(AValue); CurrentDecPos := PChar(Result); end; EncEndPos := CurrentEncPos + Length(AValue); DecEndPos := CurrentDecPos + Length(AValue); while not CharInSet(CurrentEncPos^, LETTER_CHARS) do Inc(CurrentEncPos); while not CharInSet(CurrentDecPos^, LETTER_CHARS) do Inc(CurrentDecPos); EncStartPos := CurrentEncPos; SecondRun := False; while CurrentEncPos < EncEndPos do begin if AAction = caEncrypt then CurrentEncPos^ := CurrentDecPos^ else CurrentDecPos^ := CurrentEncPos^; IncPos(CurrentEncPos, EncEndPos, 2, AIgnoreBrackets); IncPos(CurrentDecPos, DecEndPos, 1, AIgnoreBrackets); if not SecondRun and (CurrentEncPos = EncEndPos) then begin SecondRun := True; CurrentEncPos := EncStartPos + 1; while not CharInSet(CurrentEncPos^, LETTER_CHARS) do Inc(CurrentEncPos); end; end; end;
procedure TfrmAprilDF01Main.btnDecryptClick(Sender: TObject); begin memDecrypted.Text := Crypt(memEncrypted.Text, caDecrypt, chbIgnoreBrackets.Checked); end;
procedure TfrmAprilDF01Main.btnEncryptClick(Sender: TObject); begin memEncrypted.Text := Crypt(memDecrypted.Text, caEncrypt, chbIgnoreBrackets.Checked); end; |
|
|
Tintenblut
Beiträge: 39
Erhaltene Danke: 2
|
Verfasst: Mi 30.03.11 09:58
|
|
|