home *** CD-ROM | disk | FTP | other *** search
/ Hackers Toolkit 2.0 / Hackers_Toolkit_v2.0.iso / HTML / archive / IRC / 2600crypt.irc next >
Encoding:
Text File  |  1999-11-04  |  17.5 KB  |  608 lines
  1. ############################################################################
  2. #
  3. # This is a script which decrypts most, if not all, other encryption schemes
  4. # Found in IRC scripts.  Most of this done by MegaFred, with mucho help from
  5. # zoro-a.  I tried to keep this as commented as possible, just lemme know if
  6. # you rip any of my code so I can hurt you.
  7. #
  8. # MegaFred
  9. #
  10. ############################################################################
  11.  
  12. @ cryptver = [v2.3]
  13.  
  14. @ TXTDECODE = [ON]
  15. @ NITEDECODE = [ON]
  16. @ NEWDECODE = [ON]
  17. @ OLDDECODE = [ON]
  18. @ DLCMDECODE = [ON]
  19. @ PLCMDECODE = [ON]
  20. @ DISDECODE = [ON]
  21. @ VENDECODE = [ON]
  22.  
  23. @ lcm.in = [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890./,]
  24. @ lcm.out =[zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/98765432.01,]
  25.  
  26. @ venomcode.in = [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890./,]
  27. @ venomcode.out = [DEFGHIJKLMNOPQRSTUVWXYZABCxyzabcdefghijklmnopqrstuvw214365,/09.87]
  28. @ discus.in = [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890./,]
  29. @ discus.out = [DEFGHIJKLMNOPQRSTUVWXYZABCxyzabcdefghijklmnopqrstuvw214365,/09.87]
  30.  
  31. alias qsend {
  32.  quote PRIVMSG $0 :$1-
  33. }
  34.  
  35. alias usecho {
  36.  ^xecho -window Main *** [26CRYPT00] USAGE: $*
  37. }
  38.  
  39. alias cecho {
  40.  ^xecho -window Main *** [26CRYPT00] $*
  41. }
  42.  
  43. alias cxecho {
  44.  ^xecho -window Crypt [26CRYPT00] $*
  45. }
  46.  
  47. alias flip {
  48.  @ str = [ $*]
  49.  @ str.end = [$@str]
  50.  @ rev.str = []
  51.  while (str.end > 0) {
  52.   @ rev.str = [$rev.str]##[$mid($str.end 1 $str)]
  53.   @ str.end = str.end - 1
  54.  }
  55.  @ function_return = [$rev.str]
  56.  ^assign -str;^assign -rev.str;^assign -str.end
  57. }
  58.  
  59. alias lcm {
  60.  @ line = [$*]
  61.  @ len = [$@line]
  62.  @ new = []
  63.  @ cnt = 0
  64.  while (cnt <= len) {
  65.    @ ind = index($mid($cnt 1 $line) $lcm.in)
  66.    if (ind > -1)
  67.     {@ new = new ## mid($ind 1 $lcm.out)}
  68.     {@ new = new ## mid($cnt 1 $line)}
  69.    @ cnt = cnt + 1
  70.  }
  71.  @ function_return = [$new]
  72.  ^assign -cnt ;^assign -new ;^assign -ind ;^assign -line;^assign -len
  73. }
  74.  
  75. alias discus {
  76.  @ r3.line = [$*]
  77.  @ r3.len = @r3.line
  78.  @ r3.new = []
  79.  @ r3.cnt = 0
  80.  while (r3.cnt < r3.len)
  81.   {
  82.    @ r3.ind = index($mid($r3.cnt 1 $r3.line) $discus.in)
  83.    if (r3.ind > -1) {
  84.     @r3.new = r3.new ## mid($r3.ind 1 $discus.out)
  85.     }{
  86.     @r3.new = r3.new ## mid($r3.cnt 1 $r3.line)
  87.    }
  88.    @r3.cnt = r3.cnt + 1
  89.   }
  90.  @ function_return = r3.new
  91.  ^assign -r3.cnt ;^assign -r3.new ;^assign -r3.ind ;^assign -r3.line
  92.  ^assign -r3.len
  93. }
  94.  
  95. alias venomcode {
  96.  @ r3.line = [$*]
  97.  @ r3.len = @r3.line
  98.  @ r3.new = []
  99.  @ r3.cnt = 0
  100.  while (r3.cnt < r3.len)
  101.   {
  102.    @ r3.ind = index($mid($r3.cnt 1 $r3.line) $venomcode.in)
  103.    if (r3.ind > -1)
  104.     {
  105.      @r3.new = r3.new ## mid($r3.ind 1 $venomcode.out)
  106.      }{
  107.      @r3.new = r3.new ## mid($r3.cnt 1 $r3.line)
  108.     }
  109.    @r3.cnt = r3.cnt + 1
  110.   }
  111.  @ function_return = r3.new
  112.  ^assign -r3.cnt ;^assign -r3.new ;^assign -r3.ind ;^assign -r3.line
  113.  ^assign -r3.len
  114. }
  115.  
  116. alias rem_v {
  117.  @ _pattern = rmatch($0 $1-) - 1
  118.  if (_pattern != -1) {@ function_return = notv($_pattern $1-)}
  119.  {@ function_return = [$1-]}
  120. }
  121.  
  122. alias notv {
  123.  if ([$0]) {@ _pad = [ ]}
  124.  {@ _pad = []}
  125.  @ _words = [$1-]
  126.  @ function_return = [$leftw($0 $1-)] ## [$_pad] ## [$restw(${[$0]+1} $1-)]
  127. }
  128.  
  129. alias newenc @ function_return = [$encode($flip($encode($0-)))]
  130. alias newdec @ function_return = [$decode($flip($decode($0-)))]
  131.  
  132. alias lcmn @ function_return = [$encode($flip($clean($0-)))]
  133. alias olddec @ function_return = [$decode($decode($0-))]
  134. alias oldenc @ function_return = [$encode($encode($0-))]
  135.  
  136. alias leftw {@ function_return = [$(1-$0)]}
  137. alias restw {@ function_return = [$(${[$0]+1}-)]}
  138.  
  139. # PING stuff
  140.  
  141. ^on ^NOTICE "% 26CRYPT00 PING" {
  142.  eval cxecho $0 checked to see if you're running 2600CRYPT.
  143.  eval MSG $0 26CRYPT00 PONG $cryptver
  144. }
  145.  
  146. ^on ^MSG "% 26CRYPT00 PONG*" {
  147.  eval cxecho $0 is Running 2600Crypt $3-
  148. }
  149.  
  150. # LCM public POP/DEF stuff
  151.  
  152. ^on ^raw_irc "% PRIVMSG #% :*" {
  153.  if ([$DLCMDECODE]==[On]) {
  154.   @ mystr = [$fix1w($3-)]
  155.   @ newstr = [$clean($(${3 ## [-] ## mystr}))]
  156.   @ whodat = [$nonly($0)]
  157.   if ([$2]==[$C]) { 
  158.    xecho -window Crypt <$whodat\/dLCM> $lcm($newstr)
  159.    }{
  160.    xecho -window Crypt <$whodat\:$2\/dLCM> $lcm($newstr)
  161.   }
  162.   ^assign -mystr;^assign -newstr;^assign -whodat 
  163.  }
  164. }
  165.  
  166. ^on ^raw_irc "% PRIVMSG #% : *" {
  167.  if ([$PLCMDDECODE]==[On]) {
  168.   @ whodat = [$nonly($0)]
  169.   @ themsg = [$flip($clean($decode($4-)))]
  170.   if ([$2]==[$C]) {
  171.    xecho -window Crypt <\$whodat\/pLCM> $themsg
  172.    }{
  173.    xecho -window Crypt <\$whodat\:$2\/pLCM> $themsg
  174.   }
  175.   ^assign -themsg;^assign -whodat
  176.  }
  177. }
  178.  
  179. # NiGHT decryption stuff..  it REALLY sucks.  Just a simple encrypt.
  180.  
  181. ^on ^raw_irc "% PRIVMSG #% :<N>*" {
  182.  if ([$NITEDECODE]==[ON]) {
  183.   @whodat = [$nonly($0)]
  184.   ^assign nsay $decode($4-)
  185.   if ([$2]==[$C]) {
  186.    eval xecho -window Crypt <\$whodat\/NiTE> $nsay
  187.    }{
  188.    eval xecho -window Crypt <\$whodat\/:$1\NiTE> $nsay
  189.   }
  190.   assign -whodat;
  191.  }
  192. }
  193.  
  194. on ^msg "% <N>*" {
  195.  if ([$NITEDECODE]==[ON]) {
  196.   ^assign nmsg $decode($2)
  197.   eval xecho -window Crypt \[$0\/NiTE] $nmsg
  198.   assign -nmsg
  199.  }
  200. }
  201.  
  202. # TextBox decryption - Medicore - encrypt only, but make people think there's
  203. # a key by the 2 stray chars.
  204.  
  205. ^on ^raw_irc "% PRIVMSG #% :* ?? -+ TEXT +-" {
  206.  if ([$TXTDECODE] == [ON]) {
  207.   @whodat = [$nonly($0)]
  208.   if ([$2] == [$C]) {
  209.    eval xecho -window Crypt <\$whodat\/TEXT> $strip( $decode($strip(: $left($index(" $3-) $3-))))
  210.    }{
  211.    eval xecho -window Crypt <$whodat:$2/TEXT> $strip( $decode($strip(: $left($index(" $3-) $3-))))
  212.   }
  213.  assign -whodat
  214.  }
  215. }
  216.  
  217. ^on ^msg "% * ?? -+ TEXT +-" {
  218.   if ([$TXTDECODE] == [ON]) {
  219.    eval xecho -window Crypt \[$0\/TEXT] $strip( $decode($left($index(" $1-) $1-)))
  220.   }
  221. }
  222.  
  223. # My latest 2600Crypt scheme.. best yet.  encrypt,flip,encrypt.
  224.  
  225. ^on ^raw_irc "% PRIVMSG #% :[ENCRYPTED]*" {
  226.  if ([$NEWDECODE] == [ON]) {
  227.   @whodat = [$nonly($0)]
  228.   if ([$2]==[$C]) { 
  229.     eval xecho -window Crypt <\$whodat\/ENC> $newdec($4-)
  230.     }{
  231.     eval xecho -window Crypt <\$whodat\:$1/ENC> $newdec($4-)
  232.   }   
  233.   ^assign -whodat;
  234.  }
  235. }
  236.  
  237. ^on ^MSG "% [ENCRYPTED]*" {
  238.  if ([$NEWDECODE] == [ON]) { 
  239.   eval xecho -window Crypt [$0/ENC] $newdec($2-)
  240.  }
  241. }
  242.  
  243. # Older 2600crypt by Zoro-a.  Not too bad, double encrypt.
  244.  
  245. ^on ^raw_irc "% PRIVMSG #% :[ENCRYPTED]*" {
  246.  if ([$OLDDECODE] == [ON]) {
  247.   @whodat = [$nonly($0)]
  248.   if ([$2]==[$C]) { 
  249.     eval xecho -window Crypt <\$whodat\/oENC> $olddec($4-)
  250.     }{
  251.     eval xecho -window Crypt <\$whodat\:$2\/oENC> $olddec($4-)
  252.   }
  253.   ^assign -whodat;
  254.  }
  255. }
  256.  
  257. ^on ^MSG "% [ENCRYPTED]*" {
  258.  if ([$OLDDECODE] == [ON]) {
  259.   eval xecho -window Crypt [$0/oENC] $olddec($2-)
  260.  }
  261. }
  262.  
  263. # Venom Stuff
  264.  
  265. ^on ^raw_irc "% PRIVMSG #% :*-<!VeNoM!>-" {
  266.  if ([$VENDECODE]==[ON]) {
  267.   @ whodat = [$nonly($0)]
  268.   @ mystr = [$3-]
  269.   @ newstr = [$(${3 ## [-] ## mystr})]
  270.   @ newstr = [$rem_v(-<!VeNoM!>- $newstr)]
  271.   if ([$2]==[$C]) {
  272.    xecho -window Crypt <\$whodat\/VENOM> $venomcode($newstr)
  273.    }{
  274.    xecho -window Crypt <\$whodat\:$2\/VENOM> $venomcode($newstr)
  275.   }
  276.   ^assign -mystr;^assign -newstr;^assign -whodat;
  277.  }
  278. }
  279.  
  280. # DiSCUS stuff
  281.  
  282. ^on ^raw_irc "% PRIVMSG #% :*- DiSCUS -" {
  283.  if ([$DISCDECODE]==[ON]) {
  284.   @ mystr = [$3-]
  285.   @ newstr = [$(${3 ## [-] ## mystr})]
  286.   @ whodat = [$nonly($0)]
  287.   ^assign code $discus($newstr)
  288.   if ([$2]==[$C]) {
  289.    eval xecho -window Crypt <\$whodat\/DiSCUS> $code
  290.   }{
  291.    eval xecho -window Crypt <\$whodat\:$2\/DiSCUS> $code
  292.   }
  293.   ^assign -mystr;^assign -newstr;^assign -whodat;
  294.  }
  295. }
  296.  
  297. ## Begin User Commands.
  298.  
  299. # New 2600Crypt stuff
  300.  
  301. alias enc if ([$0]) {
  302.  eval qsend $C [ENCRYPTED] $newenc($0-)
  303.  eval xecho -window Crypt <\$N\/ENC> $0-
  304. }{/usecho /sec [string]}
  305.  
  306. alias penc if ([$1]) {
  307.  eval qsend $0 [ENCRYPTED] $newenc( $1- )
  308.  eval xecho -window Crypt >[\$0\/ENC] $1- 
  309. }{/usecho /psec [nick] [string]}
  310.  
  311. # Old 2600Crypt stuff
  312.  
  313. alias oenc if ([$0]) {
  314.  eval qsend $C [ENCRYPTED] $oldenc($0-)
  315.  eval xecho -window Crypt <\$N\/oENC> $0- 
  316. }{/usecho /oldsec [string]}
  317.  
  318. alias openc if ([$1]) {
  319.  eval qsend $0 [ENCRYPTED] $oldenc($1-)
  320.  eval xecho -window Crypt >[\$0\/oENC] $1- 
  321. }{/usecho /oldpspec [nick] [string]}
  322.  
  323. # TextBox crypt stuff
  324.  
  325. alias text if ([$0]) {
  326.  eval qsend $C $encode($0-)" 2C -+ TEXT +-
  327.  eval xecho -window Crypt <\$N\/TEXT> $0-
  328. }{usecho /text [text]}
  329.  
  330. alias ptext if ([$1]) {
  331.  eval qsend $0 $encode($1-)" 2C -+ TEXT +-
  332.  eval xecho -window Crypt >[\$0\/TEXT] $1-
  333. }{usecho /ptext [nick] [text]}
  334.  
  335. # NiGHT Crypt stuff
  336.  
  337. alias nite if ([$0]) {
  338.  eval qsend $C <N> $encode($0-) <N>
  339.  eval xecho -window Crypt <\$N\/NiTE> $0-
  340. }{usecho /nite [text]}
  341.  
  342. alias pnite if ([$1]) {
  343.  eval qsend $0 <N> $encode($1-) <N>
  344.  eval xecho -window Crypt >[\$0\/NiTE] $1-
  345. }{usecho /pnite [nick] [text]}
  346.  
  347. # LCM def/pop stuff
  348.  
  349. alias lcmd if ([$0]) {
  350.  eval qsend $C $lcm($0-) 
  351.  xecho -window Crypt <${N}/dLCM> $0-
  352. }{usecho /lcmd [string]}
  353.  
  354. alias lcmp if ([$0]) {
  355.  eval qsend $C   $lcmn($0-) 
  356.  xecho -window Crypt <${N}/pLCM> $0-
  357. }{usecho /lcmp [string]}
  358.  
  359. # Venom stuff
  360.  
  361. alias ven if ([$0]) {
  362.  eval qsend $C $venomcode($0-) -<!VeNoM!>-
  363.  eval xecho -window Crypt <\$N\/VENON> $0-
  364. }{usecho /ven [text]}
  365.  
  366. # DiSCUS stuff
  367.  
  368. alias disc if ([$0]) {
  369.  eval qsend $C $discus($0-) - DiSCUS -
  370.  eval xecho -window Crypt <\$N\/DiSC> $0-
  371. }{usecho /disc [text]}
  372.  
  373. # Window stuff
  374.  
  375. alias cw if ([$openwin]==[0]) {
  376.   ^window new
  377.   ^window scroll on
  378.   ^window shrink 5
  379.   ^window level public
  380.   ^window name Crypt
  381.   ^set hold_mode off
  382.   ^window refnum Crypt
  383.   ^window goto 2
  384.   @ openwin = 1
  385.  }{
  386.   ^window refnum Crypt
  387.   ^wait -cmd window kill
  388.   ^window goto 1
  389.   @ openwin = 0
  390. }
  391.  
  392. alias pingenc if ([$0]) {
  393.  eval notice $0 26CRYPT00 PING
  394.  eval cxecho Sent PINGENC query to $0 
  395. }{usecho /pingenc [nick/chan]}
  396.  
  397. # Encryption Ignore/Remember stuff
  398.  
  399. alias noenc {
  400.  ^Assign $TXTDECODE OFF
  401.  ^Assign $NEWDECODE OFF
  402.  ^Assign $OLDDECODE OFF
  403.  ^Assign $NITEDECODE OFF
  404.  ^Assign $DLCMDECODE OFF
  405.  ^Assign $PLCMDECODE OFF
  406.  ^assign $VENDECODE OFF
  407.  ^Assign $DISDECODE OFF
  408.  if ([$openwin]==[1]) {
  409.   /cw
  410.  }
  411. }
  412.  
  413. alias yesenc {
  414.  ^Assign $TXTDECODE ON
  415.  ^Assign $NEWDECODE ON
  416.  ^Assign $OLDDECODE ON
  417.  ^Assign $NITEDECODE ON
  418.  ^Assign $DLCMDECODE ON
  419.  ^Assign $PLCMDECODE ON
  420.  ^Assign $VENDECODE ON
  421.  ^Assign $DISDECODE ON
  422.  if ([$openwin]==[0]) {
  423.   /cw
  424.  }
  425. }
  426.  
  427. alias nonite {
  428.  ^assign $NITEDECODE OFF
  429. }
  430.  
  431. alias yesnite {
  432.  ^assign $NITEDECODE ON
  433. }
  434.  
  435. alias notext {
  436.  ^assign $TXTDECODE OFF
  437. }
  438.  
  439. alias yestext {
  440.  ^assign $TXTDECODE ON
  441. }
  442.  
  443. alias noold {
  444.  ^assign $OLDDECODE OFF
  445. }
  446.  
  447. alias yesold {
  448.  ^assign $OLDDECODE ON
  449. }
  450.  
  451. alias no2600 {
  452.  ^assign $NEWDECODE OFF
  453. }
  454.  
  455. alias yes2600 {
  456.  ^assign $NEWDECODE ON
  457. }
  458.  
  459. alias yesplcm {
  460.  ^assign $PLCMDECODE ON
  461. }
  462.  
  463. alias yesdlcm {
  464.  ^assign $DLCMDECODE ON
  465. }
  466.  
  467. alias nodis {
  468.  ^assign $DISDECODE OFF
  469. }
  470.  
  471. alias yesdis {
  472.  ^assign $DISDECODE OFF
  473. }
  474.  
  475. alias noven {
  476.  ^assign $VENDECODE OFF
  477. }
  478.  
  479. alias yesven {
  480.  ^assign $VENDECODE OFF
  481. }
  482.  
  483. # Help stuff
  484.  
  485. alias sechelp {
  486.  cecho +-------------------------------------------------------+
  487.  eval cecho |    #2600 elite Encryption Engine $cryptver by MegaFred     |
  488.  cecho +-------------------------------------------------------+
  489.  cecho | /nitehelp     - Info on NiGHT encryption/decryption   |
  490.  cecho | /texthelp     - Info on TextBox encryption/decryption |
  491.  cecho | /2600help     - Info on New2600 encryption/decryption |
  492.  cecho | /oldhelp      - Info on Old2600 encryption/decryption |
  493.  cecho | /lcmhelp      - Info on LCM encryption/decryption     |
  494.  cecho | /misc         - Info on misc. 2600crypt Commands      |
  495.  cecho | /disc         - Send public DiSCUS coded message      |
  496.  cecho | /ven          - Send public VENOM coded message       |
  497.  cecho +-------------------------------------------------------+
  498. }
  499.  
  500. alias nitehelp {
  501.  cecho +-------------------------------------------------------+
  502.  eval cecho |    #2600 elite Encryption Engine $cryptver by MegaFred     |
  503.  cecho +-------------------------------------------------------+
  504.  cecho | NiGHT is an IRC script done by ReT and pyrm. Overall, |
  505.  cecho | a somewhat mediocre script.   Worst  of it being it's |
  506.  cecho | encryption scheme.  All it uses is one call to encode |
  507.  cecho | which is a pretty unsafe scheme.                      |
  508.  cecho |                                                       |
  509.  cecho | /nite [text]         - Send coded [text] to channel   |
  510.  cecho | /pnite [nick] [text] - Send [text] to [nick] only     |
  511.  cecho | /nonite              - Stop recieving NiGHT text      |
  512.  cecho | /yesnite             - Resume recieving NiGHT text    |
  513.  cecho +-------------------------------------------------------+
  514. }
  515.  
  516. alias texthelp {
  517.  cecho +-------------------------------------------------------+
  518.  eval cecho |    #2600 elite Encryption Engine $cryptver by MegaFred     |
  519.  cecho +-------------------------------------------------------+
  520.  cecho | TextBox is an IRC script that was done by CKeeper. At |
  521.  cecho | its time, it was a good script. Its encryption scheme |
  522.  cecho | is a bit mediocre, using one call to encode, but also |
  523.  cecho | having two random chars that seemed to be a key.      |
  524.  cecho |                                                       |
  525.  cecho | /text [text]         - Send coded [text] to channel   |
  526.  cecho | /ptext [nick] [text] - Send [text] to [nick] only     |
  527.  cecho | /notext              - Stop recieving TextBox text    |
  528.  cecho | /yestext             - Resume recieving TextBox text  |
  529.  cecho +-------------------------------------------------------+
  530. }
  531.  
  532. alias 2600help {
  533.  cecho +-------------------------------------------------------+
  534.  eval cecho |    #2600 elite Encryption Engine $cryptver by MegaFred     |
  535.  cecho +-------------------------------------------------------+
  536.  cecho | The 2600 encryption algorithm was my first attempt at |
  537.  cecho | doing an encryption scheme.  It's a very good scheme, |
  538.  cecho | as it takes the text, encodes it, flips the encrypted |
  539.  cecho | string, and encodes again. Inspired by LCM by SrFrog. |
  540.  cecho |                                                       |
  541.  cecho | /enc [text]          - Send coded [text] to channel   |
  542.  cecho | /penc [nick] [text]  - Send [text] to [nick] only     |
  543.  cecho | /no2600              - Stop recieving 2600 text       |
  544.  cecho | /yes2600             - Resume recieving 2600 text     |
  545.  cecho +-------------------------------------------------------+
  546. }
  547.  
  548. alias oldhelp {
  549.  cecho +-------------------------------------------------------+
  550.  eval cecho |    #2600 elite Encryption Engine $cryptver by MegaFred     |
  551.  cecho +-------------------------------------------------------+
  552.  cecho | The old 2600 encryption scheme was zoro-a's first try |
  553.  cecho | at doing an encryption algorithm.   Not a bad scheme, |
  554.  cecho | it uses 2 calls to encode, but at it's first release, |
  555.  cecho | it didn't have any ctrl-codes in its trigger.         |
  556.  cecho |                                                       |
  557.  cecho | /oenc [text]         - Send coded [text] to channel   |
  558.  cecho | /openc [nick] [text] - Send [text] to [nick] only     |
  559.  cecho | /noold               - Stop recieving Old2600 text    |
  560.  cecho | /yesold              - Resume recieving Old2600 text  |
  561.  cecho +-------------------------------------------------------+
  562. }
  563.  
  564. alias lcmhelp {
  565.  cecho +-------------------------------------------------------+
  566.  eval cecho |    #2600 elite Encryption Engine $cryptver by MegaFred     |
  567.  cecho +-------------------------------------------------------+
  568.  cecho | The LCM encryption scheme is probably the best one in |
  569.  cecho | the scripting scene.  It has two protocols to it, DEF |
  570.  cecho | and POP.   It  works by sending a checksum before the |
  571.  cecho | message itself. Does not have private message coding. |
  572.  cecho |                                                       |
  573.  cecho | /lcmp [text]    - Send POP protocol [text] to channel |
  574.  cecho | /lcmd [text]    - Send DEF protocol [text] to channel |
  575.  cecho | /nodlcm         - Stop recieving DEF lcm text         |
  576.  cecho | /noplcm         - Stop recieving POP lcm text         |
  577.  cecho | /yesdlcm        - Resume recieving DEF lcm text       |
  578.  cecho | /yesplcm        - Resume recieving POP lcm text       |
  579.  cecho +-------------------------------------------------------+
  580. }
  581.  
  582. alias misc {
  583.  cecho +-------------------------------------------------------+
  584.  eval cecho |    #2600 elite Encryption Engine $cryptver by MegaFred     |
  585.  cecho +-------------------------------------------------------+
  586.  cecho | Here are some miscallaneous commands you can use with |
  587.  cecho | this script.                                          |
  588.  cecho |                                                       |
  589.  cecho | /cw                  - Turn encryption window on/off  |
  590.  cecho | /noenc               - Turn off all auto-decryption   |
  591.  cecho | /yesenc              - Turn on all auto-decryption    |
  592.  cecho | /pingenc [nick/chan] - Finds out if [nick] is running |
  593.  cecho |                        2600Crypt.   (v2.2 or later)   |
  594.  cecho +-------------------------------------------------------+
  595. }
  596.  
  597. # Stuff done when script is finished loading.
  598.  
  599. if ([$openwin]==[0]) {cw}
  600.  
  601. eval @oldmsg = [$oldenc($N has loaded 2600crypt $cryptver by MegaFred)]
  602. eval qsend $C [ENCRYPTED] $oldmsg 
  603.  
  604. eval cxecho 2600Crypt $cryptver by MegaFred Installed. 
  605. eval cxecho Type /sechelp for help.
  606.  
  607.  
  608.