дешифроват / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / дешифроват

10 сообщений из 10, страница 1 из 1

дешифроват

#33468452

GuestNew

Гость

Приветик.
Для шифровку пороля вот такой код стоит :
Thisform.text1.value = SYS(2007, this.value, 0,0)
А как можно дешифроват етот код.
Спасибо

...

Рейтинг:

0 / 0

04.01.2006, 20:40

| Ответить | Цитировать | Написать

дешифроват

#33468487

_никак(-)

Гость

расшифровка не поддается
это односторонне шифрование
просто смените пароль

...

Рейтинг:

0 / 0

04.01.2006, 21:53

| Ответить | Цитировать | Написать

дешифроват

#33468805

GuestNew

Гость

А есть такое функцсия которое преврошал text- или number - text.
SYS(2007) преврошает number а обратно как?
Спосибо.

...

Рейтинг:

0 / 0

05.01.2006, 10:48

| Ответить | Цитировать | Написать

дешифроват

#33468944

_Иван_

Участник

Сообщения: 287

Рейтинг: 0 / 0

Дак зачем Вам что-то превращать
это невозможно
обычно делается так
При вводе юзером(а ващето админом)
нового пароля он функцией
sys(2007) "шифруется"
и "контрольная сумма" пишется в таблицу юзеров
(id_user, Name_user, Password-типа такая)
Примечание: Даже у "пустого пароля"
есть контрольная сумма-проверте ?SYS(2007,'')
При входе юзера проверяется соответствие
КОНТРОЛЬНОЙ СУММЫ введенного пароля
например в текстовое поле и ЗНАЧЕНИЯ В ТАБЛИЦЕ
IF Thisform.text1.value = SYS(2007,User.Password )
*разрешено
else
*запрещено
endif
Таким образом ващето и не зачем знать пароль
юзера.
В любой проге должно быть
администрирование, то есть смена пароля
определенного юзера админом,
там обычно пишется "контрольная сумма"
нового пароля без проверки соответствия старого.

Вообщем обращайтесь к админу, он Вам все сделает,
а если вы "хакер", который хочет залезть
в БД под чужим логином, то обратитесь к админу,
он вам поможет :-)))

...

Рейтинг:

0 / 0

05.01.2006, 12:16

| Ответить | Цитировать | Написать

дешифроват

#33469081

GuestNew

Гость

Я не хакер.задача такая ест 2 Editbox : sEdit,dEdit и ест 2 Commandbutton: sCom,dCom.Хочу что когда кликну sCom текст который стоит sEdit отображалсия dEdit (с исползованием SYS(2007)) шифровалсия.А когда кликну dCom текст в dEdit (шифрований) отображалсия sEdit как обичним текстом.
Вот и всё!

...

Рейтинг:

0 / 0

05.01.2006, 13:27

| Ответить | Цитировать | Написать

дешифроват

#33469122

GuestNew

Гость

...

Рейтинг:

0 / 0

05.01.2006, 13:45

| Ответить | Цитировать | Написать

дешифроват

#33469123

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

GuestNewЯ не хакер.задача такая ест 2 Editbox : sEdit,dEdit и ест 2 Commandbutton: sCom,dCom.Хочу что когда кликну sCom текст который стоит sEdit отображалсия dEdit (с исползованием SYS(2007)) шифровалсия.А когда кликну dCom текст в dEdit (шифрований) отображалсия sEdit как обичним текстом.
Вот и всё!

А по-русски писать слабо? :)

Шифрование необратимое. Тут только перебором подбирать пароль дающий такое же значение SYS(2007). Вариантов результата похоже 65536 всего. Что-то типа:

Код: plaintext

1.
2.
3.
4.
5.
6.

for i =  1  to  1000000 
    if SYS( 2007 , alltrim(str(i))) = thisform.dEdit.value
       thisform.sEdit.value = alltrim(str(i))
       exit
   endif
endfor

...

Рейтинг:

0 / 0

05.01.2006, 13:45

| Ответить | Цитировать | Написать

дешифроват

#33469152

GuestNew

Гость

Ето первая фраза а второе как можно обратном виде : numeber - text

...

Рейтинг:

0 / 0

05.01.2006, 14:05

| Ответить | Цитировать | Написать

дешифроват

#33469729

piki_piki

Участник

Сообщения: 28

Рейтинг: 0 / 0

SYS(2007, cExpression, [, nSeed, [, nFlags]])
nFlags = 0, для CRC16
nFlags = 1, для CRC32
Так что, вариантов 4294967296, как минимум.
Гораздо проще шифровать/дешифровать по ключу.

Например так:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Procedure CryptStr(pc_Word As String ,pc_Key As String)
	Local lc_ValRet, lc_IndexStr1, lc_IndexStr2, ln_CIndex,ln_CIndex1,ln_LenWord
	Store '' To lc_ValRet
	Store  0  To ln_CIndex,ln_CIndex1
	ln_LenWord = Len(pc_Word)
	For ln_CIndex =   1  To ln_LenWord
		ln_CIndex1 =  Iif(ln_CIndex1>Len(pc_Key ), 1 ,ln_CIndex1+ 1 )
		lc_IndexStr1 =  Asc(Substr(pc_Key,ln_CIndex1, 1 ))
		lc_IndexStr2 =  Asc(Substr(pc_Word,ln_CIndex, 1 ))
		lc_ValRet = lc_ValRet+Chr(Bitxor(lc_IndexStr1,lc_IndexStr2))
	Endfor
	Return lc_ValRet
Endproc

Для примера:

Код: plaintext

1.
2.

lcCryptStr =  CryptStr("Строка","klmxchcysd") && Зашифровали 
? CryptStr(lcCryptStr,"klmxchcysd")               && Расшифровали

...

Рейтинг:

0 / 0

05.01.2006, 22:53

| Ответить | Цитировать | Написать

дешифроват

#33471227

Igor Korolyov

Участник

Откуда: Гомель, Беларусь

Сообщения: 2 520

Рейтинг: 0 / 0

Hi GuestNew!

Говорят же тебе - SYS(2007) это НЕ ШИФРОВАНИЕ. Соответственно никакого
обратного процесса "дешифрования" нет и быть не может. Можно только
подобрать некоторый текст (совершенно не обязетельно что этот текст будет
совпадать с "исходным" текстом), который даст такую-же сумму.

Posted via ActualForum NNTP Server 1.3

...

Рейтинг:

0 / 0

07.01.2006, 15:18

| Ответить | Цитировать | Написать

10 сообщений из 10, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / дешифроват

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=33469081&tid=1592658]:	0ms
get settings:	11ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	181ms
get topic data:	11ms
get forum data:	2ms
get page messages:	53ms
get tp. blocked users:	1ms
others:	253ms

total:	535ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы