122 lines
2.9 KiB
Plaintext
122 lines
2.9 KiB
Plaintext
; eXocrypt 2.0 Pro (08-12-1997)
|
||
; Plugin for S|-|ADO\\'
|
||
; drastically extended by RoboCop of nOOb <Robo.Cop@gmx.net>
|
||
; based on EXOCRYPT by an unknown author
|
||
;-=-= BEGIN SHADOW PLUGIN DEFINITION =-=-
|
||
;name: eXocrypt 2.0 Pro
|
||
;auth: RoboCop of nOOb
|
||
;loadonexit: ExoPurge
|
||
;loadonstart: ExoStart
|
||
;
|
||
;-=-= END SHADOW PLUGIN DEFINITION =-=-
|
||
|
||
alias ExoStart {
|
||
set %exodir $scriptdir
|
||
set %CrypFile %exodir $+ exocrypt.exo
|
||
set %S $read -sSignature %CrypFile
|
||
set %N $read -sName %CrypFile
|
||
set %R $read -sRecipients %CrypFile
|
||
set %P $read -sPlain %CrypFile
|
||
set %C $read -sCoded %CrypFile
|
||
if ( %S == $null ) { Method }
|
||
}
|
||
|
||
menu channel {
|
||
SPI: eXocrypt
|
||
.Change CODE:Method
|
||
.Info about current CODE:MI
|
||
.Send crypted message:eXo
|
||
}
|
||
|
||
alias ExoPurge {
|
||
unset %S
|
||
unset %N
|
||
unset %R
|
||
unset %P
|
||
unset %C
|
||
unset %exodir
|
||
unset %CrypFile
|
||
}
|
||
|
||
alias -l Method {
|
||
set %exofiles %exodir $+ *.exo
|
||
set %CrypFile $$dir="Select file with code for encryption" %exofiles
|
||
unset %exofiles
|
||
%S = $read -sSignature %CrypFile
|
||
%N = $read -sName %CrypFile
|
||
%R = $read -sRecipients %CrypFile
|
||
%P = $read -sPlain %CrypFile
|
||
%C = $read -sCoded %CrypFile
|
||
echo -a 1,8 You selected 1,9 %N 1,8 encryption 1,9( $+ %S $+ )1,8. Recipients:1,9 %R 1,8.
|
||
}
|
||
|
||
alias -l MI {
|
||
echo -s 1,8 S|-|ADO\\'s 1,7 eXocrypt 0,4 Encryption method
|
||
echo -s 8 Filename: $nopath( %CrypFile ) --- 8 Signature: %S
|
||
echo -s 8 Name: %N --- 8 Recipients: %R
|
||
echo -s 8 Plain: %P
|
||
echo -s 8 Code: %C
|
||
}
|
||
|
||
alias eXo {
|
||
set %eXo $$?1="Enter Text To eXoCrYpT" *2
|
||
%char = 1
|
||
:DoItAgain
|
||
%eXo = $replace(%eXo, $mid(%P,%char,1), $mid(%C,%char,1))
|
||
%char = %char + 1
|
||
if %char <= 39 goto DoItAgain
|
||
unset %char
|
||
say %S %eXo
|
||
echo 4 -a < $+ %N coded to %R $+ > $$1-
|
||
unset %eXo
|
||
}
|
||
|
||
alias -l deeXo {
|
||
if ( %DCrypFile == $null ) { return }
|
||
%DN = $read -sName %DCrypFile
|
||
%DR = $read -sRecipients %DCrypFile
|
||
%DP = $read -sPlain %DCrypFile
|
||
%DC = $read -sCoded %DCrypFile
|
||
%char = 1
|
||
:DoItAgain
|
||
%deeXo = $replace(%deeXo, $mid(%DC,%char,1), $mid(%DP,%char,1))
|
||
%char = %char + 1
|
||
if %char <= 39 goto DoItAgain
|
||
unset %char
|
||
echo 4 -a < $+ %DN coded from %exonick $+ > %deeXo
|
||
unset %DN
|
||
unset %DR
|
||
unset %DP
|
||
unset %DC
|
||
}
|
||
|
||
ON 1:TEXT:*:*:{
|
||
set %Sign $parm1
|
||
set %deeXo $parm2*
|
||
set %eXonick $nick
|
||
set %exofilect 1
|
||
:UseNextFile
|
||
%DCrypFile = $findfile(%exodir,*.exo,%exofilect)
|
||
%CS = $read -sSignature %DCrypFile
|
||
if ( %Sign == %CS ) {
|
||
deeXo
|
||
goto EndOfThis
|
||
}
|
||
inc %exofilect
|
||
if ( $findfile(%exodir,*.exo,%exofilect) != $null ) { goto UseNextfile }
|
||
:EndOfThis
|
||
unset %try
|
||
unset %CS
|
||
unset %Sign
|
||
unset %exofilect
|
||
unset %deeXo
|
||
unset %eXonick
|
||
unset %DCrypFile
|
||
}
|
||
|
||
ON 1:CHAT:*:{
|
||
set %deeXo $parm2*
|
||
set %eXonick $nick
|
||
deeXo
|
||
}
|