<html><head></head><body><div class="ydpadee9365yahoo-style-wrap" style="font-family:Helvetica Neue, Helvetica, Arial, sans-serif;font-size:16px;"><div></div>
<div><span style="color: rgb(38, 40, 42); font-size: 13px;">Le jeudi 25 juin 2020 à 14:48:05 UTC+2, Tobias Boege --- a écrit :</span><br></div></div><div id="ydp159f94d1yahoo_quoted_3921147915" class="ydp159f94d1yahoo_quoted"><div style="font-family:'Helvetica Neue', Helvetica, Arial, sans-serif;font-size:13px;color:#26282a;">
<div><br></div>
<div>On Thu, 25 Jun 2020, mtitouinfo--- via User wrote:<br></div><div dir="ltr" data-setdir="false"><div class="ydp159f94d1yqt8785658711" id="ydp159f94d1yqtfd80372"><br clear="none">> hellohow to translate this function, in native gambas, with component gb.openssl, without "Shell" ? thanks.<br clear="none">> gambas version: 3.14.3<br clear="none">> Private Function CramMD5(email As String, password As String, challenge As String) As String<br clear="none">> 'ok it works <br clear="none">> Dim token As String System.shell = "/bin/bash" Shell "awk '{print $NF}' < <(openssl dgst -hex -md5 -hmac " & password & " < <(openssl base64 -d <<<" & challenge & "))" To token token = Base64(Trim(email & " " & token))<br clear="none">> Return token End</div><br clear="none"> echo -n challenge | openssl dgst -binary -md5 -hmac passwd | base64<br clear="none"> > FaMyMCJdxjKw3+gJd96a+g==<br clear="none"><br clear="none"> Print Base64$(HMac("passwd", "challenge", "MD5"))<br clear="none"> > FaMyMCJdxjKw3+gJd96a+g==<br clear="none"><br clear="none">Note that your shell substitutions such as <<<"" may add newlines to your<br clear="none">data. I explicitly use `echo -n` here to show that the outputs can match<br clear="none">when you're careful enough about that.<br clear="none"><br clear="none">Regards,<br clear="none">Tobias<br clear="none">----------<br clear="none">hi Tobias</div><div dir="ltr" data-setdir="false"><br></div><div dir="ltr" data-setdir="false"><div><div>:~$ gbs3 -u 'gb.openssl' -e 'Print Base64$(HMac("passwd", "challenge", "MD5"))'</div><div>MMain.Main.5: #18: No return value</div><div>MMain.Main.5 </div><div dir="ltr" data-setdir="false"><div><div>:~$ gbs3 -u 'gb.openssl' -e 'Print Base64$(HMac("passwd", "challenge", "md5"))'</div><div>MMain.Main.5: #18: No return value</div><div>MMain.Main.5 </div></div></div><div>:~$ gbs3 -u 'gb.openssl' -e 'Print Base64$(HMac("passwd", "challenge"))'</div><div>sbW1+7EULk2FR6c8iJMKcIWUcAc=</div><div><br></div></div>packet broken ?</div><div dir="ltr" data-setdir="false"><br></div><div dir="ltr" data-setdir="false"><div><div>:~$ apt show gambas3-gb-openssl </div><div>Package: gambas3-gb-openssl</div><div>Version: 3.14.3+git6015.2a35dde+build5.a086335.13.3ac8a0c~ubuntu16.04.1</div><div>Priority: optional</div><div>Section: libdevel</div><div>Source: gambas3</div><div>Maintainer: Sebastian Kulesz <sebikul@gmail.com></div><div>Installed-Size: 34,8 kB</div><div>Depends: libc6 (>= 2.14), libssl1.0.0 (>= 1.0.0)</div><div>Download-Size: 12,0 kB</div><div>APT-Manual-Installed: yes</div><div>APT-Sources: http://ppa.launchpad.net/gambas-team/gambas3/ubuntu xenial/main amd64 Packages</div><div>Description: Gambas OpenSSL component</div><div><br></div></div>Bye. Titou.</div><div dir="ltr" data-setdir="false"><br></div><div dir="ltr" data-setdir="false"> </div>
</div>
</div></body></html>