Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Шифровка/Дешифровка строк. / 12 сообщений из 12, страница 1 из 1
21.09.2006, 19:42
    #34004436
edmikeca
edmikeca
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шифровка/Дешифровка строк.
Добрый день/вечер/утро/ночь уважаемая публика.

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

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

С уважением,

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

С уважением,

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

С уважением,

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

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

С уважением,

Михаил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2006, 09:26
    #34004967
AIZ
AIZ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шифровка/Дешифровка строк.
Рекомендую пользоваться zlib.dll
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2006, 11:40
    #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, 14:13
    #34006276
edmikeca
edmikeca
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шифровка/Дешифровка строк.
2 grach
Круто! Спасибо за исходник!

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

С уважением,

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

С уважением,

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


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