עמוד ראשי מירק סקריפטינג תוספים מצפין - Encoding

מצפין - Encoding

mIRC Addons - בפורום זה יפורסמו תוספים למירק שנועדו לשימוש יומיומי ולהרחבת המירק בפונקציות חדשות אשר לא מובנות. לפרסום תוספים יש לפרסמם תחילה בפורום "פרסום קודים ומדריכים" ולאחר מכאן הם יועברו לפורום זה.

Editor
משתמש רשום
מצפין - Encoding
הצטרף: 13 אוגוסט 2010, 12:44
הודעות: 41
פורסם: 13 אוקטובר 2012, 12:37
שם הקוד: 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
Main Editor
Server: irc.quakanet.org - Channel: #mIRCs
Automatically connect: irc://irc.quakenet.org/mIRCs

חזור אל תוספים