Correct delphi code to get the SSL finger print for google

This project received 4 bids from talented freelancers with an average bid price of $204 USD.

Get free quotes for a project like this
Employer working
Project Budget
Total Bids
Project Description

Hi all,

I have a source code of delphi (Attached) which retrieves the SSL finger print of any site correctly:
So if I enter [url removed, login to view] I get

The only issue I have with it is with [url removed, login to view] 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 [url removed, login to view] 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 [url removed, login to view] from Chrome and Firefox webbrowser

What is required from you :
1- Fix the code to give me correct SSL finger print for [url removed, login to view]
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 [url removed, login to view];
SSL: TIdSSLIOHandlerSocketOpenSSL;
i: Integer;
HTTPResponse, HostIP: string;

HTTP := [url removed, login to view](nil);
SSL := [url removed, login to view](nil);

[url removed, login to view] := sslvSSLv23; // set SSL version (ver 2 + 3)
[url removed, login to view] := [sslvSSLv2, sslvSSLv3, sslvTLSv1, sslvTLSv1_1,
[url removed, login to view] := [sslvrfPeer];
// set verifymode otherwise getting local ISP ssl finger print fails
[url removed, login to view] := IdSSLIOHandlerSocketOpenSSL1VerifyPeer;
// set onVerifyPeer event
[url removed, login to view] := 10 * 1000; // set connect timeout
[url removed, login to view] := 10 * 1000; // set read response timeout
[url removed, login to view] := SSL;
[url removed, login to view] := 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: [url removed, login to view]

EV SSL resources
Cool with source code
[url removed, login to view]

IDS OF EV from Fire fox
[url removed, login to view]

Ids from wiki
[url removed, login to view]

[url removed, login to view]
[url removed, login to view]

Looking to make some money?

  • Set your budget and the timeframe
  • Outline your proposal
  • Get paid for your work

Hire Freelancers who also bid on this project

    • Forbes
    • The New York Times
    • Time
    • Wall Street Journal
    • Times Online