forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)

- Библиотеки (http://forum.boolean.name/forumdisplay.php?f=124)

- - Lib_str (http://forum.boolean.name/showthread.php?t=6067)

Библиотека с некоторыми дополнительными функциями обработки строк.

Новые функции:

trim(string s) - Удаление пробелов в начале и в конце текста

startwith(string s, string s2) - Проверка строки s: содержит ли она в своём начале текст s2. Возвращает 0 или 1.

endwith(string s, string s2) - Проверка строки s: содержит ли она в своём конце текст s2. Возвращает 0 или 1.

Ответ: Lib_str

Такое и на паскале можно написать.
Odd напиши библиотеку лучше, чтобы картинка прозрачность менялась. Lib_alpha ты ее не дописал.

Ответ: Lib_str

Добавлена функция шифрования строки. Что ещё по строкам нужно добавить? Заказывайте.

string Codex(s: string; key: string) - Простейшее шифрование строки текста по методу XOR
s - шифруемая строка, key - ключ шифрования (длина ключа - произвольная).
Для расшифровки используется эта же функция, но вместо s подставляем зашифрованную строку.
Данное шифрование можно применять в качестве дополнительной защиты при
использовании других алгоритмов шифрования (например, Base64 или MD5)

НЕСКОЛЬКО СОВЕТОВ ПО УВЕЛИЧЕНИЮ КРИПТОСТОЙКОСТИ
1. Ключ шифрования делать подлиннее и позаковыристее. Ключ не должен быть осмысленным словом или фразой
t8%FжW21?sПqб(*Z - прекрасный пример ключа
2. Не нужно писать ключ в программе открытым текстом, типа так:
key := 'superkey';
Его можно будет легко прочитать даже непрофессионалу, используя InClass Translator
лучше делать хотя бы так:
key := chr(115) + chr(117) + chr(112) ...

PS: Теперь буду продолжать работы над оконным интерфейсом. ;)

То, что надо! odd, спасибо тебе! :super:

А конвертацию UTF-8<->1251 можешь сделать?

Ответ: Lib_str

А нельзя ли седлать функцию установки длины строки.

Ответ: Lib_str

Цитата:

Сообщение от m1kc

А конвертацию UTF-8<->1251 можешь сделать?

Уже где-то делал. Кажется при загрузке ресурсов. могу добавить и сюда.

Цитата:

Сообщение от GanGSISoft (Сообщение 123108)

А нельзя ли седлать функцию установки длины строки.

В смысле? Обрезку что ли?

Ответ: Lib_str

Реализуйте этот код
function pos(Substr,S:string):integer;
как в Delphi
возвращяет в строке S номер начал подстроки Substr
например
i:=pos('рив','привет');
вернёт цифру 2

Ответ: Lib_str

Цитата:

Сообщение от rangel (Сообщение 128046)

pos - стандартная функция midlet pascal

Ответ: Lib_str

Цитата:

Сообщение от Bruteo (Сообщение 128051)

pos - стандартная функция midlet pascal

об этом знают только те, кто хэлп открывал :-D

Ответ: Lib_str

Цитата:

Сообщение от AVIZO (Сообщение 128226)

об этом знают только те, кто хэлп открывал :-D

По его постам видно у него help'a нет и поисковиком по форуму пользоваться не умеет :crazy: