AutoIt
#include <Array.au3> $base64 = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,a,b,c,d,e,f,g,h,i,"& _ "j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9,+,/" $base32 = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,2,3,4,5,6,7" $base16 = "0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F" $base8 = "0,1,2,3,4,5,6,7" $base2 = "0,1" $number = InputBox ( "Decimal Converter", "Enter a decimal number", "", "", -1, 100, -1, -1 ) $bin = _Base ( $number, $base2 ) $oct = _Base ( $number, $base8 ) $hex = _Base ( $number, $base16 ) $32 = _Base ( $number, $base32 ) $64 = _Base ( $number, $base64 ) $text = "Binary: "&$bin&" -> Dec: "& _Dec($bin, $base2)&@CRLF&@CRLF $text &= "Oct: "&$oct&" -> Dec: "& _Dec($oct, $base8)&@CRLF&@CRLF $text &= "Hex: "&$hex&" -> Dec: "& _Dec($hex, $base16)&@CRLF&@CRLF $text &= "Base 32: "&$32&" -> Dec: "& _Dec($32, $base32)&@CRLF&@CRLF $text &= "Base 64: "&$64&" -> Dec: "& _Dec($64, $base64) Msgbox ( 0, "Decimal Converter", $text ) ;=============================================================================== ; ; Function Name: _Base ; Description:: Convert a decimal number to any base ; Parameter(s): $iDecNumber - The decimal number to convert ; $sChar - Characters separated by commas ; Requirement(s): <Array.au3> ; Return Value(s): The converted number in the specified base. ; Author(s): Joke758 ; Note(s): $sChar should look like: "0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F" ; ;=============================================================================== Func _Base($iDecNumber, $sChar) Local $aBase = StringSplit ( $sChar, "," ) Local $iBase = $aBase[0] Local $iLen = Int ( Log($iDecNumber) / Log($iBase) )+1 Dim $iUnit[$iLen+1] Local $iReturn Local $iTemp = $iDecNumber If $aBase[0] <> $iBase Then SetError (1) Return -1 EndIf If $iDecNumber = 0 Then Return $aBase[1] For $i = 1 to $iLen For $i2 = 1 to $i-1 $iTemp = $iTemp/$iBase Next $iUnit[$i] = $aBase[Mod ( $iTemp, $iBase )+1] $iTemp = $iDecNumber Next For $i = 1 to $iLen $iReturn = $iUnit[$i] & $iReturn Next Return $iReturn EndFunc ;=============================================================================== ; ; Function Name: _Dec ; Description:: Convert a x number in a decimal number ; Parameter(s): $iNumber - The number to convert ; $sChar - Characters separated by commas ; Requirement(s): <Array.au3> ; Return Value(s): A decimal number ; Author(s): Joke758 ; Note(s): $sChar should look like: "0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F" ; ;=============================================================================== Func _Dec ( $iNumber, $sChar ) Local $iReturn Local $aBase = StringSplit ( $sChar, "," ) Local $iBase = $aBase[0] $iLen = StringLen ( $iNumber ) For $i = 0 to $iLen-1 $iTemp = StringMid ( $iNumber, $iLen-$i, 1 ) $iReturn = $iReturn + ($iBase^$i)*(_ArraySearch ( $aBase, $iTemp )-1) Next Return $iReturn EndFunc
