haskell - How to get a SHA-1 digest of a X509 certificate with HsOpenSSL? -

-

i'm writing web server accepts ssl connections , calculate sha-1 hash of client certificates:

import openssl (withopenssl) import openssl.session ssl import openssl.x509 x509 import openssl.evp.digest evp  sslstuff :: ssl.ssl -> io string sslstuff ssl = withopenssl $   x509   <- liftm fromjust $ ssl.getpeercertificate ssl   issuer <- x509.getissuername x509 false   subj   <- x509.getsubjectname x509 false   putstrln $ "\tsubject: " ++show subj   putstrln $ "\tissuer: " ++show issuer   dg <- liftm fromjust $ evp.getdigestbyname "sha1"   cert <- x509.printx509 x509   putstrln cert   let s = evp.digest dg cert   putstrln $ "after digest: "++s   return s

i certificate, digest 15 bytes long instead of 20. i'm not sure correctly convert cert string before passing evp.digest. please give me example of how right way?

i not know haskell. following code might you.

x509 * x509; char sha1dig[sha1_digest_length]; /*get x509 certificate in x509*/  //call x509_check_purpose set sha1 hash. x509_check_purpose (x509, -1, 0);  //get sha1 hash buffer. use x509->sha1_hash memcpy(sha1dig, x509->sha1_hash, sha1_digest_length);

i believe comments convert program convert haskell.


Comments

Post a Comment

Popular posts from this blog

java - Run a .jar on Heroku -

-
i trying run .jar file on heroku, , can't find instructions anywhere on how this. have read wants me compile uploading heroku. possible, , if is, how this? if helps, trying run minecraft craftbukkit server, , don't have pom.xml file yet. you didn't provide details i'll try give , people reaches question way it. first of all, create heroku account , create heroku application (assumed have done that). second, need generate application jar , upload heroku. so, open terminal , install heroku cli (assuming unix terminal): $ sudo npm install -g heroku-cli you need have npm , nodejs installed, can check link: https://www.digitalocean.com/community/tutorials/how-to-install-node-js-on-ubuntu-16-04 once done that, can use npm update node version acceptable heroku-cli: $ sudo npm install -g n $ sudo n 7.10.0 and run: $ sudo npm install -g heroku-cli in order deploy jars, need install deploy plugin: $ sudo heroku plugins:install heroku-cli-deploy ...
Read more

java - Jtable duplicate Rows -

-
Image
when add new rows in jtable duplicate rows many times this method update jtable public final void tableaucomande(){ ((defaulttablemodel)tabcommande.getmodel()).getdatavector().clear(); session s=hibernateutil.getsessionfactory().opensession(); criteria cr1= s.createcriteria(commande.class); list <commande> lcs=cr1.list() ; criteria cr2= s.createcriteria(lignecommande.class); list <lignecommande> lck=cr2.list() ; if(lcs.size()!=0 && lck.size()!=0) { (commande lc:lcs) { for(lignecommande lig:lck){ ((defaulttablemodel)tabcommande.getmodel()).addrow(new object[]{ lc.getid_cmd(),lc.getnumcmd(),lc.getdate_cmd(),lc.getclient().getnomprenom(), lig.getproduit().getlib_prd(),lig.getquantite(),lig.getproduit().getid_prd() }); } } // tabcommande.setrowselectioninterval(tabcommande.getrowcount()-1,tabcommande.getrowcount()-1); } } this code add add data rows displaye...
Read more

validation - How to pass paramaters like unix into windows batch file -

-
i need pass various parameters .cmd file unix format file.cmd -configuration=value -source=value -flag but, try this: startlocal @echo off cls setlocal set cmdline=%* set configuration= set source= set badargs= set validation= goto main :splitargs echo splitargs(%*) if "%*" neq "" ( /f "tokens=1,2,* delims== " %%i in ("%*") call :assignkeyvalue %%i %%j & call :splitargs %%k ) goto :eof :assignkeyvalue echo assignkeyvalue(%1, %2) if /i %1==-configuration ( set configuration=%2 ) else if /i %1==-source ( set source=%2 ) else ( rem append unrecognised [key,value] badargs echo unknown key %1 set badargs=%badargs%[%1, %2] ) goto :eof :validate echo validating set validation=fail if defined configuration ( echo -configuration ok if defined source ( echo -source ok if not defined badargs ( set validation=success ) ) ) goto :eof :main cl...
Read more