Code : Tout sélectionner
$Num="89304402523905652748447801781"
$result=Mod($Num,97)
$recup=StringSplit ($result,"")
$math=Number ($recup [1]&"-"&$recup [2])
$key=Number ($result&"+"&$math)
MsgBox (0,"",$result)
MsgBox (0,"",$key)
MsgBox (0,"",$math)
Code : Tout sélectionner
$Num="89304402523905652748447801781"
$result=Mod($Num,97)
$recup=StringSplit ($result,"")
$math=Number ($recup [1]&"-"&$recup [2])
$key=Number ($result&"+"&$math)
MsgBox (0,"",$result)
MsgBox (0,"",$key)
MsgBox (0,"",$math)
Code : Tout sélectionner
#include "..\include\BigNum.au3"
Local $sNum = "89304402523905652748447801781"
Local $iResult = Int(_BigNum_Mod($sNum, "97"))
Local $iMath = Int($iResult / 10) - Mod($iResult, 10)
Local $iKey = $iResult + $iMath
MsgBox(0, "", $iResult)
MsgBox(0, "", $iMath)
MsgBox(0, "", $iKey)