Advertisement
SReject

Challenge - $numbers Results

Oct 10th, 2016
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 1.85 KB | None | 0 0
  1. ;; ENCODE ENTRIES
  2. ;; ==============
  3. ;; Saturn - Quakenet - 36 bytes
  4. ;;     The $hmac contains \x2F\x03\x14
  5. alias numbers return $or($hmac(/))
  6.  
  7. ;; Spling - SwiftIRC - 43 bytes
  8. ;;     First $asc contains:  \u3490
  9. ;;     Second $asc contains: \u5135
  10. alias numbers return $asc() $+ $asc()
  11.  
  12. ;; pball - Forums - 43 bytes
  13. ;;     First $asc contains:  \u4F79
  14. ;;     Second $asc contains: \u4195
  15. alias numbers return $asc() $+ $asc()
  16.  
  17. ;; Wims - SwiftIRC - 43 bytes
  18. ;;    First $asc contains:  \u3034
  19. ;;    Second $asc contains: \uDDD5
  20. ;;       the character is a unicode lower serrogate and requires some fanagling
  21. alias numbers return $asc() $+ $asc(򅐩)
  22.  
  23. ;; NiLon - QuakeNet - 45 bytes
  24. alias numbers return $decode(*.#`R-#$U-SDS-@)
  25.  
  26. ;; Dazuz - Forums - 48 bytes
  27. alias numbers return $decode(OTgzNzYyNTQxMA==,m)
  28.  
  29. ;; SReject - self - 51 bytes
  30. ;;     First $asc contains:  \u04D2
  31. ;;     Second $asc contains: \u0237
  32. ;;     Third $asc contains:  \u037A
  33. alias numbers return $+($asc(Ӓ),$asc(ȷ),$asc(ͺ))
  34.  
  35. ;; bindi - Quakenet - 53 bytes
  36. alias numbers return $base(NHOKIA,$asc(##),$asc($lf))
  37.  
  38. ;; Westor - SwiftIRC - 139 bytes
  39. alias numbers return $+($len(),$cos(q),$len(we),$len(wes),$len(west),$len(westo),$len(westor),$len(westor!),$len(westor!@),$len(westor!@#))
  40.  
  41.  
  42.  
  43. ;; NON ENCODE ENTRIES
  44. ;; ==================
  45. ;; Saturn - QuakeNet - 48 bytes
  46. alias numbers return $hash($~ $remote $cr,$bits)
  47.  
  48. ;; Wims - SwiftIRC - 71 bytes
  49. alias numbers return $regsubex($readn $pi,/(?<a>\d)(?=.*\k<a>)|[. ]/g,)
  50.  
  51. ;; Dazuz - forums - 74 bytes
  52. alias numbers while ($len(%r) < $asc($lf)) %r = %r $+ $ifmatch | return %r
  53.  
  54. ;; NiLon - QuakeNet - 75 bytes
  55. alias numbers return $regsubex($hmac($cid),/\D+|(\d)(?=.*?\ $+ $cid )/gx,)
  56.  
  57. ;; pball - forums - 92 bytes
  58. alias numbers { while ($len(%x) < $len(a) $+ $len()) { var %x %x $+ $len(%x) } | return %x }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement