Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;; ENCODE ENTRIES
- ;; ==============
- ;; Saturn - Quakenet - 36 bytes
- ;; The $hmac contains \x2F\x03\x14
- alias numbers return $or($hmac(/))
- ;; Spling - SwiftIRC - 43 bytes
- ;; First $asc contains: \u3490
- ;; Second $asc contains: \u5135
- alias numbers return $asc(㒐) $+ $asc(儵)
- ;; pball - Forums - 43 bytes
- ;; First $asc contains: \u4F79
- ;; Second $asc contains: \u4195
- alias numbers return $asc(佹) $+ $asc(䆕)
- ;; Wims - SwiftIRC - 43 bytes
- ;; First $asc contains: \u3034
- ;; Second $asc contains: \uDDD5
- ;; the character is a unicode lower serrogate and requires some fanagling
- alias numbers return $asc(〴) $+ $asc()
- ;; NiLon - QuakeNet - 45 bytes
- alias numbers return $decode(*.#`R-#$U-SDS-@)
- ;; Dazuz - Forums - 48 bytes
- alias numbers return $decode(OTgzNzYyNTQxMA==,m)
- ;; SReject - self - 51 bytes
- ;; First $asc contains: \u04D2
- ;; Second $asc contains: \u0237
- ;; Third $asc contains: \u037A
- alias numbers return $+($asc(Ӓ),$asc(ȷ),$asc(ͺ))
- ;; bindi - Quakenet - 53 bytes
- alias numbers return $base(NHOKIA,$asc(##),$asc($lf))
- ;; Westor - SwiftIRC - 139 bytes
- alias numbers return $+($len(),$cos(q),$len(we),$len(wes),$len(west),$len(westo),$len(westor),$len(westor!),$len(westor!@),$len(westor!@#))
- ;; NON ENCODE ENTRIES
- ;; ==================
- ;; Saturn - QuakeNet - 48 bytes
- alias numbers return $hash($~ $remote $cr,$bits)
- ;; Wims - SwiftIRC - 71 bytes
- alias numbers return $regsubex($readn $pi,/(?<a>\d)(?=.*\k<a>)|[. ]/g,)
- ;; Dazuz - forums - 74 bytes
- alias numbers while ($len(%r) < $asc($lf)) %r = %r $+ $ifmatch | return %r
- ;; NiLon - QuakeNet - 75 bytes
- alias numbers return $regsubex($hmac($cid),/\D+|(\d)(?=.*?\ $+ $cid )/gx,)
- ;; pball - forums - 92 bytes
- 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