/packages/openssl/examples/test1.pas

https://github.com/slibre/freepascal · Pascal · 14 lines · 9 code · 4 blank · 1 comment · 1 complexity · ad42e809bc42744c76393624318760b0 MD5 · raw file 

    

  1. program test1;
    2. 

  2. 

  3. {$mode objfpc}{$H+}
    4. 

  4. 

  5. uses
    6. 

  6.   OpenSSL;
    7. 

  7. 

  8. begin
    9. 

  9.   if InitSSLInterface then
    10. 

  10.     Writeln('Success')
    11. 

  11.   else
    12. 

  12.     Writeln('Holy shit!');
    13. 

  13. end.
    14.