home *** CD-ROM | disk | FTP | other *** search
/ Hackers Toolkit v2.0 / Hackers_Toolkit_v2.0.iso / HTML / archive / IRC / decode.irc < prev    next >
Text File  |  1999-11-04  |  6KB  |  227 lines
  1.  
  2. ^set novice off
  3. ^set exec_protection off
  4. clear
  5. echo *** Loading Global Decryption Script
  6. echo *** Mail unsupported encryptions to zoro@tddbox.alfredtech.edu
  7.  
  8. alias newenc @ function_return = [$encode($flip($encode($0-)))]
  9. alias newdec @ function_return = [$decode($flip($decode($0-)))]
  10. alias olddec @ function_return = [$decode($decode($0-))]
  11. alias oldenc @ function_return = [$encode($encode($0-))]
  12.  
  13. alias flip {
  14.  @ str = [ $*]
  15.  @ str.end = [$@str]
  16.  @ rev.str = []
  17.  while (str.end > 0) {
  18.   @ rev.str = [$rev.str]##[$mid($str.end 1 $str)]
  19.   @ str.end = str.end - 1
  20.  }
  21.  @ function_return = [$rev.str]
  22.  ^assign -str;^assign -rev.str;^assign -str.end
  23. }
  24. # LCM v1.0 - Encoding and decoding of messages. by SrFrog based on MORSE
  25. @ lcm.in = [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890./,]
  26. @ lcm.out =[zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/98765432.01,]
  27. @ lcmflg = [DEF]
  28.  
  29. alias lcmn @ function_return = [$encode($flip($clean($0-)))]
  30. alias lcm {
  31.  @ line = [$*]
  32.  @ len = [$@line]
  33.  @ new = []
  34.  @ cnt = 0
  35.  while (cnt <= len) {
  36.    @ ind = index($mid($cnt 1 $line) $lcm.in)
  37.    if (ind > -1)
  38.     {@ new = new ## mid($ind 1 $lcm.out)}
  39.     {@ new = new ## mid($cnt 1 $line)}
  40.    @ cnt = cnt + 1
  41.  }
  42.  @ function_return = [$new]
  43.  ^assign -cnt ;^assign -new ;^assign -ind ;^assign -line;^assign -len
  44. }
  45.  
  46. ### venom.irc
  47.  
  48. alias rem_v {
  49. @ _pattern = rmatch($0 $1-) - 1
  50. if (_pattern != -1) {@ function_return = notv($_pattern $1-)}
  51. {@ function_return = [$1-]}
  52. }
  53. alias notv {
  54. if ([$0]) {@ _pad = [ ]}
  55. {@ _pad = []}
  56. @ _words = [$1-]
  57. @ function_return = [$leftw($0 $1-)] ## [$_pad] ## [$restw(${[$0]+1} $1-)]
  58. }
  59. alias leftw {@ function_return = [$(1-$0)]}
  60. alias restw {@ function_return = [$(${[$0]+1}-)]}
  61.  
  62. @ venomcode.in = [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890./,]
  63. @ venomcode.out = [DEFGHIJKLMNOPQRSTUVWXYZABCxyzabcdefghijklmnopqrstuvw214365,/09.87]
  64. alias venomcode {
  65.     @ r3.line = [$*]
  66.     @ r3.len = @r3.line
  67.     @ r3.new = []
  68.     @ r3.cnt = 0
  69.     while (r3.cnt < r3.len)
  70.     {
  71.         @ r3.ind = index($mid($r3.cnt 1 $r3.line) $venomcode.in)
  72.         if (r3.ind > -1)
  73.         {
  74.             @r3.new = r3.new ## mid($r3.ind 1 $venomcode.out)
  75.         }
  76.         {
  77.             @r3.new = r3.new ## mid($r3.cnt 1 $r3.line)
  78.         }
  79.         @r3.cnt = r3.cnt + 1
  80.     }
  81.     @ function_return = r3.new
  82.     ^assign -r3.cnt ;^assign -r3.new ;^assign -r3.ind ;^assign -r3.line
  83.     ^assign -r3.len
  84. }
  85. ### end venom.irc
  86.  
  87. ### dismorse.irc
  88. @ discus.in = [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890./,]
  89. @ discus.out = [DEFGHIJKLMNOPQRSTUVWXYZABCxyzabcdefghijklmnopqrstuvw214365,/09.87]
  90. alias discus {
  91.     @ r3.line = [$*]
  92.     @ r3.len = @r3.line
  93.     @ r3.new = []
  94.     @ r3.cnt = 0
  95.     while (r3.cnt < r3.len)
  96.     {
  97.         @ r3.ind = index($mid($r3.cnt 1 $r3.line) $discus.in)
  98.         if (r3.ind > -1)
  99.         {
  100.             @r3.new = r3.new ## mid($r3.ind 1 $discus.out)
  101.         }
  102.         {
  103.             @r3.new = r3.new ## mid($r3.cnt 1 $r3.line)
  104.         }
  105.         @r3.cnt = r3.cnt + 1
  106.     }
  107.     @ function_return = r3.new
  108.     ^assign -r3.cnt ;^assign -r3.new ;^assign -r3.ind ;^assign -r3.line
  109.     ^assign -r3.len
  110. }
  111.  
  112. echo  - Aliases & Assignments
  113. sleep 1
  114.  
  115. alias lice {
  116.  /echo *E* LiCe: $0-
  117.  /eval quote PRIVMSG $newch :  $encode($flip($0-))
  118. }
  119.  
  120. ^on ^public "* *  *" {
  121.  ^assign type LiCe Script 
  122.  /echo *** $type
  123.  /eval echo <$0\> $flip($clean($decode($3)))
  124. }
  125. echo  - LiCe Decryption Loaded
  126. sleep 1  
  127.  
  128. alias night {
  129.  /echo *E* Night: $0-
  130.  /eval quote PRIVMSG $newch :<N> $encode($0-) <N>
  131. }
  132. ^on ^public "* * <N>*" {
  133.  ^assign code $decode($3)
  134.  ^assign type Night Script
  135.  /echo *** $type 
  136.  /eval echo <$0\> $code
  137. }
  138. echo  - Night Decryption Loaded
  139. sleep 1
  140.  
  141. alias sec1 {
  142.  /echo *E* MegaFred(new): $0-
  143.  /eval quote PRIVMSG $newch :[ENCRYPTED] $newenc($0-)
  144. }
  145. ^on ^PUBLIC "% % [ENCRYPTED]*" {
  146.  ^assign code $newdec($3)
  147.  ^assign type MegaFred Script (new)
  148.  /echo *** $type
  149.  /eval echo <$0\> $code
  150. }
  151. echo  - MegaFred Decryption "A" Loaded
  152. sleep 1
  153.  
  154. alias sec2 {
  155.  /echo *E* MegaFred(old): $0-
  156.  /eval quote PRIVMSG $newch :[ENCRYPTED] $oldenc($0-)
  157. }
  158. ^on ^PUBLIC "% % [ENCRYPTED]*" {
  159.  ^assign code $olddec($3)
  160.  ^assign type MegaFred Script (old)
  161.  /echo *** $type
  162.  /eval echo <$0\> $code
  163. }
  164. echo  - MegaFred Decryption "B" Loaded
  165. sleep 1
  166.  
  167. alias tbox {
  168.  /echo *E* TextBox: $0-
  169.  /eval quote PRIVMSG $newch :$encode($0-)" fA -+ TEXT +-
  170. }
  171. ^on ^PUBLIC "% % * ?? -+ TEXT +-" {
  172.  ^assign code $decode($strip(: $left($index(" $2-) $2-)))
  173.  ^assign type TextBox Script
  174.  /echo *** $type
  175.  /eval echo <$0\> $code
  176. }
  177. echo  - TextBox Decryption Loaded
  178. sleep 1
  179.  
  180. alias venom {
  181.  /echo *E* VeNoM: $0-
  182.  /eval quote PRIVMSG $newch :$venomcode($0-) -<!VeNoM!>-
  183. }
  184. ^on ^public "% % *-<!VeNoM!>-" {
  185.  ^assign type VeNoM Script
  186.  /echo *** $type
  187.   @ mystr = [$2-]
  188.   @ newstr = [$(${2 ## [-] ## mystr})]
  189.   @ newstr = [$rem_v(-<!VeNoM!>- $newstr)]
  190.   echo <$0\> $venomcode($newstr)
  191. }
  192. echo  - VeNoM Decryption Loaded
  193. sleep 1
  194.  
  195. alias discus {
  196.  /echo *E* DiSCUSS: $0-
  197.  /eval quote PRIVMSG $newch :$discus($0-) - DiSCUS -
  198. }
  199. ^on ^PUBLIC "% % *- DiSCUS -" {
  200.  @ mystr = [$2-]
  201.  @ newstr = [$(${2 ## [-] ## mystr})]
  202.  ^assign code $discus($newstr)
  203.  ^assign type DiSCUS Script
  204.  /echo *** $type
  205.  /eval echo <$0\> $code
  206. }
  207. echo  - DiSCUS Decryption Loaded
  208. sleep 1
  209.  
  210. alias dhelp {
  211. /echo ********* COMMAND HELP *************
  212. /echo /NIGHT  <message> - Night Encryption
  213. /echo /SEC1   <message> - MegaFred(new) Encryption
  214. /echo /SEC2   <message> - MegaFred(old) Encryption
  215. /echo /TBOX   <message> - TextBox Encryption
  216. /echo /VENOM  <message> - VeNoM Encryption
  217. /echo /DISCUS <message> - DiSCUS Encryption
  218. /echo -------------------------------------
  219. }
  220. echo *** Finished Loading../DHELP for CMDS
  221. ^eval assign oldch $C
  222. ^eval assign newch $C\
  223. ^eval join $newch
  224. ^eval mode $newch +nst
  225. ^eval mode $newch -o $N
  226. /eval join $oldch
  227. on ^join "* $newch" /eval echo *** $0 Has loaded DeCODE Script