Don't get caught by the enemy

;;;;;;;;;;;;Never travel with or transmit unencrypted informations;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;Create your own private documents for total security;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;Keep the key get out of sight, keep the stress get out of mind;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;Create a complete invisible document;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;Choose whether the key is removable or self-destructing when read or copied;;;;;;;;;
;;;;;;;;;;;;https://i.ibb.co/cC4rqXc/3.png;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;English ONLY, NO exotic chars;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;Output 2 files : .CAP ( invisible document ) \ .SHAKE ( key );;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;https://i.ibb.co/ypjHtby/1.png;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;Paste the below code in a text editor \ load the file in Mirc;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;//load -rs path\file.extension;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;use the command below for using :;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;//hq.storing DOCUMENT.NAME TEXT;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;Choose a document name as you want;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;//hq.shake.key.reverse PATH\*.SHAKE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;Join both file together;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;Replace ".mtime" for ".atime" in text editor for a tamper-proof key;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;Press F3 for destination folder;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias HQ.Storing {
 hq.create.key
 hq.invisible.cap $1 $2-
 hq.shake.key $1
}

alias hq.create.key {
  if $hget(hq) { hfree hq }
  if !$hget(borders) { hmake borders 8192 }
  if !$exists(caps) { mkdir caps }
 hmake hq 8192
 hadd hq hq.char 32
 hadd hq hq.space 1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90-91-92-93-94
 hadd hq hq.space.Left 94

  while $hget(hq,hq.char) <= 126 {
   hadd hq hq.space.r $r(1,$hget(hq,hq.space.left))
   hadd hq hq.space.r $ntonn($hget(hq,hq.space.r))
   hadd hq hq.key $+($hget(hq,hq.key),$ntonn($gettok($hget(hq,hq.space),$hget(hq,hq.space.r),45)),-)
   hadd hq hq.space $deltok($hget(hq,hq.space),$ntonn($hget(hq,hq.space.r)),45)
   hinc hq hq.char
   hdec hq hq.space.left
  }
 }

alias hq.shake.key {
 if $len($remove($hget(hq,hq.key),$chr(45))) == 188 && $remove($hget(hq,hq.key),$chr(45)) isnum {
 hdel hq hq.key.shake
 hadd hq hq.convert 1
 hadd hq hq.shake $atime.shake($+(caps\,$1,.cap))
 hadd hq hq.key.shake $hget(hq,hq.key)

  while $hget(hq,hq.convert) <= $hget(hq,hq.shake) {
  hadd hq hq.key.shake $encode($hget(hq,hq.key.shake),m)
  hinc hq hq.convert
  }
   borders.add shake $hget(hq,hq.shake)
   write $+(caps\,$1,.shake) $hget(hq,hq.key.shake)
   run caps
 }
}

alias hq.invisible.cap {
  hadd hq length.cap 1

    while $hget(hq,length.cap) <= $len($2-) {
    write $+(caps\,$1,.cap) $str($chr(160),$gettok($hget(hq,hq.key),$calc($asc($mid($2-,$hget(hq,length.cap),1)) -32),45))
    hinc hq length.cap
    }
 }

 alias hash.find {
  if $hget($1,$2) {
  hdel hq hash.result
  hadd hq hash.find 1

  while $hget(hq,hash.find) <= 94 {
  if $gettok($hget($1,$2),$hget(hq,hash.find),45) == $3 { hadd hq hash.result $hget(hq,hash.find) }
  hinc hq hash.find
  }
    return $hget(hq,hash.result)
 }
}

alias hq.shake.reverse {
 if $len($remove($hget(hq,hq.key),$chr(45))) == 188 && $remove($hget(hq,hq.key),$chr(45)) isnum {
 hadd hq hq.reverse 1

  while $hget(hq,hq.reverse) <= $lines($1) {
  hadd hq hq $+($hget(hq,hq),$chr($calc($hash.find(hq,hq.key,$len($read($1,$hget(hq,hq.reverse)))) +32)))
  hinc hq hq.reverse
  }
    echo -a $hget(hq,hq)
    hdel hq hq
  }
}

alias hq.shake.key.reverse {
 if $exists($1) {
 if !$hget(hq) { hmake hq 8192 }
 hadd hq hq.shake.reverse 1
 hadd hq hq.key $decode($read($1,1),m)
  while $hget(hq,hq.shake.reverse) <= $calc($atime.shake($+(caps\,$nopath($1))) -1) {
  hadd hq hq.key $decode($hget(hq,hq.key),m)
  hinc hq hq.shake.reverse
  }
   hq.shake.reverse $+($nofile($1),$gettok($nopath($1),1,46),.cap)
 }
}

alias key.special.char {
 hdel -w borders special.*
 borders.add special.char 1

  while $borders(special.char) <= 31 {
: special_char
   borders.add special.char.next $chr($r(33,126))
  if $borders(special.char.next) isalnum || $asc($borders(special.char.next)) isin 40-41-44-123-125 { goto special_char }
  borders.add special.char.result $+($borders(special.char.result),$borders(special.char.next))
  borders.inc special.char
  }
     borders.add char.insert.r $r(1,$len($borders(special.char.result)))
     borders.add special.char.result $+($left($borders(special.char.result),$borders(char.insert.r)),$iif($r(1,2) == 1,$r(a,z),$r(0,9)),$mid($borders(special.char.result),$calc($borders(char.insert.r) +1)))
     return $iif($borders(special.char.result),$ifmatch,0)
}

alias atime.shake {
 if !$hget(borders) { hmake borders 8192 }
 borders.remove mtime.shake
 borders.add mtime.shake $calc($iif($gettok($time($file($1).mtime),1,58) > 0,$gettok($time($file($1).mtime),1,58),1) * $iif($gettok($time($file($1).mtime),2,58) > 0,$gettok($time($file($1).mtime),2,58),1) * $iif($gettok($time($file($1).mtime),3,58) > 0,$gettok($time($file($1).mtime),3,58),1))
  while $borders(mtime.shake) >= 13 { borders.dec mtime.shake 9 }
  borders.timer remove.time.shake -h 1 100 borders.remove mtime.shake
  return $iif($borders(mtime.shake) >= 1,$borders(mtime.shake),1)
}

alias ntonn return $iif($len($1) == 1,$+(0,$1),$1-)
alias borders.add hadd borders $1-
alias borders return $hget(borders,$1-)
alias borders.remove hdel borders $1-
alias borders.inc hinc borders $1-
alias borders.dec hdec borders $1-
alias borders.timer $+(.timer.border.,$1) $2-
alias f3 //run caps