-
Data: 2009-09-08 12:26:35
Temat: Zaszyfrowane CAPICOMem, jak odszyfrować CryptoAPI?
Od: "gosmo" <t...@m...pl> szukaj wiadomości tego autora
[ pokaż wszystkie nagłówki ]Witam, mam zaszyfrowane dane poniższym kodem:
EncryptedData := CreateOleObject('CAPICOM.EncryptedData');
try
EncryptedData.Algorithm.KeyLength :=
CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS;
EncryptedData.Algorithm.Name := CAPICOM_ENCRYPTION_ALGORITHM_3DES;
EncryptedData.Content := AString;
EncryptedData.SetSecret(ASecret);
Result := EncryptedData.Encrypt;
finally
EncryptedData := Null;
end;
Aby odszyfrować to za pomocą CryptoAPI wykombinowałem takiego potworka:
function DecodeWC(AString: WideString; ASecret: WideString = ''):
WideString;
var
hProv : Cardinal;
hHash : Cardinal;
hKey : Cardinal;
dwBlobLen : Cardinal;
pBuffer : PByte;
begin
if (not CryptAcquireContext(hProv, Nil, NIL, PROV_RSA_FULL,
CRYPT_VERIFYCONTEXT)) and (not CryptAcquireContext(hProv, Nil, Nil,
PROV_RSA_FULL, CRYPT_VERIFYCONTEXT OR CRYPT_NEWKEYSET)) then
RaiseLastOSError
else
try
if not CryptCreateHash(hProv, CALG_MD5, 0, 0, hHash) then
RaiseLastOSError
else
try
if not CryptHashData(hHash, PByte(@ASecret[1]), Length(ASecret) * 2,
0) then RaiseLastOSError;
if not CryptDeriveKey(hProv, CALG_3DES, hHash, 0, hKey) then
RaiseLastOSError
else
try
dwBlobLen := Length(AString) * 2;
pBuffer := PByte(@AString[1]);
if not CryptDecrypt(hKey, 0, True, 0, pBuffer, dwBlobLen) then
RaiseLastOSError;
finally
CryptDestroyKey(hKey);
end;
finally
CryptDestroyHash(hHash);
end;
finally
CryptReleaseContext(hProv, 0);
end;
end;
Ale mimo, że używałem chyba wszystkich możliwych algorytmów hashujących to
nadal dostaję komunikat złych danych przy CryptDecrypt.
Jak odszyftować te dane za pomocą CryptoAPI?
Następne wpisy z tego wątku
- 10.09.09 20:13 Real Hacker
Najnowsze wątki z tej grupy
- We Wrocławiu ruszyła Odra 5, pierwszy w Polsce komputer kwantowy z nadprzewodzącymi kubitami
- Ada-Europe - AEiC 2025 early registration deadline imminent
- John Carmack twierdzi, że gdyby gry były optymalizowane, to wystarczyły by stare kompy
- Ada-Europe Int.Conf. Reliable Software Technologies, AEiC 2025
- Linuks od wer. 6.15 przestanie wspierać procesory 486 i będzie wymagać min. Pentium
- ,,Polski przemysł jest w stanie agonalnym" - podkreślił dobitnie, wskazując na brak zamówień.
- Rewolucja w debugowaniu!!! SI analizuje zrzuty pamięci systemu M$ Windows!!!
- Brednie w wiki - hasło Dehomag
- Perfidne ataki krakerów z KRLD na skrypciarzy JS i Pajton
- Instytut IDEAS może zacząć działać: "Ma to być unikalny w europejskiej skali ośrodek badań nad sztuczną inteligencją."
- Instytut IDEAS może zacząć działać: "Ma to być unikalny w europejskiej skali ośrodek badań nad sztuczną inteligencją."
- Instytut IDEAS może zacząć działać: "Ma to być unikalny w europejskiej skali ośrodek badań nad sztuczną inteligencją."
- U nas propagują modę na SI, a w Chinach naukowcy SI po kolei umierają w wieku 40-50lat
- C++. Podróż Po Języku - komentarz
- "Wuj dobra rada" z KDAB rozważa: Choosing the Right Programming Language for Your Embedded Linux Device
Najnowsze wątki
- 2025-05-28 Szok
- 2025-05-28 Żerniki => Dyspozytor Międzynarodowy <=
- 2025-05-28 Szczecin => Key Account Manager IT <=
- 2025-05-28 Warszawa => NMS System Administrator <=
- 2025-05-28 Warszawa => Java Full Stack Developer (Angular2+) <=
- 2025-05-28 Uwaga na spadki....
- 2025-05-27 Nawrocki v. Onet : pozew poszedł w sąd (nie w trybie wyborczym)
- 2025-05-27 Re: Nowe zalecenie w Mini Netykiecie dotyczące wklejania linków URL
- 2025-05-27 Re: Nowe zalecenie w Mini Netykiecie dotyczące wklejania linków URL
- 2025-05-27 Dlaczego bede jezdzil samochodem do centrum?
- 2025-05-27 Zermatt
- 2025-05-27 Warszawa => Senior Frontend Developer (React + React Native) <=
- 2025-05-27 Dziwny schemat wzmacniacza m.cz.
- 2025-05-27 Warszawa => Developer Microsoft Dynamics 365 Finance & Operations (D36
- 2025-05-27 obce wpływy