$regVal = readvalue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer TrayNotify","IconStreams") + readvalue("HKCU\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify","IconStreams")

messagebox(RegBinaryToString($regval),"",0)
get $

function RegBinaryToString($values)
   $strInfo = ""
   for $i=1 to Len($values) step 2
      $value = SubStr($values,$i,2)
      if $value<>0
         $strInfo=$strInfo + rot13(chr(Val("&"+$value)))
      endif
   next  
   $RegBinaryToString=$strInfo
EndFunction

;Function	Rot13()
;
;Author		AJH (Andrew Hayes)
;
;Action		Rot13 is an encryption method based on a Ceaser Cypher.
;		Text is encrypted by shifting it half the alphabet forwards
;		or backwards (dependant on which half of the alphabet it
;		is in). This means that the same Rot13 operation is used
;		to encrypt and decrypt the text.
;
;Syntax		$text = Rot13(<String> | <String Array>)
;
;Parameters 	One parameter, either a string or a string array.
;
;Remarks	Guvf vf n dhvpx ohg vafrpher grpuavdhr gung vf znvayl hfrq
;		gb uvqr uvagf be fcbvyref va grkg cbfgrq gb zrffntr obneqf
;		fb gubfr jub qb abg jnag gb ernq gurz pna nibvq qbvat fb.
;
;Returns	Encrypted / Decrypted String or String array.
;
;Requires 	Kixtart 4.10+
;
;Example(s)	$murderer = Rot13("Gur Ohgyre qvq vg!")
;
;Source
FUNCTION Rot13($s)
DIM $i,$c, $o,$u
$o=SetOption("CaseSensitivity","Off")
$u = (Ubound($s) >=0)
IF $u  $s=Join($s,@CRLF)  ENDIF
FOR $i = 1 TO Len($s)
  $c = Substr($s,$i,1)
  SELECT
    CASE $c >= 'a' AND $c <= 'm'
      $c = Chr(Asc($c)+13)
    CASE $c >= 'n' AND $c <= 'z'
      $c = Chr(Asc($c)-13)
  ENDSELECT
  $Rot13 = $Rot13+$c
NEXT
IF $u  $Rot13 = Split($Rot13,@CRLF)  ENDIF
$o=SetOption("CaseSensitivity",$o)
ENDFUNCTION