Ocena mojego programu.

0

Heja!
Mogę Was prosić o ocenę mojego programu do szyfrowania. Więcej szczegółów nie zdradze, sprawdzcie sami www.info4.prx.pl/KodEx.zip
Pozdrawiam {hello}

0

No wiesz nie chce cie zniechecac ale potrzebowalem jakies 25min aby napisac program rozszyfrujacy text zakodowany twoim programem przy sile szyfrowania 50. Nie zrobilem tylko obslugi znaczkow i wielkich liter. Zrobienie tego wszystkiego to tylko kwestja czasu jak ktos chce rozszyfratorka to prosze oto przepis:
Na forme wstawic 2 komponety z zakladki standard o nazwie memo (memo1,memo2). Dodatkowo dodaj button. I w procedurze onclick buttona wpisac:

var I:integer;
begin
for I := 1 to Length(memo1.Text) do
begin
if memo1.Text[i]='S'then
memo2.Text:=memo2.Text+'a';
if memo1.Text[i]='P'then
memo2.Text:=memo2.Text+'b';
if memo1.Text[i]='Q'then
memo2.Text:=memo2.Text+'c';
if memo1.Text[i]='V'then
memo2.Text:=memo2.Text+'d';
if memo1.Text[i]='W'then
memo2.Text:=memo2.Text+'e';
if memo1.Text[i]='T'then
memo2.Text:=memo2.Text+'f';
if memo1.Text[i]='U'then
memo2.Text:=memo2.Text+'g';
if memo1.Text[i]='Z'then
memo2.Text:=memo2.Text+'h';
if memo1.Text[i]='['then
memo2.Text:=memo2.Text+'i';
if memo1.Text[i]='X'then
memo2.Text:=memo2.Text+'j';
if memo1.Text[i]='Y'then
memo2.Text:=memo2.Text+'k';
if memo1.Text[i]='^'then
memo2.Text:=memo2.Text+'l';
if memo1.Text[i]='_'then
memo2.Text:=memo2.Text+'m';
if memo1.Text[i]='\'then
memo2.Text:=memo2.Text+'n';
if memo1.Text[i]=']'then
memo2.Text:=memo2.Text+'o';
if memo1.Text[i]='B'then
memo2.Text:=memo2.Text+'p';
if memo1.Text[i]='@'then
memo2.Text:=memo2.Text+'r';
if memo1.Text[i]='A'then
memo2.Text:=memo2.Text+'s';
if memo1.Text[i]='F'then
memo2.Text:=memo2.Text+'t';
if memo1.Text[i]='G'then
memo2.Text:=memo2.Text+'u';
if memo1.Text[i]='C'then
memo2.Text:=memo2.Text+'q';
if memo1.Text[i]='E'then
memo2.Text:=memo2.Text+'w';
if memo1.Text[i]='D'then
memo2.Text:=memo2.Text+'v';
if memo1.Text[i]='J'then
memo2.Text:=memo2.Text+'x';
if memo1.Text[i]='K'then
memo2.Text:=memo2.Text+'y';
if memo1.Text[i]='H'then
memo2.Text:=memo2.Text+'z';
if memo1.Text[i]='‹'then
memo2.Text:=memo2.Text+'ą';
if memo1.Text[i]='Ô'then
memo2.Text:=memo2.Text+'ć';
if memo1.Text[i]=''then
memo2.Text:=memo2.Text+'ł';
if memo1.Text[i]='Ř'then
memo2.Text:=memo2.Text+'ę';
if memo1.Text[i]='Ă'then
memo2.Text:=memo2.Text+'ż';
if memo1.Text[i]='Ť'then
memo2.Text:=memo2.Text+'ź';
if memo1.Text[i]='­'then
memo2.Text:=memo2.Text+'ó';
if memo1.Text[i]=''then
memo2.Text:=memo2.Text+' ';
if memo1.Text[i]=#3 then
memo2.Text:=memo2.Text+'1';
if memo1.Text[i]=#4 then
memo2.Text:=memo2.Text+'2';
if memo1.Text[i]=#5 then
memo2.Text:=memo2.Text+'3';
if memo1.Text[i]=#6 then
memo2.Text:=memo2.Text+'4';
if memo1.Text[i]=#7 then
memo2.Text:=memo2.Text+'5';
if memo1.Text[i]=#8 then
memo2.Text:=memo2.Text+'6';
if memo1.Text[i]=#9 then
memo2.Text:=memo2.Text+'7';
if memo1.Text[i]=#10 then
memo2.Text:=memo2.Text+'8';
if memo1.Text[i]=#11 then
memo2.Text:=memo2.Text+'9';
if memo1.Text[i]=#2 then
memo2.Text:=memo2.Text+'0';
end;

Wiem ze to nie jest do konca tak jak byc powinno ale jak ktos potrzebuje rozszyfrowac jakis text to moze byc :-). A tak na marginesie LeWy jak szyfrujesz pliki textowe to mozesz stosowac losowy algorytm i dopisywac na koncu lub na poczatku jaki zostal uzyty zeby go odpowiednio deszyfrowac :-) (aha a czy probowales zasztfrowac text 1234567890, nie wiem dlaczego nie chce sie zaszyfrowac?) Popraw troche ten program :-)--pozdrawiam PEDROS {hello}
Delphi6

0

I przydało by się BorderIcons bez biMaximize, bo głupio to wygląda jak się na nią kliknie ;) --You may say I am dreamer...

0

Algorytm którego użyłem to XOR i tak na marginesie to mi szyfruje liczby :-)

0

Do Pedrosa:
Jak wie jaki tekst sie wpisało to wiadomo ze bardzo łatwo można go rozszyfrować nie. Wystarczy troche pomyśleć :[[

0

Ale przed chwila wpadlem na pomysl ze mozna zawsze wkleic zaszyfrowany text do twojego programu i probowac rozszyfrowac. Jest tylko 5 mozliwosci i bez mojego biednego programu mozna rozszyfrowac text.:-)--pozdrawiam PEDROS {hello}
Delphi6

1 użytkowników online, w tym zalogowanych: 0, gości: 1