<div dir="ltr">Hi, all,<div><br></div><div>   For some reason i have to decrypt a message that is encrypted using 3DES algorithm, and I've PHP function example how to decrypt the message:</div><div><br></div><div><div><span class="Apple-tab-span" style="white-space:pre">     </span>public  function decrypt($value) {</div><div><span class="Apple-tab-span" style="white-space:pre">          </span>$td = mcrypt_module_open ( MCRYPT_3DES, '', MCRYPT_MODE_ECB, '' );</div><div><span class="Apple-tab-span" style="white-space:pre">           </span>mcrypt_generic_init ( $td, $this->key,$this->iv );</div><div><span class="Apple-tab-span" style="white-space:pre">             </span>$ret = trim ( mdecrypt_generic ( $td, base64_decode ( $value ) ) );</div><div><span class="Apple-tab-span" style="white-space:pre">          </span>$ret = $this->UnPaddingPKCS7 ( $ret );</div><div><span class="Apple-tab-span" style="white-space:pre">            </span>mcrypt_generic_deinit ( $td );</div><div><span class="Apple-tab-span" style="white-space:pre">               </span>mcrypt_module_close ( $td );</div><div><span class="Apple-tab-span" style="white-space:pre">         </span>return $ret;</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>}</div><div><span class="Apple-tab-span" style="white-space:pre">    </span> </div><div><span class="Apple-tab-span" style="white-space:pre">   </span> </div><div><span class="Apple-tab-span" style="white-space:pre">   </span>private  function UnPaddingPKCS7($data) {</div><div><span class="Apple-tab-span" style="white-space:pre">           </span>$padlen = ord (substr($data, (strlen( $data )-1), 1 ) );</div><div><span class="Apple-tab-span" style="white-space:pre">             </span>if ($padlen > 8 )</div><div><span class="Apple-tab-span" style="white-space:pre">                 </span>return $data;</div><div><span class="Apple-tab-span" style="white-space:pre">        </span> </div><div><span class="Apple-tab-span" style="white-space:pre">           </span>for($i = -1*($padlen-strlen($data)); $i < strlen ( $data ); $i ++) {</div><div><span class="Apple-tab-span" style="white-space:pre">                      </span>if (ord ( substr ( $data, $i, 1 ) ) != $padlen)return false;</div><div><span class="Apple-tab-span" style="white-space:pre">         </span>}</div><div><span class="Apple-tab-span" style="white-space:pre">    </span> </div><div><span class="Apple-tab-span" style="white-space:pre">           </span>return substr ( $data, 0, -1*($padlen-strlen ( $data ) ) );</div><div><span class="Apple-tab-span" style="white-space:pre">  </span>}</div></div><div><br></div><div>   I googled and read crypto module document for a couple hours, and got no idea how to translate these two functions into erlang.</div><div><br></div><div>   Any ideas?</div><div><br></div><div><br></div><div>   Thanks, </div><div>    Xiaobin</div><div><br></div></div>