מצפין - Encoding

[Editor]

שם הקוד: Encoding
יוצר: XeRap` & Ocean
גרסה: 1.0
תיאור: מצפין
הפעלה: כנסו למירק ולחצו במקלדת ALT + R, לחצו למעלה בצד שמאל File ואז New, תעתיקו את הסקריפט ותאשרו.

קוד: בחר הכל

dialog ced {
  title "Encoding (By XeRap` & Ocean`) [/ced]"
  size -1 -1 168 111
  option dbu notheme
  box "text", 1, 1 1 135 23
  edit "", 2, 3 8 91 13, autohs
  button "enter", 3, 96 8 37 12
  box "decode", 4, 1 26 82 71
  list 5, 4 33 76 61, size
  box "chr", 6, 84 26 82 71
  list 7, 87 33 76 61, size
  radio "decode", 8, 137 6 32 7
  radio "chr", 9, 137 15 32 7
  text "Use Double-Click For Copy", 10, 48 99 69 8
}
alias ced { dialog $iif(!$dialog(ced),-m,-x) ced ced }
on *:dialog:ced:init:*: {
  if (%ced.stat == chr) { did -c $dname 9 } 
  elseif (%ced.stat !== chr) { did -c $dname 8 | set %ced.stat decode }
}
on *:dialog:ced:dclick:7: { editbox -a $did($dname,7).seltext | clipboard $did($dname,7).seltext }
on *:dialog:ced:dclick:5: { editbox -a $+($chr(36),$chr(100),$chr(101),$chr(99),$chr(111),$chr(100),$chr(101)) $+ ( $+ $did($dname,5).seltext $+ ,m) | clipboard $+($chr(36),$chr(100),$chr(101),$chr(99),$chr(111),$chr(100),$chr(101)) $+ ( $+ $did($dname,5).seltext $+ ,m) }
on *:dialog:ced:sclick:*: {
  if ($did == 8) { set %ced.stat decode }
  if ($did == 9) { set %ced.stat chr }
  if ($did == 3) {
    if ($did($dname,2) != $null) {
      if (%ced.stat == chr) {
        var %a = 1
        while (%a <= $len($did($dname,2))) {
          var %b = %b $+ $ $+ chr( $+ $asc($right($left($did($dname,2),%a),1)) $+ ) $+ , $+
          inc %a
        }
        did -a $dname 7 $ $+ +( $+ $mid(%b,1,$calc($len(%b) - 1)) $+ )
      }
      if (%ced.stat == decode) {
        var %x $encode($did($dname,2),m) | var %i $regsubex(%x,/\x29/g,$chr(32) $!+ $!chr(41) $!+ $chr(32))
        var %i %i | var %u $regsubex(%i,/\x2C/g,$chr(32) $!+ $!chr(44) $!+ $chr(32))
        var %u %u | var %t $regsubex(%u,/\x28/g,$chr(32) $!+ $!chr(40) $!+ $chr(32))
        did -a $dname 5 %t
      } 
    }
  }
}
menu status,channel {
  Encoding: ced
}

יש למצוא גם: pastebin.php?mode=view&s=31