Delphi source, winapi crypro

Сейчас на форуме: Lohmaty, tyns777, cppasm (+7 невидимых)

Посл.ответ	Сообщение
encore Ранг: -0.7 (гость) Активность: 0=0 Статус: Участник	Создано: 03 апреля 2018 21:33 · Личное сообщение · #1 имеются криптованные данные таким макаром: Code: uses wcrypt2; function CryptBuff(Buff: Pointer; lenBuff: Integer; const Password: AnsiString; ToCrypt: Boolean): Integer; var hProv: HCRYPTPROV; hash: HCRYPTHASH; key: HCRYPTKEY; len: dWord; begin CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT); CryptCreateHash(hProv, CALG_SHA, 0, 0, @hash); CryptHashData(hash, @Password[1], Length(Password), 0); CryptDeriveKey(hProv, CALG_RC4, hash, 0, @key); CryptDestroyHash(hash); len:= lenBuff; if ToCrypt then CryptEncrypt(key, 0, true, 0, Buff, @len, len) else CryptDecrypt(key, 0, true, 0, Buff, @len); result:= len; CryptReleaseContext(hProv, 0); end; нужно на дельфи написать приложение под андроид, которое умело бы расшифровывать эти данные (подготовить хеш SHA, наложить пароль и получить ключ, которым по алгоритму RC4 декодировать данные) может в кладовке у кого есть какие исходники? исходники алгоритма RC4 вроде бы гуглятся. вот как создать ключ..

rmn Ранг: 158.4 (ветеран), 123thx Активность: 0.14↗0.49 Статус: Участник	Создано: 03 апреля 2018 21:44 · Личное сообщение · #2 Ключ для rc4 - это sha-хэш от пароля. Бруть пароль, больше никак.
encore Ранг: -0.7 (гость) Активность: 0=0 Статус: Участник	Создано: 03 апреля 2018 22:36 · Личное сообщение · #3 может я не так написал. у меня пароли и кодированные данные есть (я их сам и кодировал :s1 мне просто нужно их декодировать, не используя апи винды, что бы можно было этот код применить в кроссплатформенном приложении delphi. Добавлено спустя 3 минуты тоесть мне нужен delphi исходник для создания sha-хэша пароля ну и алгоритм декодирования RC4 без использования криптоапи винды.
Kindly Ранг: 275.9 (наставник), 340thx Активность: 0.22=0.22 Статус: Участник RBC	Создано: 03 апреля 2018 22:40 · Поправил: Kindly · Личное сообщение · #4 encore пишет: у меня пароли и кодированные данные есть (я их сам и кодировал :s1 мне просто нужно их декодировать, не используя апи винды, что бы можно было этот код применить в кроссплатформенном приложении delphi. dcpcrypt2 ----- Array[Login..Logout] of Life \| Сообщение посчитали полезным: encore
encore Ранг: -0.7 (гость) Активность: 0=0 Статус: Участник	Создано: 03 апреля 2018 22:52 · Личное сообщение · #5 Kindly, спасибо! есть такая в загашниках. что-то думал она использует апи винды. сейчас поковыряю..

Для печати