ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Шифровка/Дешифровка строк.
12 сообщений из 12, страница 1 из 1
Шифровка/Дешифровка строк.
    #34004436
edmikeca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
edmikeca
Участник
Добрый день/вечер/утро/ночь уважаемая публика.

Есть следующий вопросец. Возможно ли средствами РВ шифровать/дешифровать строку. Например зашифровать строку, сохранить на жесткий диск, позже считать эту сроку и дешифровать ее в первоначальный вид.

Заранее благодарен.

С уважением,

Михаил.
...
Рейтинг: 0 / 0
21.09.2006, 19:42
| Ответить | Цитировать | Написать  
Шифровка/Дешифровка строк.
    #34004517
grach
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grach
Гость
да
...
Рейтинг: 0 / 0
21.09.2006, 20:34
| Ответить | Цитировать | Написать  
Шифровка/Дешифровка строк.
    #34004523
edmikeca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
edmikeca
Участник
А как (если не секрет, конечно)?

С уважением,

Михаил.
...
Рейтинг: 0 / 0
21.09.2006, 20:38
| Ответить | Цитировать | Написать  
Шифровка/Дешифровка строк.
    #34004546
grach
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grach
Гость
В PFC есть такой тип pfc_n_cst_string - в нем имеется базовые методы of_encrypt и of_decrypt. Их можно на свое усмотрение переделать или использовать внешние функции.
Ну а с полученными данными можно что угодно делать...
...
Рейтинг: 0 / 0
21.09.2006, 20:57
| Ответить | Цитировать | Написать  
Шифровка/Дешифровка строк.
    #34004564
edmikeca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
edmikeca
Участник
Спасибо за подсказку.

С уважением,

Михаил.
...
Рейтинг: 0 / 0
21.09.2006, 21:09
| Ответить | Цитировать | Написать  
Шифровка/Дешифровка строк.
    #34004570
edmikeca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
edmikeca
Участник
Прошу прощения,

А в какой версии PFC эти методы? А то я их что-то не вижу в PFC 9.0

С уважением,

Михаил.
...
Рейтинг: 0 / 0
21.09.2006, 21:15
| Ответить | Цитировать | Написать  
Шифровка/Дешифровка строк.
    #34004967
Фотография AIZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIZ
Участник
Рекомендую пользоваться zlib.dll
...
Рейтинг: 0 / 0
22.09.2006, 09:26
| Ответить | Цитировать | Написать  
Шифровка/Дешифровка строк.
    #34005529
grach
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grach
Гость
прошу прощения за опечатку : pfd_n_cst_string
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
//////////////////////////////////////////////////////////////////////////////
//
// Function:     of_Decrypt
//
// Access:       Public
//
// Arguments:    as_source - the string to decode
//               as_key    - the key to use when decoding the string
//
// Returns:      String.  as_source decoded using as_key.
//
// Description:  Decodes the source string using the given key.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
//	Version
//	 1 . 0  Initial version
//
//////////////////////////////////////////////////////////////////////////////

String ls_decrypt
Long   ll_char, ll_chars, ll_keychars

// Check for null arguments
IF IsNull(as_source) OR IsNull(as_key) THEN
	SetNull(ls_decrypt)
	RETURN ls_decrypt
END IF

// Check for empty arguments
ll_chars = Len(as_source)
ll_keychars = Len(as_key)
IF ll_chars <  1  OR ll_keychars <  1  THEN RETURN ''

// Decrypt the string
ls_decrypt = ''
FOR ll_char =  1  TO ll_chars
	ls_decrypt += String(Char(Asc(Mid(as_source, ll_char,  1 )) - Asc(Mid(as_key, Mod(ll_char, ll_keychars) +  1 ,  1 ))))
NEXT

RETURN ls_decrypt
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
//////////////////////////////////////////////////////////////////////////////
//
// Function:     of_Encrypt
//
// Access:       Public
//
// Arguments:    as_source - the string to encode
//               as_key    - the key to use when encoding the string
//
// Returns:      String.  as_source encoded using as_key.
//
// Description:  Encodes the source string using the given key.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
//	Version
//	 1 . 0  Initial version
//
//////////////////////////////////////////////////////////////////////////////

String ls_encrypt
Long   ll_char, ll_chars, ll_keychars

// Check for null arguments
IF IsNull(as_source) OR IsNull(as_key) THEN
	SetNull(ls_encrypt)
	RETURN ls_encrypt
END IF

// Check for empty arguments
ll_chars = Len(as_source)
ll_keychars = Len(as_key)
IF ll_chars <  1  OR ll_keychars <  1  THEN RETURN ''

// Encrypt the string
ls_encrypt = ''
FOR ll_char =  1  TO ll_chars
	ls_encrypt += String(Char(Asc(Mid(as_source, ll_char,  1 )) + Asc(Mid(as_key, Mod(ll_char, ll_keychars) +  1 ,  1 ))))
NEXT

RETURN ls_encrypt
...
Рейтинг: 0 / 0
22.09.2006, 11:40
| Ответить | Цитировать | Написать  
Шифровка/Дешифровка строк.
    #34006276
edmikeca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
edmikeca
Участник
2 grach
Круто! Спасибо за исходник!

2 AIZ
А что такое zlib.dll? Где-то можно найти описание?

С уважением,

Михаил.
...
Рейтинг: 0 / 0
22.09.2006, 14:13
| Ответить | Цитировать | Написать  
Шифровка/Дешифровка строк.
    #34006471
Фотография AIZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIZ
Участник
Это библиотека с функциями сжатия. Могу прислать с описанием и объектом для PB
...
Рейтинг: 0 / 0
22.09.2006, 15:02
| Ответить | Цитировать | Написать  
Шифровка/Дешифровка строк.
    #34006503
Фотография AIZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIZ
Участник
На всякий случай выложу, может еще кому пригодится.
...
Рейтинг: 0 / 0
22.09.2006, 15:07
| Ответить | Цитировать | Написать  
Шифровка/Дешифровка строк.
    #34006650
edmikeca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
edmikeca
Участник
Большое всем спасибо за помощь.

С уважением,

Михаил.
...
Рейтинг: 0 / 0
22.09.2006, 15:44
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Шифровка/Дешифровка строк.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=15&msg=34006276&tid=1337599]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 216ms
total:  330ms
созд. / загр.: 330ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]