Hi all! Iskam da popitam ima li na4ini za kriptirane na danni.
Problema mi e 4e pi6a programa na Delphi i iskam sled kato zapi6a danni wyw daden fail da go kodiram po niakakyw na4in, taka 4e da ne moje da se 4ete.

Blogodarq predwaritelno.

Има хиляди начини за криптиране и разкриптиране на данни.
ето ти един

Съдържаниет е скрито
Влезте за да го видите

Mersi mnogo towa shte mi swyr6i rabota!

Естествено че има :) Ето ти нещо просто :
--
Memo1.Lines.LoadFromFile('1.dat');
for i:=1 to Length(Memo1.Text) do
temp:=temp+chr(ord(Memo1.text) xor $A1 and $FC);
Memo1.text:=temp;
--
примерно само :) обратния процес е същия - като сейваш файла,инфото което ще запишеш пак го минаваш през същия цикъл, и след това сейваш...много е просто, и за такива "незаангажиращи" цели върши перфектна работа..

И ще отнеме непостижимите 10 минути да ти го ревърснат.
XOR-а е най-елементарния и първия алгоритъм който се пробва за възстановяване на текст-а

root@ro6avia#echo rm -rf * > /bin/seek_and_destroy
root@ro6avia#/bin/seek_and_destroy

... and $FC?
Мноооог интересно: всички символи с еднакви младши битове 0 и 1 ще се кодират с един и същи символ. Как предлагаш да се възстанови после изгубената информация?

Ambivalent? Well, yes and no.

Еее, нека да помисли малко човека де! :-) AND-а е сложен в случай че нa някой му стане интересно, да помисли кое и как става :) По-принцип, ако ми се наложи за нещо маловажно го ползвам без AND-a, и за да не ме съди още някои за това че съзнателно съм допуснал грешка...
temp:=temp+chr(ord(Memo1.text) xor $A1); трябва да е
temp:=temp+chr(ord(Memo1.text{i}) xor $A1);

--
more.fun()

Ами то се започва от началото :) Като пита дали има начин, покажи му някакъв, ако му е интересно той сам ще стигне до това което иска.
Предложи ми алгоритъм за ревърс, този който ти ползваш примерно - по най елементарния начин - XOR....

Да де видяхме, че [ i ] ти го е преформатирал форума на италик ;-)

root@ro6avia#echo rm -rf * > /bin/seek_and_destroy
root@ro6avia#/bin/seek_and_destroy

За непознат текст, ако знам че е текст ->
броя повтарящите се символи и предполагам, че най-често срещания от тях е някоя гласна и то в следния ред : И, А, Е, О, У, Ъ
Пускам XOR-а със съответното отместване и преглеждам 6-е резултата.

Ако не стане, брут форс с 254 възможности, резултата в текстов фаил и след това с един поглед по диагонал търся смислен текст.

Ако и това не стане, следните няколко варианта :
XOR на всеки символ с позицията му
пример decripted = (text[1] XOR 1) + (text[2] XOR 2) + (text[3] XOR 3) ...
XOR на с позицията и твърдо заложено отместване.
XOR на символа в зависимост от предходните символи (XOR с ASCII на предния символ, със сбора от няколко предни с остатъка от делението им etc...)

root@ro6avia#echo rm -rf * > /bin/seek_and_destroy
root@ro6avia#/bin/seek_and_destroy