Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;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 : [email protected];;;;;;;;;;;;;;;;;;;;;;
- ;;;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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement