Szyfr

Potężny szyfr

•    	+          +------+        +-----+       +---+---+
  

| / | | / | | |
| / | | / | | |
| / | | + + +-------+
| / | | / | | |
| / | | / | | |
| / | | +-----+ +---+---+

• +-------------+ +------+

Zazwyczaj gdy widzimy jakiś zaszyfrowany plik (nie zip z hasłem) to zajmuje on tyle miejsca na HDD ile nie zaszyfrowany. Czyli (myślimy) że każdy znak został dodany, xorowany lub odjęty itd. np. jeżeli mamy literkę "a" +1 = "b" i rozszyfrowanie: "b" -1 = "a" prostę nie ? Ale mnie o takie szyfrowanie nie chodzi. Kolejne symbole oznaczają manewrowanie bitami znaku. Pewnie i tak nie zrozumiesz powiem tylko że chodzi o rozłączenie bitów na 2,3,4,6,8,{16 wymuszenie}.

Pomyśl (...) liczbę można dowolnie zamienać na inny system liczbowy. W kompie jest zapis 8 {binarny} np. 01011011, 3 {dziesiętny} np. 193, 2 {Hexy} np. 0F, 1 {Ascii} np. ^,%,D,~, itd.

Teraz przyda się przeliczanie z systemu 10 na inny i odwrotnie. Skorzystam z gotwca autorswa tomidze. Mam nadzieję, że nie będzie miał mi tego za złe;

Dodaj do uses MATH.

10-owy na dowolny:

function ten2xxx(value: String; system: Integer): String; 
var liczba: Integer; 
  {=======================================} 
  function Zamien(licz: Integer): String; 
  begin 
   case licz of 
    10: Result := 'A'; 
    11: Result := 'B'; 
    12: Result := 'C'; 
    13: Result := 'D'; 
    14: Result := 'E'; 
    15: Result := 'F'; 
    else Result := IntToStr(licz); 
   end; 
  end; 
  {=======================================} 
begin 
 if value = '' then 
  begin 
   Result := ''; 
   Exit; 
  end; 
 Result := ''; 
 liczba := StrToInt(value); 
 Repeat 
  Result := Zamien(liczba mod system) + Result; 
  liczba := liczba div system; 
 until liczba = 0; 
end;

dowolny na 10=owy:

function xxx2ten(value: String; system: Integer): String; 
var i, suma, dlug: Integer; 
  {============================================} 
  function Zamien(znak: Char): Integer; 
  begin 
   if znak in ['a', 'A'] then Result := 10 
   else if znak in ['b', 'B'] then Result := 11 
   else if znak in ['c', 'C'] then Result := 12 
   else if znak in ['d', 'D'] then Result := 13 
   else if znak in ['e', 'E'] then Result := 14 
   else if znak in ['f', 'F'] then Result := 15 
   else Result := StrToInt(znak); 
  end; 
  {============================================} 
begin 
 if value = '' then 
  begin 
   Result := ''; 
   Exit; 
  end; 
 suma := 0; 
 dlug := Length(value) - 1; 
 for i := 0 to dlug do 
  suma := suma + 
      Zamien(value[i + 1]) * Round(IntPower(system, (dlug - i))); 
 Result := IntToStr(suma); 
end; 

teraz funkcja która dopełnia znaki:

function dop(Value: string; System: Integer): string; 
begin 
 case System of 
  2:Result:=StringOfChar('0',8-Length(Value))+Value; 
  3:Result:=StringOfChar('0',6-Length(Value))+Value; 
  4:Result:=StringOfChar('0',4-Length(Value))+Value; 
  5:Result:=StringOfChar('0',4-Length(Value))+Value; 
  6:Result:=StringOfChar('0',4-Length(Value))+Value; 
  7:Result:=StringOfChar('0',3-Length(Value))+Value; 
  8:Result:=StringOfChar('0',3-Length(Value))+Value; 
  9:Result:=StringOfChar('0',3-Length(Value))+Value; 
  10:Result:=StringOfChar('0',3-Length(Value))+Value; 
  11:Result:=StringOfChar('0',3-Length(Value))+Value; 
  12:Result:=StringOfChar('0',3-Length(Value))+Value; 
  13:Result:=StringOfChar('0',3-Length(Value))+Value; 
  14:Result:=StringOfChar('0',3-Length(Value))+Value; 
  15:Result:=StringOfChar('0',3-Length(Value))+Value; 
  16:Result:=StringOfChar('0',2-Length(Value))+Value; 
 end; 
end;

Walnij 2 Edit`y na formę i nazwij "Kod","edit2",I z zakładki Samples Gauge i nazwij PB.
Wygodnie jest mieć 1 lierę z hasła a nie np. 20

Procedure Wylicz(str:string;var b:byte);
var
I:integer;
pom:byte; //pomocnicza zmienna
begin
pom:=ord(str[1]);
for I:=2 to length(str) do pom:=pom xor ord(str[I]);
b:=pom;
end;  

negacja bitowa

function neg(b:byte):byte;
var
I:integer;
s:string;
begin
s:=ten2xxx(inttostr(b),2);
s:=dop(s,2);
for I:=1 to 8 do if s[I]='0' then s[I]:='1' else S[I]:='0';
result:=strtoint(xxx2ten(s,2));
end;

teraz GŁÓWNY ALGORYTM 16x {Nazwałem go "P-O-W-E-R"} Plik 2 razy większy.
[{(polecam przerobić kod na Pascala a proces szyfrowania pliku będzie krótszy)}]

Procedure Power(fn:String);
var
I,II:byte;
f:file;
wyj:array [1..2] of byte;
Fi:file;
fnam,pom,l,le,ri:string;
begin
assignfile(f,fn);
reset(f,1);
fnam:=changefileext(fn,'.zzz');
assignfile(fi,fnam);
rewrite(fi,1);
form1.PB.MaxValue:=filesize(f);
wylicz(form1.kod.text,II);
while not(eof(f)) do
begin
blockread(f,I,1);
form1.PB.Progress:=filepos(f);
I:=I xor II;
I:=neg(I);
pom:=dop(ten2xxx(inttostr(I),2),2);
l:=pom[5]+pom[5]+pom[6]+pom[6]+pom[7]+pom[7]+pom[8]+pom[8]+pom[1]+pom[1]+pom[2]+pom[2]+pom[3]+pom[3]+pom[4]+pom[4];
le:=l[1]+l[2]+l[3]+l[4]+l[5]+l[6]+l[7]+l[8];
ri:=l[9]+l[10]+l[11]+l[12]+l[13]+l[14]+l[15]+l[16];
wyj[1]:=strtoint(xxx2ten(le,2));
wyj[2]:=strtoint(xxx2ten(ri,2));
blockwrite(fi,wyj,2);
end;
closefile(f);
closefile(Fi);
end;