Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 22.08.2011, 02:44
us8ihj us8ihj вне форума
Прохожий
 
Регистрация: 18.06.2011
Сообщения: 19
Репутация: 10
По умолчанию Шифрование

Доброго времени суток. Хочу попытаться написать программу для шифрования/дешифрования. Пока что в этом плане я почти полный "0". Меня на данный момент интересует такой вопрос:

1. Допустим, у нас есть строка Str размера N, где Str[N] - N-ный элемент. Как преобразовать (получить) из этого элемента:
- байт;
- ANSI-номер символа;
- Hex-код символа;
- Юникод.

Ну и в общем случае получать из любой другой кодировки или кода символ.

На примере ASCII (ANSI):
Шифруем слово "Дом": 132+174+172.

2. Как из измененного кода символов (с помощью ключа или без) восстановить текст (то есть из кодировки символа вывести сам символ)

Я понимю, что есть какие-то функции, вот что это за функции я и хочу спросить.

Последний раз редактировалось us8ihj, 22.08.2011 в 02:47.
Ответить с цитированием
  #2  
Старый 22.08.2011, 08:14
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
 
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
По умолчанию

Думаю этого хватит для шифрования и де шифрования:
Код:
Var
 S: String;
 C: Char;
 B: Byte;
 L: Integer;
begin
 S:= 'sdfsdgfh';// Строка.
 L:= Length(S); // Длина строки.
 C:= S[3];      // Выделим 1 символ из строки третий например.
 B:= Ord(C);    // Символ в формате $00-$FF;
 C:= Chr(B);    // Обратное преобразование байта в символ.
 Form1.Caption:= IntToHex(B, 2)+'h.'; // Показать байт.
end;
__________________
If end Then begin;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:46.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025