Den ubrydelige kryptering!
Tjaæhhh - den har jeg opfundet - den er så ubrydelig at jeg ikke kan dekryptere den selv :) i hvert fald ikk det hele *gg*Nå - slut med det sjawe. Koden til at kryptere teksten er herunder:
AnsiString krypteringsTekst=tekst->Text;
for(int i=0;i < krypteringsTekst.Length();i++){
hovedVindue->Update();
progressForm->Update();
progressForm->progressViser->Progress=(i*100)/tekst->Lines->Count;
chr = krypteringsTekst[i+1];
chr = (char)(((int)chr)+((int)KryptKode[j]));
chr = (char)(((int)chr) % 255);
krypteringsTekst[i+1]=chr;
if(j < kodeLen)
j++;
else
j=1;
}
tekst->Text=krypteringsTekst;
Dette er koden til at dekryptere:
AnsiString krypteringsTekst=tekst->Text;
for(int i=0;i < krypteringsTekst.Length();i++){
hovedVindue->Update();
progressForm->Update();
progressForm->progressViser->Progress=(i*100)/tekst->Lines->Count;
chr = krypteringsTekst[i+1];
chr = (char)(((int)chr)-((int)KryptKode[j]));
chr = (char)(((int)chr) % 255);
krypteringsTekst[i+1]=chr;
if(j < kodeLen)
j++;
else
j=1;
}
tekst->Text=krypteringsTekst;
Mit problem er, at når jeg krypterer tekster over en vis længde, bliver dekrypteringen kun delvis - det vil sige at en del tegn helt er forsvundet og en anden del stadigt er krypteret. Kun lidt af starten er blevet dekrypteret...
Det er ret wired :-/
E-)mil
http://eej.dk
http://fotx.net/emileej
