-
Path: news-archive.icm.edu.pl!news.rmf.pl!nf1.ipartners.pl!ipartners.pl!news2.ipartne
rs.pl!not-for-mail
From: "gosmo" <t...@m...pl>
Newsgroups: pl.comp.programming
Subject: Zaszyfrowane CAPICOMem, jak odszyfrować CryptoAPI?
Date: Tue, 8 Sep 2009 14:26:35 +0200
Organization: GTS Energis
Lines: 62
Message-ID: <h85ihs$1tj4$1@news2.ipartners.pl>
NNTP-Posting-Host: 194.0.167.4
X-Trace: news2.ipartners.pl 1252412796 63076 194.0.167.4 (8 Sep 2009 12:26:36 GMT)
X-Complaints-To: a...@i...pl
NNTP-Posting-Date: 8 Sep 2009 12:26:36 GMT
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5579
X-RFC2646: Format=Flowed; Original
X-Newsreader: Microsoft Outlook Express 6.00.2900.5843
X-MSMail-Priority: Normal
Xref: news-archive.icm.edu.pl pl.comp.programming:183425
[ ukryj 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
- Do czego nadaje się QDockWidget z bibl. Qt?
- Bibl. Qt jest sztucznie ograniczona - jest nieprzydatna do celów komercyjnych
- Co sciaga kretynow
- AEiC 2024 - Ada-Europe conference - Deadlines Approaching
- Jakie są dobre zasady programowania programów opartych na wtyczkach?
- sprawdzanie słów kluczowych dot. zła
- Re: W czym sie teraz pisze programy??
- Re: (PDF) Surgical Pathology of Non-neoplastic Gastrointestinal Diseases by Lizhi Zhang
- CfC 28th Ada-Europe Int. Conf. Reliable Software Technologies
- Młodzi programiści i tajna policja
- Ada 2022 Language Reference Manual to be Published by Springer
- Press Release - AEiC 2023, Ada-Europe Reliable Softw. Technol.
- Ada-Europe - AEiC 2023 early registration deadline approaching
- Ada-Europe Int.Conf. Reliable Software Technologies, AEiC 2023
- Ile cykli zajmuje mnożenie liczb 64-bitowych?
Najnowsze wątki
- 2024-05-25 supercap
- 2024-05-25 Sulzbach => Technischer Rollouter (d/m/w) <=
- 2024-05-25 Warszawa => Senior Account Manager <=
- 2024-05-25 Warszawa => Mid PHP Developer (Laravel) <=
- 2024-05-25 Warszawa => Mid PHP Developer (Laravel) <=
- 2024-05-25 Warszawa => Interactive/Experience Designer <=
- 2024-05-25 Warszawa => Key Account Manager <=
- 2024-05-25 Warszawa => SAP WM Consultant / Execution <=
- 2024-05-25 Warszawa => Key Account Manager <=
- 2024-05-25 Re: znów ten wrocław
- 2024-05-22 siad
- 2024-05-24 Re: Firma w stacji trafo
- 2024-05-24 Re: znów ten wrocław
- 2024-05-24 Re: znów ten wrocław [Policja,paralizator,zgon,Inowrocław]
- 2024-05-24 Chiński bestseller w Europie. Ford "martwi się nową konkurencją"