Binary,hex,decimal

[Erik.]

Hi,

Does someone has a program where you can encrypt Binary,hex,decimal?

i want to use it for school.

[Don N]

could try this:

if u look in the help files, there is "_StringEncrypt.au3" this will encrypt strings so jsut put whatever data you want in a string and encrypt it that way.could try this maybe:

[Erik.]

Yeah okej but how to make a program that can calculate to Binary,hex,and decimal

i do not have any idea how to do.

[cdkid]

Well, I'm not sure on exactly how to calc bin2hex and bin2dec, but autoit has built in functions for hex2dec & dec2hex called Hex & Dec.

In closing: RTFM

~cdkid

[Erik.]

How to calculate whit it?

[SpookMeister]

Look in the help file for Hex() and Dec()

for Binary.. you will have to make your own (or at least I did whenever I was working with it)

[Don N]

is the question how to actually convert from bin2dec adn bin2hex from a math standpoint or jsut how to do it in autoit?

if ur still stuck tom i can up the code to do this stuff from my other computer

[Lapo]

How to calculate whit it?

I made this for personal use .. try it out (hex TO dec)

downloader.txt looks like :

[vMatch]

lippè=cippo

sn=0000000000

nono=*******

key=00

key=01 1C4D330F17D4C057 21/10/2004

key=02

key=03 1C4D330F17D4C057 02/02/2006

key=04

key=05

key=06

key=07

key=08 1C4DF60F17D4C057 15/12/2002

key=09 1C4DF60F22D4C057 08/09/2004

key=0a 1CA4F60F17D4C057 04/10/2004

key=0b BB4DF60F17D4C057 20/10/2004

key=0c 1C4D330F17D4C057 08/12/2004

key=0d 224DF60F17D4C057 23/06/2004

key=0e 1C4DF60F17D4C012 29/07/2004

key=0f 1C4DF60F17D4C057 04/03/2005

key=10

key=11

key=12

key=13 8AEAF8289B3330C0 02/02/2006

key=14

key=15

key=16

key=17

key=18

key=19

key=1a

key=1b

key=1c

key=1d

key=1e

key=1f

[hhhhhhhhhh]

xxxxx=yyyyyyyy

ecc

expandcollapse popup

$var = IniReadSection("Downloader.txt", "vMatch")
If @error Then 
    MsgBox(4096, "", "Mettimi nella cartella del DOWNLOADER.txt")
Else
   
        $a1=$var[7][1]; key 01
        MsgBox(0,"",$a1)
        $a2=$var[23][1]; key 13
        MsgBox(0,"",$a2)
        
EndIf
        
$a1x = StringSplit($a1," "); split solo key 01>>  key=  ********  data
    ;MsgBox(0,"",$a1x[2])
    $a2x = StringSplit($a2," "); split solo key 13



    $aa = _HexToDec($a1x[2])
;MsgBox(0,"",$aa)
    $aa2 = _HexToDec($a2x[2])


Func _HexToDec($strHex)
    Local $strChar, $aryHex, $i, $iDec, $Char, $file, $iOne, $iTwo ,$len
    $aryHex = StringSplit($strHex, ""); delimiter each caracter
;MsgBox(0,"",$aryHex[0]); 16 =lunghezza
;MsgBox(0,"",$aryHex[1]); each caracter
;MsgBox(0,"",$aryHex[2]); each caracter



    If Mod($aryHex[0], 2) <> 0 Then
        SetError(1)
        Return -1
    EndIf
    For $i = 1 To $aryHex[0]
        $iOne = $aryHex[$i]
        $i = $i + 1
        $iTwo = $aryHex[$i]
        $iDec = Dec($iOne & $iTwo)
        
    ;Msgbox(4096,"",$iDec);;;;;;;; BINGO
        
        If @error <> 0 Then
            SetError(1)
            Return -1
        EndIf
;;;;    $Char = Chr($iDec)
    $Char = $iDec
;;;;;;;;;;  Msgbox(4096,"",$Char)
    $Charx = StringLen($Char)
        if $Charx = "2" then $Char = "0"& $Char
        $strChar = $strChar & $Char & " "
;   Msgbox(4096,"",$Char)
    Next
    Return $strChar

EndFunc


    
    $file = FileOpen("keys.log", 2)
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
FileWrite($file, "        vMatch  vMatch  xxx_Keys"&@CRLF&@CRLF)
FileWrite($file, $a1x[1] &"     ")
FileWrite($file, $a1x[2] & "        ")
FileWrite($file,$a1x[3] &@CRLF&@CRLF)
FileWrite($file,$aa & @CRLF &@CRLF& @CRLF )

FileWrite($file, $a2x[1] &"     ")
FileWrite($file, $a2x[2] & "        ")
FileWrite($file,$a2x[3] &@CRLF&@CRLF)
FileWrite($file,$aa2)
FileClose($file)

Run("c:\windows\notepad.exe keys.log")

[Erik.]

lol, made nice.

Thanks for the help!