机器码转换

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=../../../E/17292个精品ICO图标下载(最全的图标集合)(1)/17292个精品ICO图标下载(最全的图标集合)(1)/winxp/ball/Paint.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
HotKeySet("{F1}","F1")
HotKeySet("{F2}","F2")

While 1
 Sleep(100)
 WEnd
Func F1()
$vbp=ClipGet()
Send("^C")
Sleep(100)
$string=ClipGet()
$dbg=StringToBinary($string,4)
$dbg=StringMid($dbg,3)
;MsgBox(0,"",$dbg)
$wonder=_BIN($dbg)
ClipPut($wonder)
Send("^V")
ClipPut($vbp)
EndFunc

Func F2()
$vbp=ClipGet()
Send("^C")
Sleep(100)
$string=ClipGet()
$string=StringStripCR ($string)
$string=StringStripWS ( $string,8)
$dbg=BinaryToString("0x"&_stb($string),4)
ClipPut($dbg)
Send("^V")
ClipPut($vbp)
 EndFunc

 

 

Func _Stb($string)
 Local $mid
 For $i=1 To StringLen($string) Step 4
  Local $boo=StringMid($string,$i,4)
  Switch $boo
   Case "0000"
    $mid&="0"
   Case "0001"
    $mid&="1"
   Case "0010"
    $mid&="2"
   Case "0011"
    $mid&="3"
   Case "0100"
    $mid&="4"
   Case "0101"
    $mid&="5"
   Case "0110"
    $mid&="6"
   Case "0111"
    $mid&="7"
   Case "1000"
    $mid&="8"
   Case "1001"
    $mid&="9"
   Case "1010"
    $mid&="A"
   Case "1011"
    $mid&="B"
   Case "1100"
    $mid&="C"
   Case "1101"
    $mid&="D"
   Case "1110"
    $mid&="E"
   Case "1111"
    $mid&="F"
  EndSwitch
 Next
 Return $mid
 EndFunc

Func _BIN($string)
 Local $binarylw=""
 For $i=1 To StringLen($string)
  Switch StringMid($string,$i,1)
   Case "0"
    $binarylw&="0000"
   Case "1"
    $binarylw&="0001"
   Case "2"
    $binarylw&="0010"
   Case "3"
    $binarylw&="0011"
   Case "4"
    $binarylw&="0100"
   Case "5"
    $binarylw&="0101"
   Case "6"
    $binarylw&="0110"
   Case "7"
    $binarylw&="0111"
   Case "8"
    $binarylw&="1000"
   Case "9"
    $binarylw&="1001"
   Case "A"
    $binarylw&="1010"
   Case "B"
    $binarylw&="1011"
   Case "C"
    $binarylw&="1100"
   Case "D"
    $binarylw&="1101"
   Case "E"
    $binarylw&="1110"
   Case "F"
    $binarylw&="1111"
    EndSwitch
   Next
   Return $binarylw
 EndFunc