Бинарный Код Таблица

Length + 1]));  Result: =Text; end; procedure TForm Code Click(Sender: TObject); var  Text Key File Name: string; begin  File Name : = 'C: \code Key : = '1 23';  Get Buff(Text 'C: \source Show Message(Int To Str(Length(Text)));  Text : = HH(Text Key False);  Show Message(Int To Str(Length(Text)));  Write To File(Text File. Двои́чный — это способ представления данных в виде а в котором каждый разряд принимает одно из двух возможных значений обычно Расшифровать двоичный online Расировать Создать Rss Feed Следите за обновлениями в социальных сетях 4/12/2016 0 Comments Как зашифровать\расшифровать ( Форум на Исходниках Руfunction H(Text,Key: String; Encode: boolean): String; var  i Key Length: integer;  Sign: Short Int; begin Key Length: =Length(Key); if Encode then Sign : =- 1 else Sign: =1; for i: =0 to Length(Text) - 1  do //я здесь немного подправил  Text[i]: =chr(ord(Text[i])+Sign*ord(Key[i. Name); end; procedure TForm Button 2Click(Sender: TObject); var  Text Key File Name: string; begin  File Name : = 'C: \decode Key : = '1 23';  Get Buff(Text 'C: \code Text : = HH(Text Key True);  Write To File(Text File.

Write something about yourself No need to be fancy just an overview Archives April 2016 Categories All

Length+1]));  result: =Text; end; procedure Get Buff(var Text: string; File Name: string); var  F: File of Byte;  B: Byte; begin  Assign File(F File Name);  Reset(F);  while not Eof(F) do  begin    Read(F B);    Text : = Text + chr(B);  end;  Close(F); end; procedure Write.