Create a new version of paste:

New Paste
Syntax Highlighting
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;ENIGMA V2 THE GREAT WAR TIME COMMUNICATION TOOL;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;CREATE INVISIBLE DOCUMENT WITH KEY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;READ INVISIBLE DOCUMENT IN FEW CLICKS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;AMOVIBLE DRIVE EASY TRANSFERT BUTTON;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;MAIL CLIENT USING ENIGMA ALGORITHM;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;SEND INVISIBLE EMAIL UNREADABLE WITHOUT THE KEY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;SHARE THE INVISIBLE MESSAGE DIRECT IN MAIL BODY OR IN ATTACHED FILE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;SHARE OR NOT THE KEY FILE WITH THE MESSAGE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;SOON :;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;MULTIPLE RECIPIENT;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;FILE RECIPIENT;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;AUTOMATIC SENDING WHEN BACK ONLINE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;UAUTH 2.0 SERVER SUPPPORT;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;SCHEDULE SENDING;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;TABULATION;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;MINIMIZE BUTTON;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;DESKTOP SHORTCUT;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;WHAT IT LOOK LIKE :;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;DOCUMENT WITH MESSAGE AND KEY: https://i.ibb.co/7J7Czqf/document-key.png;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;WHAT THE SIMPLE SOFTWARE LOOK LIKE: https://i.ibb.co/HG9N0jR/enigmav2.png;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EMAIL WITH DOCUMENT IN MAIL BODY: https://i.ibb.co/SP4nHht/Invisible-mail.png;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;SUPPORT ONLY ENGLISH CHARACTERS - NO RUSSIAN - CHINESE - ARAB - GREEK;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;INSTALLATION GUIDE :;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;THIS IS AN AWASOME IRC SCRIPT SO YOU'LL NEED TO INSTALL MIRC FIRST;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;IF YOU CAN'T AFFORD THE PRICE, REQUEST ME A SOLUTION : SOULIER668@OUTLOOK.COM;;;;;;;;;;;;;;;;;;;;;;
;;;https://www.mirc.com/get.html;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;AFTER INSTALLATION, YOU'LL NEED TO COPY THE SCRIPT AT THE GOOD LOCATION;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;ONCE MIRC LAUNCHED USE THE DOWN BAR AND TYPE THIS FOR OPEN APP DIR;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;//RUN $MIRCDIR;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;DOWNLOAD THE SCRIPT ARCHIVE WITH SCRIPT - BIN & IMGS FILES;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;https://ufile.io/fww4jvsl;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;PLACE THE ENIGMAV2 DOCUMENT IN $MIRCDIR FOLDER;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;NOW IT'S TIME THE LOAD THE SCRIPT - RETURN TO MIRC DOWN BAR AND TYPE:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;//LOAD -rs ENIGMAV2\ENIGMAV2;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;* Loaded script 'C:\Users\xxxxx\AppData\Roaming\mIRC\ENIGMAV2\ENIGMAV2';;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;NOW JUST LAUNCH THE APP WITH F11 KEY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;IN THE APP THERE TWO EDITS BOX:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;1) FOR THE DOCUMENT NAME \OR\  MAIL RECIPIENT;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;IF EMPTY OR CONTAIN A RECIPIENT, A GENERIC NAME WILL BE CREATED;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;2) THE BODY SECTION, WHERE YOU INSERT YOUR MESSAGE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDIT AUTOMATICALY REPLACE SPACE WITH * CHARACTER. USE * OR USE YOUR OWN SEPARATOR;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;BUTTONS:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;1) CREATE: CREATE INVISIBLE DOCUMENT WITH KEY [OFFLINE];;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;2) READ: READ INVISIBLE DOCUMENT ON THE FLY [OFFLINE];;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;3) SETTINGS: SAVE SOFTWARE AND SMTP SERVER INFORMATIONS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;4) USB: CREATE & TRANSFERT DIRECTLY ON AMOVIBLE DEVICE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;5) SEND MAIL TO RECIPIENT(S) [ONLINE];;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;6) BODYCLIP: ATTACH THE DOCUMENT TO THE MAIL INSTEAD USING BODY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;7) KEYCLIP: ATTACH THE KEY FILE TO THE MAIL TOO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;SOFTWARE USE NOTEPAD AND SIMULATE KEY STROKES FOR READING INVISIBLE DOCUMENT;;;;;;;;;;;;;;;;;;;;;;;
;;;BE SURE YOU DIDN'T SCRATCH OR DELETED THIS PROGRAM;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;DOCUMENT AND KEY HAVE TO BE IN THE SAME DIRECTORY FOR DECRYPTING;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;YOU CAN USE OUTLOOK SMTP SERVER PRESENT BY DEFAULT BY ENTERING YOUR CURRENT LOGIN INFO;;;;;;;;;;;;;
;;;EVERY SENSIBLE INFORMATION YOU FILL THERE WILL BE CONVERT INTO INVISIBLE DOCUMENT TOO;;;;;;;;;;;;;;
;;;YOU'RE LOGIN INFORMATIONS WILL AUTOMATICALY BE DELETED FROM THE SETTINGS FILE AFTER SAVING IT;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;IF ONLY ONE AMOVIBLE DEVICE IS DETECTED, FILE WILL AUTOMATICALY BE TRANSFERED ON;;;;;;;;;;;;;;;;;;;
;;;IF THERE MULTIPLE DEVICES, YOU'LL HAVE TO CHOOSE WICH ONE YOU WANT TO USE;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;SOFTWARE DON'T GIVE A F*** WHEN:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;YOU TRY TO CREATE A DOCUMENT WITH NO CONTENT IN BODY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;YOU PRESS THE USB BUTTON WITHOUT AMOVIBLE DRIVE INSERTED;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;YOU PRESS THE SEND BUTTON WITHOUT A VALID SMTP SERVER CONFIGURATED;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;YOU PRESS THE SEND BUTTON WHILE YOU JUST OFFLINE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;YOU PRESS THE SEND BUTTON WHILE YOU SET THE TLS ON AND DIDN'T CONFIGURATED LOGIN INFORMATIONS;;;;;;
;;;YOU PRESS THE SEND BUTTON WITHOUT ANY RECIPIENT;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;YOU DON'T NEED TO SPECIFY THE MAIL SUBJECT BUT YOU CAN SET ONE IN SETTINGS FILE;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;FOR APPLYING THE TRANSPARENCY, JUST RELOAD THE SOFTWARE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;NEVER GO BELOW 100;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;THIS IS THE GREATEST WAR COMMUNICATION TOOL SINCE THE INVENTION OF THE FIRST ENIGMA MACHINE;;;;;;;;
;;;DOCUMENT OR MAIL WITHOUT KEY WILL NEVER BE BROKED, YOU CAN TRUST THIS SOFTWARE AS YOUR OWN MOMMY;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
NOW THE MAGIC IN LESS THAN 500 LINES :

alias f11 g.on
alias g.add hadd g $1-
alias g.del hdel g $1-
alias g.del.w hdel -w g $+($1-,*)
alias g.inc hinc g $1-
alias g.dec hdec g $1-
alias notepad run notepad
alias g.img drawpic @Enigma V2 $1-
alias g.delay $+(.timer. ,$1) $2-
alias g.delay.off.all .timer. * off
alias g.usb g.usb.select | g.add.file
alias g.rect drawrect -r @Enigma V2 $1-
alias g.delay.h $+(.timer. ,$1) -h $2-
alias g.text drawtext -r @Enigma V2 $1-
alias g.run run explorer.exe /select, $1-
alias g.rectfull drawrect -rf @Enigma V2 $1-
alias g.transparency setlayer $g.settings.read(transparency) @Enigma V2
alias g.button.shade.add g.shade 1 3 60 61 202 add
alias g.button.shade.usb g.shade 1 3 60 274 202 usb
alias g.button.shade.read g.shade 1 3 60 132 202 read
alias g.button.shade.send g.shade 1 3 60 345 202 send
alias g.memory if $hget(g) { hfree g } | hmake g 8192
alias g.content.info g.img 240 145 $g.imgs(info_02.png)
alias g.button.img.add g.img 61 202 $g.imgs(add_01.png)
alias g.button.img.key g.img 487 202 $g.imgs(key_01.png)
alias g.button.img.usb g.img 274 202 $g.imgs(usb_01.png)
alias g.destination.info g.img 240 54 $g.imgs(info_01.png)
alias g.button.img.read g.img 132 202 $g.imgs(read_01.png)
alias g.button.img.send g.img 345 202 $g.imgs(send_01.png)
alias g.button.img.clip g.img 416 202 $g.imgs(clip_01.png)
alias g.window window -dpBk0 +Dl @Enigma V2 200 200 666 300
alias g.button.img.key.on g.img 487 202 $g.imgs(key_02.png)
alias g.background g.rectfull $rgb(0,162,232) 1 0 0 800 300
alias g.button.img.clip.on g.img 416 202 $g.imgs(clip_02.png)
alias g.button.shade.settings g.shade 1 3 60 203 202 settings
alias g.frame.content g.rect $rgb(255,255,255) 2 47 132 558 50
alias g.content.clear g.rectfull $rgb(0,162,232) 1 52 134 546 45
alias g.frame.destination g.rect $rgb(255,255,255) 2 47 42 558 50
alias g.button.img.settings g.img 203 202 $g.imgs(settings_01.png)
alias g.text.content g.text $rgb(255,255,255) ebrima 26 65 138 $1-
alias g.destination.clear g.rectfull $rgb(0,162,232) 1 52 46 546 40
alias g.text.destination g.text $rgb(255,255,255) ebrima 26 65 48 $1-
alias g.wh.lock if !$g.hw.format { g.close | g.delay.h restart 1 500 g.on }
alias g.server.hello sockopen hello $g.settings.read(server) $g.settings.read(port)
alias g.close if $window(@Enigma V2) { window -c @Enigma V2 } | g.delay.off.all | hfree g | unset %g.usb
alias g.semicolon if !$g.mail.valid($gettok($g(destination),$numtok($g(destination),59),59)) { g.destination.reset | halt }
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias g return $hget(g,$1-)
alias g.output return enigmav2\data\output
alias g.imgs return $+(enigmav2\data\img\,$1)
alias g.key.backspace return $iif($1 == 8,1,0)
alias g.key.semicolon return $iif($1 == 59,1,0)
alias g.settings return $mircdirenigmav2\settings
alias remove.if if $exists($1-) { .remove $1- }
alias ntonn return $iif($len($1) == 1,$+(0,$1),$1-)
alias g.between return $iif($3 >= $1 && $3 <= $2,1,0)
alias g.mail return $mircdirenigmav2\data\bin\cmail.exe
alias g.char.only return $iif($g.between(32,126,$1),1,0)
alias g.content return $iif($g.mouse(47,604,132,181),1,0)
alias g.pair return $iif($chr(46) isin $calc($1 / 2),0,1)
alias g.destination return $iif($g.mouse(47,604,41,90),1,0)
alias g.button.add return $iif($g.mouse(61,111,202,243),1,0)
alias g.button.key return $iif($g.mouse(487,537,202,243),1,0)
alias g.button.usb return $iif($g.mouse(274,324,202,243),1,0)
alias g.button.send return $iif($g.mouse(345,395,202,243),1,0)
alias g.button.read return $iif($g.mouse(132,182,202,243),1,0)
alias g.button.clip return $iif($g.mouse(416,466,202,243),1,0)
alias g.noext return $remove($1,$gettok($1,$numtok($1,46),46))
alias g.settings.read return $readini($g.settings,settings,$1-)
alias g.button.settings return $iif($g.mouse(203,253,202,243),1,0)
alias g.mouse return $iif($mouse.x >= $1 && $mouse.x <= $2 && $mouse.y >= $3 && $mouse.y <= $4,1,0)
alias g.destination.valid return $iif($g.mail.valid($gettok($g(destination),$numtok($g(destination),59),59)),1,0)
alias g.hw.format return $iif($window(@Enigma V2) && $window(@Enigma V2).w == 666 && $window(@Enigma V2).h == 300,1,0)
alias g.files if !$exists(enigmav2\data\files) { mkdir enigmav2\data\files } | return $iif(%g.usb,$ifmatch,$mircdirenigmav2\data\files\)
alias g.mail.auth.file return $iif(.ghost !isin $findfile($g.files,$+(auth-,$1,.*),1),$findfile($g.files,$+(auth-,$1,.*),1),$findfile($g.files,$+(auth-,$1,.*),2))
alias g.path.noext if $chr(46) isin $1 && $left($1,1) != $chr(46) { return $left($1,$calc($len($1) - $calc($len($gettok($gettok($1,$numtok($1,92),92),2,46)) -1) -2)) }
alias g.mail.auth return $iif($exists($+($g.files,auth-user.ghost)) && $exists($+($g.files,auth-key.ghost)) && $exists($g.mail.auth.file(user)) && $exists($g.mail.auth.file(key)),1,0)
alias g.mail.settings return $+(-host:,$g(mail.auth.user),:,$g(mail.auth.key),@,$g.settings.read(server),:,$g.settings.read(port)) $iif($g.settings.read(tls) == yes,-starttls) $+(-to:,$g(destination)) $+(-from:,$g(mail.auth.user)) $+("-subject:,$iif($g.settings.read(subject),$ifmatch, ),") $iif($g(clip),-body: ,$+(-body-file:,$+($g.files,%name.file,.ghost))) $iif($g(clip),$+(-a:,$g.files,%name.file,.ghost)) $iif($g(key),$+(-a:,$g.key.file($+($g.files,%name.file,.ghost))))
alias g.mail.valid return $iif($regex($1-,(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*|"(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:(2(5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9]?[0-9]))\.){3}(?:(2(5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9]?[0-9])|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\])),1,0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:close:@Enigma V2:g.close
on *:keydown:@Enigma V2:*:g.keydown
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
menu @Enigma V2 {
sclick:g.buttons
}
;;;;;;;;;;;;;;;;
alias g.keydown {
    g.keydown.destination $asc($keychar)
    g.keydown.content $asc($keychar)
}

alias g.destination.reset {
    g.del.w destination
    g.destination.clear
    g.delay.h delay 1 600 g.destination.info
    g.delay.h blink.destination 0 600 g.blink.destination | halt
}

alias g.keydown.destination {
  if $g(blink.destination) {
    if $g.key.semicolon($1) { g.semicolon }
     if $numtok($g(destination),59) >= 499 { halt }

     if $g.char.only($1) {
     if !$g.mail.valid($gettok($g(destination),1,59)) && $len($g(destination)) > 254 { halt }
     g.delay blink.destination off
     g.del blink.content
        if !$g(destination.limit) && $len($g(destination)) > 25 { g.add destination.length $calc($len($g(destination)) -11) | g.add destination.limit $g.edit.limit(60,80) }
     g.add destination $replace($lower($+($g(destination),$chr($1))),$chr(32),$chr(42))
     g.destination.clear
     g.text.destination $iif($g(destination.limit),$+($str($chr(46),3),$right($g(destination),$g(destination.length))),$g(destination))
     }
       if $g.key.backspace($1) { g.destination.reset }
  }
}

alias g.keydown.content {
  if $g(blink.content) {
   if $g.char.only($1) {
   g.delay blink.content off
   g.del blink.destination
     if !$g(content.limit) && $len($g(content)) > 25 { g.add content.lenght $calc($len($g(content)) -11) | g.add content.limit $g.edit.limit(150,170) }
       g.add content $replace($+($g(content),$chr($1)),$chr(32),$chr(42))
       g.content.clear
       g.text.content $iif($g(content.limit),$+($str($chr(46),3),$right($g(content),$g(content.lenght))),$g(content))
   }
       if $g.key.backspace($1) {
       g.del.w content
       g.content.clear
       g.delay.h delay2 1 600 g.content.info
       g.delay.h blink.content 0 600 g.blink.content
       }
   }
 }

alias g.buttons {
    if $g.button.add { g.add.file }
    if $g.button.clip { g.clip }
    if $g.button.key { g.key }
    if $g.button.read { g.read }
    if $g.button.usb { g.usb }
    if $g.button.send { g.server.hello }
    if $g.button.settings { g.cmd notepad $g.settings | g.delay settings 0 1 g.settings.auth }
    if $g.content { g.content.sclick }
    if $g.destination { g.destination.sclick }
}

alias g.mail.setup {
  if $g.settings.read(tls) == yes && !$g.mail.auth { halt }
  g.add.file 1
  g.settings.auth.read
  g.mail.send $g.mail.settings
  g.on
}

alias g.settings.auth {
    if $g.settings.read(auth-user) && $g.settings.read(auth-key) {
    g.delay settings off
    g.mail.authfile.remove
    g.enigma auth-user $g.settings.read(auth-user)
    g.delay delay 1 1 g.enigma auth-key $g.settings.read(auth-key)
    g.delay delay2 1 1 writeini $g.settings settings auth-user $chr(13)
    g.delay delay3 1 1 writeini $g.settings settings auth-key $chr(13)
 }
}

alias g.settings.auth.read {
 if $g.mail.auth {
  g.talk.shake.key.reverse $g.mail.auth.file(user)
  g.add mail.auth.user $g(g.talk) | g.del g.talk
  g.talk.shake.key.reverse $g.mail.auth.file(key)
  g.add mail.auth.key $g(g.talk) | g.del g.talk
  }
   else { halt }
}

alias g.usb.select {
  g.del removable.multi
    if !$g.disk.removable(0) { unset %g.usb | halt }
      if $g.disk.removable(0) == 1 { set %g.usb $g.disk.removable(1) }
          else {
          g.add removable.multi $sdir($g.disk.removable(1),Select removable disk,Select removable disk)
          if $disk($g(removable.multi)).type == removable { set %g.usb $g(removable.multi) }
              else { halt }
      }
}

alias g.read {
 g.add read $sfile($g.files,Select key file,Select key file)
  if $g.between($gettok($g(read),$numtok($g(read),46),46),3,13) || !$exists($+($g.path.noext($g(read)),.ghost)) { halt }
   if $right($g(read),6) == .ghost { g.add read $g.key.file($g(read)) }

      g.talk.shake.key.reverse $g(read)
      notepad
      g.delay read 1 2 g.keyboard $g(g.talk)
      g.delay read2 1 3 g.del.w g.talk
}

alias g.key.file {
  g.add key.file $+($findfile($nofile($1),$+($nopath($g.noext($1)),*),1),*,$findfile($nofile($1),$+($nopath($g.noext($1)),*),2))
   if .ghost isin $gettok($g(key.file),1,42) { return $gettok($g(key.file),2,42) }
    else { return $gettok($g(key.file),1,42) }
}

alias g.destination.sclick {
    g.del blink.content
    g.delay blink.content off
    g.delay.h delay 1 600 g.rectfull 15245824 1 55 140 4 34
    g.delay.h blink.destination 0 600 g.blink.destination
}

alias g.content.sclick {
    g.del blink.destination
    g.delay blink.destination off
    g.delay.h delay 1 600 g.rectfull 15245824 1 55 50 4 34
    g.delay.h blink.content 0 600 g.blink.content
}

alias g.add.file {
    if $len($g(content)) {
    g.add name.file $iif($chr(59) isin $g(destination) || $g.destination.valid || !$len($g(destination)),$upper($+($r(a,f),$r(1,9),$r(a,f),$r(1,9),$r(a,f),$r(1,9))),$g(destination))
    set %name.file $g(name.file)
    g.enigma $g(name.file) $g(content)
      if !$1 { g.on }
        if $exists($+($g.files,%name.file,.ghost)) { g.run $+($g.files,$iif(!%g.usb,%name.file),$iif(!%g.usb,.ghost)) }
          unset %g.usb
    }
      else { halt }
}

alias g.clip {
  if !$g(clip) {
  g.add clip 1
  g.button.img.clip.on
  }
   else {
   g.del clip
   g.button.img.clip
   }
}

alias g.key {
  if !$g(key) {
  g.add key 1
  g.button.img.key.on
  }
   else {
   g.del key
   g.button.img.key
   }
}

alias g.shade {
 g.add g.shade.name $r(1111,9999)
 g.add $+(g.shade.num.,$g(g.shade.name)) $1
 g.add $+(g.shade.speed.,$g(g.shade.name)) 1

  while $g($+(g.shade.num.,$g(g.shade.name))) <= $2 {
  $+(.timersw.g.shade.,$g($+(g.shade.num.,$g(g.shade.name)))) -h 1 $calc($g($+(g.shade.speed.,$g(g.shade.name))) * $3) g.img $4 $5 $+($g.imgs($+($6,_)),$ntonn($g($+(g.shade.num.,$g(g.shade.name)))),.,png))
  g.inc $+(g.shade.num.,$g(g.shade.name))
  g.inc $+(g.shade.speed.,$g(g.shade.name))
  }
      g.del $+(g.shade.num.,$g(g.shade.name))
      g.del $+(g.shade.speed.,$g(g.shade.name))
}

alias g.on {
    g.delay.off.all
    g.memory
    g.ui
}

 alias g.ui {
  var %ui 1
  var %ui.list window-background-frame.destination-frame.content-button.img.add-button.img.read-button.img.settings-button.img.usb-button.img.send-button.img.clip-button.img.key-destination.info-content.info-mouseover-memory-transparency

    while %ui <= 16 {
    $+(g.,$gettok(%ui.list,%ui,45))
    inc %ui
    }
 }

alias g.mouseover.add {
 if $g.button.add && !$g(mouseover.add) {
 g.add mouseover.add 1
 g.button.shade.add
 }
    if !$g.button.add && $g(mouseover.add) {
    g.del mouseover.add
    g.button.refresh
   }
}

alias g.button.refresh {
 g.button.img.add
 g.button.img.read
 g.button.img.settings
 g.button.img.usb
 g.button.img.send
}

alias g.mouseover.read {
    if $g.button.read && !$g(mouseover.read) {
    g.button.refresh
    g.add mouseover.read 1
    g.button.shade.read
 }
      if !$g.button.read && $g(mouseover.read) {
      g.del mouseover.read
      g.button.refresh
   }
}

alias g.mouseover.settings {
    if $g.button.settings && !$g(mouseover.settings) {
    g.button.refresh
    g.add mouseover.settings 1
    g.button.shade.settings
 }
      if !$g.button.settings && $g(mouseover.settings) {
      g.del mouseover.settings
      g.button.refresh
   }
}

alias g.mouseover.usb {
    if $g.button.usb && !$g(mouseover.usb) {
    g.button.refresh
    g.add mouseover.usb 1
    g.button.shade.usb
 }
      if !$g.button.usb && $g(mouseover.usb) {
      g.del mouseover.usb
      g.button.refresh
    }
 }

 alias g.mouseover.send {
      if $g.button.send && !$g(mouseover.send) {
      g.button.refresh
      g.add mouseover.send 1
      g.button.shade.send
  }
      if !$g.button.send && $g(mouseover.send) {
      g.del mouseover.send
      g.button.refresh
     }
  }

alias g.mouseover {
    g.delay.h sclick.add 0 100 g.mouseover.add
    g.delay.h sclick.read 0 100 g.mouseover.read
    g.delay.h sclick.settings 0 100 g.mouseover.settings
    g.delay.h sclick.usb 0 100 g.mouseover.usb
    g.delay.h sclick.send 0 100 g.mouseover.send
    g.delay.h hw.lock 0 30 g.wh.lock
    g.delay.h blink.destination 0 600 g.blink.destination
}

alias g.blink.destination {
    g.inc blink.destination
    g.rectfull $iif($g.pair($g(blink.destination)),16777215,15245824) 1 55 50 4 34
}

alias g.blink.content {
    g.inc blink.content
    g.rectfull $iif($g.pair($g(blink.content)),16777215,15245824) 1 55 140 4 34
}

alias g.edit.limit {
  g.add destination.limit $1

   while $g(destination.limit) <= $2 {
   if $getdot(@Enigma V2,577,$g(destination.limit)) != 15245824 { return 1 }
   g.inc destination.limit
   }
     return 0
}

alias g.keyboard {
    var %sendkeys $ticks
    .comopen %sendkeys WScript.Shell
    if !$comerr { .comclose %sendkeys $com(%sendkeys,SendKeys,3,bstr,$1-) }
}

alias g.disk.removable {
    g.add removable 1
    g.add removable.partition c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-s-t-u-v-w-x-y-z
    g.del removable.list

  while $g(removable) <= 24 {
  if $exists($+($gettok($g(removable.partition),$g(removable),45),:)) && $disk($+($gettok($g(removable.partition),$g(removable),45),:)).type == removable { g.add removable.list $+($g(removable.list),$gettok($g(removable.partition),$g(removable),45),:-) }
  g.inc removable
  }
    if $1 <= 0 && $1 != * { return $numtok($g(removable.list),45)  }
     elseif $1 != * { return $gettok($g(removable.list),$1,45) }
      if $1 == * { return $gettok($g(removable.list),$numtok($g(removable.list),45),45) }
}

alias g.mail.send {
  var %com $+(cmd,$ticks) | .comopen %com Wscript.Shell
  if (!$comerr) .comclose %com $com(%com,run,1,bstr,cmd.exe /c $g.mail $1-,uint,7,bool,true)
  }

alias g.cmd {
    var %com2 $+(cmd,$ticks) | .comopen %com2 Wscript.Shell
    if (!$comerr) .comclose %com2 $com(%com2,run,1,bstr,cmd.exe /c $1-,uint,7,bool,true)
    }

alias g.mail.authfile.remove {
  remove.if $g.mail.auth.file(user)
  remove.if $g.mail.auth.file(key)
  remove.if $+($g.files,auth-user.ghost)
  remove.if $+($g.files,auth-key.ghost)
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias g.sock.init {
    sockwrite -nt $1 GET $sock($sockname).mark HTTP/1.1
    sockwrite -n $1 Host: $sock($sockname).addr
    sockwrite -n $1 User-Agent: */*
    sockwrite -n $1 Connection: Close
    sockwrite -nt $1 $crlf
}

on *:sockopen:hello:if !$sockerr { g.sock.init hello } | else { g.del server.status | halt }
on *:sockclose:hello:if !$g(server.status) { g.on }

on *:sockread:hello:{
 set %hello
 sockread %hello
  if $len(%hello) { g.add server.status 1 | sockclose hello | g.mail.setup }
   else { g.del server.status }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias g.enigma {
    enigma.create.key
    enigma.invisible.  $1 $2-
    enigma.shake.key $1
}

alias enigma.create.key {
    if !$hget(g) { g.memory }
      g.add g.talk.char 32
      g.add g.talk.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
      g.add g.talk.space.left 94

  while $g(g.talk.char) <= 126 {
  g.add g.talk.space.r $r(1,$g(g.talk.space.left))
  g.add g.talk.space.r $ntonn($g(g.talk.space.r))
  g.add g.talk.key $+($g(g.talk.key),$ntonn($gettok($g(g.talk.space),$g(g.talk.space.r),45)),-)
  g.add g.talk.space $deltok($g(g.talk.space),$ntonn($g(g.talk.space.r)),45)
  g.inc g.talk.char
  g.dec g.talk.space.left
  }
 }

alias enigma.shake.key {
    if $len($remove($g(g.talk.key),$chr(45))) == 188 && $remove($g(g.talk.key),$chr(45)) isnum {
    g.del g.talk.key.shake
    g.add g.talk.convert 1
    g.add g.talk.shake $r(3,12)
    g.add g.talk.key.shake $g(g.talk.key)

  while $g(g.talk.convert) <= $g(g.talk.shake) {
  g.add g.talk.key.shake $encode($g(g.talk.key.shake),m)
  g.inc g.talk.convert
  }
      g.add shake $g(g.talk.shake)
      write $+($g.files,$1,.,$g(g.talk.shake)) $g(g.talk.key.shake)
 }
}

alias enigma.invisible.  {
  g.add length.  1

    while $g(length. ) <= $len($2-) {
    write $+($g.files,$1,.ghost) $str($chr(160),$gettok($g(g.talk.key),$calc($asc($mid($2-,$g(length. ),1)) -32),45))
    g.inc length. 
    }
 }

 alias hash.find {
  if $hget($1,$2) {
  g.del hash.result
  g.add hash.find 1

  while $g(hash.find) <= 94 {
  if $gettok($hget($1,$2),$g(hash.find),45) == $3 { g.add hash.result $g(hash.find) }
  g.inc hash.find
  }
    return $g(hash.result)
 }
}

alias g.talk.shake.reverse {
 if $len($remove($g(g.talk.key),$chr(45))) == 188 && $remove($g(g.talk.key),$chr(45)) isnum {
 g.add g.talk.reverse 1

  while $g(g.talk.reverse) <= $lines($1) {
  g.add g.talk $+($g(g.talk),$chr($calc($hash.find(g,g.talk.key,$len($read($1,$g(g.talk.reverse)))) +32)))
  g.inc g.talk.reverse
  }
 }
}

alias g.talk.shake.key.reverse {
 if $exists($1) {
 g.add g.talk.shake.reverse 1
 g.add g.talk.key $decode($read($1,1),m)

  while $g(g.talk.shake.reverse) <= $calc($gettok($nopath($1),2,46) -1) {
  g.add g.talk.key $decode($g(g.talk.key),m)
  g.inc g.talk.shake.reverse
  }
      g.talk.shake.reverse $+($nofile($1),$gettok($nopath($1),1,46),.ghost)
 }
}

alias  .delete {
 g.add  .delete $findfile($g.files,$+($1,.*),0)

  while $g( .delete) >= 1 {
  .remove $findfile($g.files,$+($1,.*),$g( .delete))
  g.dec  .delete
 }
   g.del  .delete
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;YOU CAN'T ONLY COPY THE SCRIPT AND LOAD IT IN A DOCUMENT;;;;;;;;;;;;
;;;THE UI CONTAIN IMAGE FILE AND THE MAIL CLIENT ARE IN THE ARCHIVE;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
USE THE DOWNLOAD LINK : https://ufile.io/fww4jvsl
Optional Paste Settings
Category:
Tags:
Syntax Highlighting:
Paste Expiration:
Paste Exposure:
Folder:
PasswordNEW
Disabled
Burn after read NEW
Paste Name / Title:
Hello Guest
You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login