WARTIME COMMUNICATION TOOL

WARTIME COMMUNICATION TOOL
;;;;;;;;;;;;;;;;;;;;;;;;;;
STORE YOUR SENSITIVE INFORMATIONS \ SHARE IT SAFELY
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CREATE UNBREAKABLE INVISIBLE DOCUMENT WITH KEY
https://i.ibb.co/R2LnDhC/CAP.png
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SUPPORTED CHARACTERS \ ASCII : 33-126
REPLACE SPACE BY ANOTHER CHAR
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PASTE THE SCRIPT BELOW IN A DOCUMENT AND LOAD THE DOCUMENT IN "MIRC" WITH THAT COMMAND : //LOAD -RS PATH\DOCUMENT
AFTER * Loaded script :
USE THIS COMMAND FOR CONVERTING YOUR TEXT : //SAFESTORAGE NAMEOFDOCUMENT TEXTTOCONVERT (//SAFESTORAGE NUCLEARCODE 12345678)
THIS WILL CREATE TWO FILES IN CAP OUTPUT DIR : .CAP AND .NUMBER
.CAP FOR THE DOCUMENT
.NUMBER FOR THE KEY
.CAP AND .KEY MUST BE IN THE SAME DOCUMENT FOR DECRYPTION
NEVER LEAVE THE KEY IN THE SAME FOLDER AS THE DOCUMENT. PLACE IT ON REMOVABLE MEDIA OR IN A CLOUD ACCOUNT
CHANGE THE CAP OUTPUT DIRECTORY AT THE END OF THE SCRIPT (!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
FOR READING A DOCUMENT \ PLACE THE CONTENT IN MEMORY AND READ THE MEMORY :
USE THIS COMMAND : //SAFESTORAGE.SHAKE.KEY.REVERSE PATH\NAME.NUMBER ( //SAFESTORAGE.SHAKE.KEY.REVERSE C:\FOLDER\NUCLEAR.8 )
.CAP AND .KEY MUST BE IN THE SAME DOCUMENT FOR DECRYPTION
THIS WILL TRANSFERT THE CONTENT OF THE DOCUMENT IN MEMORY
FOR READING THE MEMORY USE THIS COMMAND : //echo -a $hget(safestorage,safestorage)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias safestorage.create.key {
 if $hget(safestorage) { hfree safestorage }
 hmake safestorage 8192
 hadd safestorage safestorage.char 32
 hadd safestorage safestorage.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 safestorage safestorage.space.left 94

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

alias safestorage.shake.key {
 if $len($remove($hget(safestorage,safestorage.key),$chr(45))) == 188 && $remove($hget(safestorage,safestorage.key),$chr(45)) isnum {
 hdel safestorage safestorage.key.shake
 hadd safestorage safestorage.convert 1
 hadd safestorage safestorage.shake $r(3,12)
 hadd safestorage safestorage.key.shake $hget(safestorage,safestorage.key)

  while $hget(safestorage,safestorage.convert) <= $hget(safestorage,safestorage.shake) {
  hadd safestorage safestorage.key.shake $encode($hget(safestorage,safestorage.key.shake),m)
  hinc safestorage safestorage.convert
  }
   hadd safestorage shake $hget(safestorage,safestorage.shake)
   write $+($cap,$1,.,$hget(safestorage,safestorage.shake)) $hget(safestorage,safestorage.key.shake)
 }
}

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

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

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

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

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

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

alias safestorage.shake.key.reverse {
 if $exists($1) {
 if !$hget(safestorage) { hmake safestorage 8192 }
 hadd safestorage safestorage.shake.reverse 1
 hadd safestorage safestorage.key $decode($read($1,1),m)

  while $hget(safestorage,safestorage.shake.reverse) <= $calc($gettok($nopath($1),2,46) -1) {
  hadd safestorage safestorage.key $decode($hget(safestorage,safestorage.key),m)
  hinc safestorage safestorage.shake.reverse
  }
      safestorage.shake.reverse $+($nofile($1),$gettok($nopath($1),1,46),.cap)
 }
}

alias cap.delete {
 hadd safestorage cap.delete $findfile($cap,$+($1,.*),0)

  while $hget(safestorage,cap.delete) >= 1 {
  .remove $findfile($cap,$+($1,.*),$doc(cap.delete))
  hdec safestorage cap.delete
 }
   hdel safestorage cap.delete
}

;CHANGE CAP OUTPUT DIRECTORY \ BY DEFAULT "TEMP DIR"
alias cap return $+($envvar(temp),\)
alias ntonn return $iif($len($1) == 1,$+(0,$1),$1-)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INCOMING : SEND THE INVISIBLE DOCUMENT DIRECTLY TO E-MAIL RECIPIENT VIA A SIMPLE COMMAND LINE