Correct delphi code to get the SSL finger print for google
$30-250 USD
In Bearbeitung
Veröffentlicht vor fast 11 Jahren
$30-250 USD
Bezahlt bei Lieferung
Hi all,
I have a source code of delphi (Attached) which retrieves the SSL finger print of any site correctly:
So if I enter [login to view URL] I get
F5:6B:F2:44:63:B0:BD:61:36:C5:E8:72:34:6B:32:04:28:FF:4D:7C
The only issue I have with it is with [login to view URL] I think the http component gets the page from the local ISP and reports wrong SSL as the following:
F4:69:4A:F2:CF:F8:46:95:35:A2:44:E5:F9:CE:6A:4E:8D:33:43:45 Wrong SSL for [login to view URL] From local ISP via Delphi
25:89:c1:70:6b:04:54:43:9f:28:fa:8f:3e:d3:7c:45:05:79:9b:c4 Correct SSL for [login to view URL] from Chrome and Firefox webbrowser
What is required from you :
1- Fix the code to give me correct SSL finger print for [login to view URL]
2- If the site queried is using ECDHE as key exchange mechanism this should be displayed on different edit box ( google is using it) or popup message. U can find this in chrome browser by checking the ssl information.
3- If site is using Extended Validation SSL this should be shown on a different edit box or popup message.
4- Currently the application uses Indy components from theVCL IdHTTP1 + IdSSLIOHandlerSocketOpenSSL1 I want it to be converted to native api code so I use native code no visual component like the following example:
================
procedure [login to view URL];
var
HTTP: TIdHTTP;
SSL: TIdSSLIOHandlerSocketOpenSSL;
i: Integer;
HTTPResponse, HostIP: string;
begin
HTTP := [login to view URL](nil);
SSL := [login to view URL](nil);
try
[login to view URL] := sslvSSLv23; // set SSL version (ver 2 + 3)
[login to view URL] := [sslvSSLv2, sslvSSLv3, sslvTLSv1, sslvTLSv1_1,
sslvTLSv1_2];
[login to view URL] := [sslvrfPeer];
// set verifymode otherwise getting local ISP ssl finger print fails
[login to view URL] := IdSSLIOHandlerSocketOpenSSL1VerifyPeer;
// set onVerifyPeer event
[login to view URL] := 10 * 1000; // set connect timeout
[login to view URL] := 10 * 1000; // set read response timeout
[login to view URL] := SSL;
[login to view URL] := True;
================
I will attach the code I have ... I will not accept the bit unless u show me a working exe that I will test more than once site on it to make sure it does what I want.
It should be fully commented so I can modify it they way I want.
I want a working application form + button + url input text box + ssl fingerprint on memo box.
Do not use any ActiveX use pure delphi code.
project should not take more than one day after acceptance.
Need ur support if I need to tweak the code
Additional resources:
Extended Validation SSL Example: [login to view URL]
EV SSL resources
Cool with source code
[login to view URL]
IDS OF EV from Fire fox
[login to view URL]
Ids from wiki
[login to view URL]
more:
[login to view URL]
[login to view URL]