Radix Posted November 22, 2022 Share Posted November 22, 2022 (edited) Greetings! I was here writing some code when it occurred to me to unarchive my GUI in AutoIt3, which was a prototype I wrote to provide a graphical interface for non-techies to understand how the main tool works. After that I discontinued the prototype, but it retains basic public key cryptography features and is also compatible with my tools. It deals strictly with ephemeral elliptic curve-based public keys and bulk encryption. I called the prototype ROOTTk, and the tool is currently called the AUTO Toolkit, written in Autoit. expandcollapse popup; #INDEX# ======================================================================================================================= ; Title .........: AUTO Toolkit Graphical User Interface ; AutoIt Version : 3.3.12.0 ; Language ......: English ; Description ...: Handler/Wrapper for ROOTTk Golang Tool Functions. ; Author(s) .....: Pedro F. Albanese <pedroalbanese@hotmail.com> ; =============================================================================================================================== #NoTrayIcon #include <GUI.au3> #include <MsgBoxConstants.au3> Main() Func Main() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 ; Generate Keypair (DH) Global $sRead = GUICtrlRead($Edit1) Global $rRead = GUICtrlRead($Edit2) Switch GUICtrlRead($Combo1) Case "ECDSA (Secp256r1)" $iAlgorithm = "ecdsa" Case "Brainpool256r1" $iAlgorithm = "brainpool256r1" Case "Brainpool256t1" $iAlgorithm = "brainpool256t1" Case "Brainpool512r1" $iAlgorithm = "brainpool512r1" Case "Brainpool512t1" $iAlgorithm = "brainpool512t1" Case "Brainpool160t1" $iAlgorithm = "brainpool160t1" Case "Brainpool192t1" $iAlgorithm = "brainpool192t1" Case "X25519" $iAlgorithm = "x25519" Case "SM2" $iAlgorithm = "sm2p256v1" Case "SM9" $iAlgorithm = "sm9p256v1" Case "GOST R 34.10-2012_A" $iAlgorithm = "ecgost2012A" Case "GOST R 34.10-2012_B" $iAlgorithm = "ecgost2012B" Case "GOST R 34.10-2001_A" $iAlgorithm = "ecgost2001A" Case "GOST R 34.10-2001_B" $iAlgorithm = "ecgost2001B" Case "GOST R 34.10-2001_C" $iAlgorithm = "ecgost2001C" Case "Fp256BN" $iAlgorithm = "fp256bn" Case "Fp512BN" $iAlgorithm = "fp512bn" Case "ANSSI FRP256v1" $iAlgorithm = "frp256v1" Case "Secp160k1" $iAlgorithm = "secp160k1" Case "Secp192k1" $iAlgorithm = "secp192k1" Case "Secp256k1" $iAlgorithm = "secp256k1" Case "NUMSP256d1" $iAlgorithm = "numsp256d1" Case "NUMSP512d1" $iAlgorithm = "numsp512d1" Case "Oakley 192-bit" $iAlgorithm = "oakley192" Case "Oakley 256-bit" $iAlgorithm = "oakley256" Case "ANSI x9.62 Prime192v1" $iAlgorithm = "prime192v1" Case "ANSI x9.62 Prime192v2" $iAlgorithm = "prime192v2" Case "ANSI x9.62 Prime192v3" $iAlgorithm = "prime192v3" Case "SEC2v1 Secp160r1" $iAlgorithm = "secp160r1" Case "SEC2v1 Secp160r2" $iAlgorithm = "secp160r2" EndSwitch If $sRead = "" and $rRead = "" Then $CMD = "edgetk -keygen -info Keypair -algorithm " & $iAlgorithm & " | edgetk -util unix2dos > " & @TempDir & "keypair.txt" ElseIf $sRead not = "" and $rRead = "" Then $CMD = "edgetk -keygen -info Keypair -algorithm " & $iAlgorithm & " -key """ & $sRead & """ | edgetk -util unix2dos > " & @TempDir & "keypair.txt" Else $CMD = "edgetk -keygen -info Keypair -algorithm " & $iAlgorithm & " | edgetk -util unix2dos > " & @TempDir & "keypair.txt" EndIf RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $PrivateKey = IniRead(@TempDir & "keypair.txt", "Keypair", "Private", "Not found.") $PublicKey = IniRead(@TempDir & "keypair.txt", "Keypair", "Public", "Not found.") GUICtrlSetData($Edit1, $PrivateKey) GUICtrlSetData($Edit2, $PublicKey) ; FileDelete(@TempDir & "keypair.txt") $CMD = "edgetk -shred " & @TempDir & "keypair.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Case $Button2 Switch GUICtrlRead($Combo1) Case "ECDSA (Secp256r1)" $iAlgorithm = "ecdsa" Case "Brainpool256r1" $iAlgorithm = "brainpool256r1" Case "Brainpool256t1" $iAlgorithm = "brainpool256t1" Case "Brainpool512r1" $iAlgorithm = "brainpool512r1" Case "Brainpool512t1" $iAlgorithm = "brainpool512t1" Case "Brainpool160t1" $iAlgorithm = "brainpool160t1" Case "Brainpool192t1" $iAlgorithm = "brainpool192t1" Case "X25519" $iAlgorithm = "x25519" Case "SM2" $iAlgorithm = "sm2p256v1" Case "SM9" $iAlgorithm = "sm9p256v1" Case "GOST R 34.10-2012_A" $iAlgorithm = "ecgost2012A" Case "GOST R 34.10-2012_B" $iAlgorithm = "ecgost2012B" Case "GOST R 34.10-2001_A" $iAlgorithm = "ecgost2001A" Case "GOST R 34.10-2001_B" $iAlgorithm = "ecgost2001B" Case "GOST R 34.10-2001_C" $iAlgorithm = "ecgost2001C" Case "Fp256BN" $iAlgorithm = "fp256bn" Case "Fp512BN" $iAlgorithm = "fp512bn" Case "ANSSI FRP256v1" $iAlgorithm = "frp256v1" Case "Koblitz (Secp160k1)" $iAlgorithm = "secp160k1" Case "Koblitz (Secp192k1)" $iAlgorithm = "secp1921" Case "Koblitz (Secp256k1)" $iAlgorithm = "secp256k1" Case "NUMSP256d1" $iAlgorithm = "numsp256d1" Case "NUMSP512d1" $iAlgorithm = "numsp512d1" Case "Oakley 192-bit" $iAlgorithm = "oakley192" Case "Oakley 256-bit" $iAlgorithm = "oakley256" Case "ANSI x9.62 Prime192v1" $iAlgorithm = "prime192v1" Case "ANSI x9.62 Prime192v2" $iAlgorithm = "prime192v2" Case "ANSI x9.62 Prime192v3" $iAlgorithm = "prime192v3" Case "SEC2v1 Secp160r1" $iAlgorithm = "secp160r1" Case "SEC2v1 Secp160r2" $iAlgorithm = "secp160r2" EndSwitch Global $sRead = GUICtrlRead($Edit1) Global $xRead = GUICtrlRead($Edit3) $CMD = "echo [Keypair] > " & @TempDir & "keypair.txt & edgetk -pkeyutl derive -algorithm " & $iAlgorithm & " -key " & $sRead & " -pub " & $xRead & " | edgetk -util unix2dos >> " & @TempDir & "keypair.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $SharedSecret = IniRead(@TempDir & "keypair.txt", "Keypair", "Shared", "Error.") GUICtrlSetData($Edit4, $SharedSecret) ; FileDelete(@TempDir & "keypair.txt") $CMD = "edgetk -shred " & @TempDir & "keypair.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Case $Button3 ClipPut(GUICtrlRead($Edit1)) Case $Button4 ClipPut(GUICtrlRead($Edit2)) Case $Button5 Local $sData = ClipGet() GUICtrlSetData($Edit3, $sData) Case $Button6 ClipPut(GUICtrlRead($Edit4)) Case $Button7 ; Generate Keypair (Signature) Global $sRead = GUICtrlRead($Edit5) Global $rRead = GUICtrlRead($Edit6) Switch GUICtrlRead($Combo2) Case "ECDSA (Secp256r1)" $idCurve = "ECDSA" $iAlgorithm = "ecdsa" Case "Brainpool256r1" $idCurve = "BRAINPOOL256R1" $iAlgorithm = "brainpool256r1" Case "Brainpool256t1" $idCurve = "BRAINPOOL256T1" $iAlgorithm = "brainpool256t1" Case "Brainpool512r1" $idCurve = "BRAINPOOL512R1" $iAlgorithm = "brainpool512r1" Case "Brainpool512t1" $idCurve = "BRAINPOOL512T1" $iAlgorithm = "brainpool512t1" Case "Brainpool160t1" $idCurve = "BRAINPOOL160T1" $iAlgorithm = "brainpool160t1" Case "Brainpool192t1" $idCurve = "BRAINPOOL192T1" $iAlgorithm = "brainpool192t1" Case "ED25519" $idCurve = "ED25519" $iAlgorithm = "ed25519" Case "SM2" $idCurve = "SM2P256V1" $iAlgorithm = "sm2p256v1" Case "SM9" $idCurve = "SM9P256V1" $iAlgorithm = "sm9p256v1" Case "GOST R 34.10-2012_A" $idCurve = "ECGOST2012A" $iAlgorithm = "ecgost2012A" Case "GOST R 34.10-2012_B" $idCurve = "ECGOST2012B" $iAlgorithm = "ecgost2012B" Case "GOST R 34.10-2001_A" $idCurve = "ECGOST2001A" $iAlgorithm = "ecgost2001A" Case "GOST R 34.10-2001_B" $idCurve = "ECGOST2001B" $iAlgorithm = "ecgost2001B" Case "GOST R 34.10-2001_C" $idCurve = "ECGOST2001C" $iAlgorithm = "ecgost2001C" Case "Fp256BN" $idCurve = "FP256BN" $iAlgorithm = "fp256bn" Case "Fp512BN" $idCurve = "FP512BN" $iAlgorithm = "fp512bn" Case "ANSSI FRP256v1" $idCurve = "FRP256V1" $iAlgorithm = "frp256v1" Case "Koblitz (Secp160k1)" $idCurve = "SECP160K1" $iAlgorithm = "secp160k1" Case "Koblitz (Secp192k1)" $idCurve = "SECP192K1" $iAlgorithm = "secp192k1" Case "Koblitz (Secp256k1)" $idCurve = "SECP256K1" $iAlgorithm = "secp256k1" Case "NUMSP256d1" $idCurve = "NUMSP256D1" $iAlgorithm = "numsp256d1" Case "NUMSP512d1" $idCurve = "NUMSP512D1" $iAlgorithm = "numsp512d1" Case "Oakley 192-bit" $idCurve = "OAKLEY192" $iAlgorithm = "oakley192" Case "Oakley 256-bit" $idCurve = "OAKLEY256" $iAlgorithm = "oakley256" Case "ANSI x9.62 Prime192v1" $idCurve = "PRIME192V1" $iAlgorithm = "prime192v1" Case "ANSI x9.62 Prime192v2" $idCurve = "PRIME192V2" $iAlgorithm = "prime192v2" Case "ANSI x9.62 Prime192v3" $idCurve = "PRIME192V3" $iAlgorithm = "prime192v3" Case "SEC2v1 Secp160r1" $idCurve = "SECP160R1" $iAlgorithm = "secp160r1" Case "SEC2v1 Secp160r2" $idCurve = "SECP160R2" $iAlgorithm = "secp160r2" EndSwitch If $sRead = "" and $rRead = "" Then $CMD = "edgetk -keygen -info Keypair -algorithm " & $iAlgorithm & " | edgetk -util unix2dos > " & @TempDir & "keypair.txt" ElseIf $sRead not = "" and $rRead = "" Then $CMD = "edgetk -keygen -info Keypair -algorithm " & $iAlgorithm & " -key """ & $sRead & """ | edgetk -util unix2dos > " & @TempDir & "keypair.txt" Else $CMD = "edgetk -keygen -info Keypair -algorithm " & $iAlgorithm & " | edgetk -util unix2dos > " & @TempDir & "keypair.txt" EndIf RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $PrivateKey = IniRead(@TempDir & "keypair.txt", "Keypair", "Private", "Not found.") $PublicKey = IniRead(@TempDir & "keypair.txt", "Keypair", "Public", "Not found.") GUICtrlSetData($Edit5, $PrivateKey) GUICtrlSetData($Edit6, $PublicKey) ; FileDelete(@TempDir & "keypair.txt") $CMD = "edgetk -shred " & @TempDir & "keypair.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Case $Button8 ; Sign Switch GUICtrlRead($Combo2) Case "ECDSA (Secp256r1)" $idCurve = "ECDSA" $iAlgorithm = "ecdsa" Case "Brainpool256r1" $idCurve = "BRAINPOOL256R1" $iAlgorithm = "brainpool256r1" Case "Brainpool256t1" $idCurve = "BRAINPOOL256T1" $iAlgorithm = "brainpool256t1" Case "Brainpool512r1" $idCurve = "BRAINPOOL512R1" $iAlgorithm = "brainpool512r1" Case "Brainpool512t1" $idCurve = "BRAINPOOL512T1" $iAlgorithm = "brainpool512t1" Case "Brainpool160t1" $idCurve = "BRAINPOOL160T1" $iAlgorithm = "brainpool160t1" Case "Brainpool192t1" $idCurve = "BRAINPOOL192T1" $iAlgorithm = "brainpool192t1" Case "ED25519" $idCurve = "ED25519" $iAlgorithm = "ed25519" Case "SM2" $idCurve = "SM2P256V1" $iAlgorithm = "sm2p256v1" Case "SM9" $idCurve = "SM9P256V1" $iAlgorithm = "sm9p256v1" Case "GOST R 34.10-2012_A" $idCurve = "ECGOST2012A" $iAlgorithm = "ecgost2012A" Case "GOST R 34.10-2012_B" $idCurve = "ECGOST2012B" $iAlgorithm = "ecgost2012B" Case "GOST R 34.10-2001_A" $idCurve = "ECGOST2001A" $iAlgorithm = "ecgost2001A" Case "GOST R 34.10-2001_B" $idCurve = "ECGOST2001B" $iAlgorithm = "ecgost2001B" Case "GOST R 34.10-2001_C" $idCurve = "ECGOST2001C" $iAlgorithm = "ecgost2001C" Case "Fp256BN" $idCurve = "FP256BN" $iAlgorithm = "fp256bn" Case "Fp512BN" $idCurve = "FP512BN" $iAlgorithm = "fp512bn" Case "ANSSI FRP256v1" $idCurve = "FRP256V1" $iAlgorithm = "frp256v1" Case "Koblitz (Secp160k1)" $idCurve = "SECP160K1" $iAlgorithm = "secp160k1" Case "Koblitz (Secp192k1)" $idCurve = "SECP192K1" $iAlgorithm = "secp192k1" Case "Koblitz (Secp256k1)" $idCurve = "SECP256K1" $iAlgorithm = "secp256k1" Case "NUMSP256d1" $idCurve = "NUMSP256D1" $iAlgorithm = "numsp256d1" Case "NUMSP512d1" $idCurve = "NUMSP512D1" $iAlgorithm = "numsp512d1" Case "Oakley 192-bit" $idCurve = "OAKLEY192" $iAlgorithm = "oakley192" Case "Oakley 256-bit" $idCurve = "OAKLEY256" $iAlgorithm = "oakley256" Case "ANSI x9.62 Prime192v1" $idCurve = "PRIME192V1" $iAlgorithm = "prime192v1" Case "ANSI x9.62 Prime192v2" $idCurve = "PRIME192V2" $iAlgorithm = "prime192v2" Case "ANSI x9.62 Prime192v3" $idCurve = "PRIME192V3" $iAlgorithm = "prime192v3" Case "SEC2v1 Secp160r1" $idCurve = "SECP160R1" $iAlgorithm = "secp160r1" Case "SEC2v1 Secp160r2" $idCurve = "SECP160R2" $iAlgorithm = "secp160r2" EndSwitch Switch GUICtrlRead($Combo3) Case "BLAKE2b256" $idHash = "BLAKE2B256" $iHash = "blake2b256" Case "BLAKE2b512" $idHash = "BLAKE2B512" $iHash = "blake2b512" Case "BLAKE2s256" $idHash = "BLAKE2S256" $iHash = "blake2s256" Case "SHA256" $idHash = "SHA256" $iHash = "sha256" Case "SHA512" $idHash = "SHA512" $iHash = "sha512" Case "SM3" $idHash = "SM3" $iHash = "sm3" Case "Streebog256" $idHash = "STREEBOG256" $iHash = "streebog256" Case "Streebog512" $idHash = "STREEBOG512" $iHash = "streebog512" Case "Whirlpool" $idHash = "WHIRLPOOL" $iHash = "whirlpool" Case "CubeHash" $idHash = "CUBEHASH" $iHash = "cubehash" Case "SHA3_256" $idHash = "SHA3_256" $iHash = "sha3_256" Case "SHA512_256" $idHash = "SHA512_256" $iHash = "sha512_256" Case "SHA3_512" $idHash = "SHA3_512" $iHash = "sha3_512" Case "RIPEMD128" $idHash = "RMD128" $iHash = "rmd128" Case "RIPEMD160" $idHash = "RMD160" $iHash = "rmd160" Case "RIPEMD256" $idHash = "RMD256" $iHash = "rmd256" Case "GOST94-CryptoPro" $idHash = "GOST94" $iHash = "gost94" Case "LSH256" $idHash = "LSH256" $iHash = "lsh256" Case "LSH512_256" $idHash = "LSH512_256" $iHash = "lsh512_256" Case "LSH512" $idHash = "LSH512" $iHash = "lsh512" Case "Keccak256" $idHash = "KECCAK256" $iHash = "keccak256" Case "Keccak512" $idHash = "KECCAK512" $iHash = "keccak512" Case "Skein256" $idHash = "SKEIN256" $iHash = "skein256" Case "Skein512_256" $idHash = "SKEIN512_256" $iHash = "skein512_256" Case "Skein512" $idHash = "SKEIN512" $iHash = "skein512" Case "Tiger" $idHash = "TIGER" $iHash = "tiger" Case "Groestl" $idHash = "GROESTL" $iHash = "groestl" Case "JH" $idHash = "JH" $iHash = "jh" EndSwitch Global $sRead = GUICtrlRead($Edit5) Global $rRead = GUICtrlRead($Edit6) Global $xRead = GUICtrlRead($Edit7) Global $sFile = GUICtrlRead($Input1) Select Case GUICtrlRead($Radio1) = $GUI_CHECKED $radioval = "File" Case GUICtrlRead($Radio2) = $GUI_CHECKED $radioval = "String" EndSelect If $radioval = "File" Then $CMD = "echo [Signature] > " & @TempDir & "Sign.txt & edgetk -sign -algorithm " & $iAlgorithm & " -md " & $iHash & " -key " & $sRead & " < " & $sFile & " | edgetk -util unix2dos >> " & @TempDir & "Sign.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) ElseIf $radioval = "String" Then $CMD = "echo [Signature] > " & @TempDir & "Sign.txt & busybox echo -n " & $xRead & " | edgetk -sign -algorithm " & $iAlgorithm & " -md " & $iHash & " -key " & $sRead & " | edgetk -util unix2dos >> " & @TempDir & "Sign.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) EndIf If $idCurve = "ED25519" Then $id = $idCurve Else $id = $idCurve & "-" & $idHash EndIf $Signature = IniRead(@TempDir & "Sign.txt", "Signature", $id, "Error.") GUICtrlSetData($Edit8, $Signature) FileDelete(@TempDir & "Sign.txt") Case $Button9 ClipPut(GUICtrlRead($Edit5)) Case $Button10 Local $sData = ClipGet() GUICtrlSetData($Edit6, $sData) Case $Button38 ClipPut(GUICtrlRead($Edit6)) Case $Button14 ClipPut(GUICtrlRead($Edit8)) Case $Button13 Local $sData = ClipGet() GUICtrlSetData($Edit8, $sData) Case $Button12 ; Verify Switch GUICtrlRead($Combo2) Case "ECDSA (Secp256r1)" $idCurve = "ECDSA" $iAlgorithm = "ecdsa" Case "Brainpool256r1" $idCurve = "BRAINPOOL256R1" $iAlgorithm = "brainpool256r1" Case "Brainpool256t1" $idCurve = "BRAINPOOL256T1" $iAlgorithm = "brainpool256t1" Case "Brainpool512r1" $idCurve = "BRAINPOOL512R1" $iAlgorithm = "brainpool512r1" Case "Brainpool512t1" $idCurve = "BRAINPOOL512T1" $iAlgorithm = "brainpool512t1" Case "Brainpool160t1" $idCurve = "BRAINPOOL160T1" $iAlgorithm = "brainpool160t1" Case "Brainpool192t1" $idCurve = "BRAINPOOL192T1" $iAlgorithm = "brainpool192t1" Case "ED25519" $idCurve = "ED25519" $iAlgorithm = "ed25519" Case "SM2" $idCurve = "SM2P256V1" $iAlgorithm = "sm2p256v1" Case "SM9" $idCurve = "SM9P256V1" $iAlgorithm = "sm9p256v1" Case "GOST R 34.10-2012_A" $idCurve = "ECGOST2012A" $iAlgorithm = "ecgost2012A" Case "GOST R 34.10-2012_B" $idCurve = "ECGOST2012B" $iAlgorithm = "ecgost2012B" Case "GOST R 34.10-2001_A" $idCurve = "ECGOST2001A" $iAlgorithm = "ecgost2001A" Case "GOST R 34.10-2001_B" $idCurve = "ECGOST2001B" $iAlgorithm = "ecgost2001B" Case "GOST R 34.10-2001_C" $idCurve = "ECGOST2001C" $iAlgorithm = "ecgost2001C" Case "Fp256BN" $idCurve = "FP256BN" $iAlgorithm = "fp256bn" Case "Fp512BN" $idCurve = "FP512BN" $iAlgorithm = "fp512bn" Case "ANSSI FRP256v1" $idCurve = "FRP256V1" $iAlgorithm = "frp256v1" Case "Koblitz (Secp160k1)" $idCurve = "SECP160K1" $iAlgorithm = "secp160k1" Case "Koblitz (Secp192k1)" $idCurve = "SECP192K1" $iAlgorithm = "secp192k1" Case "Koblitz (Secp256k1)" $idCurve = "SECP256K1" $iAlgorithm = "secp256k1" Case "NUMSP256d1" $idCurve = "NUMSP256D1" $iAlgorithm = "numsp256d1" Case "NUMSP512d1" $idCurve = "NUMSP512D1" $iAlgorithm = "numsp512d1" Case "Oakley 192-bit" $idCurve = "OAKLEY192" $iAlgorithm = "oakley192" Case "Oakley 256-bit" $idCurve = "OAKLEY256" $iAlgorithm = "oakley256" Case "ANSI x9.62 Prime192v1" $idCurve = "PRIME192V1" $iAlgorithm = "prime192v1" Case "ANSI x9.62 Prime192v2" $idCurve = "PRIME192V2" $iAlgorithm = "prime192v2" Case "ANSI x9.62 Prime192v3" $idCurve = "PRIME192V3" $iAlgorithm = "prime192v3" Case "SEC2v1 Secp160r1" $idCurve = "SECP160R1" $iAlgorithm = "secp160r1" Case "SEC2v1 Secp160r2" $idCurve = "SECP160R2" $iAlgorithm = "secp160r2" EndSwitch Switch GUICtrlRead($Combo3) Case "BLAKE2b256" $idHash = "BLAKE2B256" $iHash = "blake2b256" Case "BLAKE2b512" $idHash = "BLAKE2B512" $iHash = "blake2b512" Case "BLAKE2s256" $idHash = "BLAKE2S256" $iHash = "blake2s256" Case "SHA256" $idHash = "SHA256" $iHash = "sha256" Case "SHA512" $idHash = "SHA512" $iHash = "sha512" Case "SM3" $idHash = "SM3" $iHash = "sm3" Case "Streebog256" $idHash = "STREEBOG256" $iHash = "streebog256" Case "Streebog512" $idHash = "STREEBOG512" $iHash = "streebog512" Case "Whirlpool" $idHash = "WHIRLPOOL" $iHash = "whirlpool" Case "SHA3_256" $idHash = "SHA3_256" $iHash = "sha3_256" Case "SHA512_256" $idHash = "SHA512_256" $iHash = "sha512_256" Case "SHA3_512" $idHash = "SHA3_512" $iHash = "sha3_512" Case "RIPEMD128" $idHash = "RMD128" $iHash = "rmd128" Case "RIPEMD160" $idHash = "RMD160" $iHash = "rmd160" Case "RIPEMD256" $idHash = "RMD256" $iHash = "rmd256" Case "GOST94-CryptoPro" $idHash = "GOST94" $iHash = "gost94" Case "LSH256" $idHash = "LSH256" $iHash = "lsh256" Case "LSH512_256" $idHash = "LSH512_256" $iHash = "lsh512_256" Case "LSH512" $idHash = "LSH512" $iHash = "lsh512" Case "Keccak256" $idHash = "KECCAK256" $iHash = "keccak256" Case "Keccak512" $idHash = "KECCAK512" $iHash = "keccak512" Case "Skein256" $idHash = "SKEIN256" $iHash = "skein256" Case "Skein512_256" $idHash = "SKEIN512_256" $iHash = "skein512_256" Case "Skein512" $idHash = "SKEIN512" $iHash = "skein512" Case "Tiger" $idHash = "TIGER" $iHash = "tiger" Case "Groestl" $idHash = "GROESTL" $iHash = "groestl" Case "JH" $idHash = "JH" $iHash = "jh" EndSwitch Global $sRead = GUICtrlRead($Edit5) Global $rRead = GUICtrlRead($Edit6) Global $xRead = GUICtrlRead($Edit7) Global $yRead = GUICtrlRead($Edit8) Global $sFile = GUICtrlRead($Input1) Select Case GUICtrlRead($Radio1) = $GUI_CHECKED $radioval = "File" Case GUICtrlRead($Radio2) = $GUI_CHECKED $radioval = "String" EndSelect If $radioval = "File" Then $CMD = "edgetk -verify -key " & $rRead & " -signature " & $yRead & " -algorithm " & $iAlgorithm & " -md " & $iHash & " < " & $sFile & " > " & @TempDir & "Signature.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) ElseIf $radioval = "String" Then $CMD = "busybox echo -n " & $xRead & " | edgetk -verify -key " & $rRead & " -signature " & $yRead & " -algorithm " & $iAlgorithm & " -md " & $iHash & " > " & @TempDir & "Signature.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) EndIf Local $sFileRead = FileRead(@TempDir & "Signature.txt") MsgBox($MB_SYSTEMMODAL, "", "Signature Verification:" & @CRLF & $sFileRead) FileDelete(@TempDir & "Signature.txt") Case $Button11 Local $sFilePath = FileOpenDialog("Open a file", "", "All files (*.*)") If @error Then ContinueLoop EndIf GUICtrlSetData($Input1, $sFilePath) Case $Button15 ; Generate Keypair for Asymmetric Encryption Global $sRead = GUICtrlRead($Edit9) Global $rRead = GUICtrlRead($Edit10) Switch GUICtrlRead($Combo4) Case "ECDSA (Secp256r1)" $iAlgorithm = "ecdsa" Case "Brainpool256r1" $iAlgorithm = "brainpool256r1" Case "Brainpool256t1" $iAlgorithm = "brainpool256t1" ; Case "Brainpool512r1" ; $iAlgorithm = "brainpool512r1" Case "Brainpool512t1" $iAlgorithm = "brainpool512t1" Case "Brainpool160t1" $iAlgorithm = "brainpool160t1" Case "Brainpool192t1" $iAlgorithm = "brainpool192t1" Case "SM2" $iAlgorithm = "sm2p256v1" Case "SM9" $iAlgorithm = "sm9p256v1" Case "GOST R 34.10-2012_A" $iAlgorithm = "ecgost2012A" Case "GOST R 34.10-2012_B" $iAlgorithm = "ecgost2012B" Case "GOST R 34.10-2001_A" $iAlgorithm = "ecgost2001A" Case "GOST R 34.10-2001_B" $iAlgorithm = "ecgost2001B" Case "GOST R 34.10-2001_C" $iAlgorithm = "ecgost2001C" Case "Fp256BN" $iAlgorithm = "fp256bn" Case "Fp512BN" $iAlgorithm = "fp512bn" Case "ANSSI FRP256v1" $iAlgorithm = "frp256v1" Case "Koblitz (Secp160k1)" $iAlgorithm = "secp160k1" Case "Koblitz (Secp192k1)" $iAlgorithm = "secp192k1" Case "Koblitz (Secp256k1)" $iAlgorithm = "secp256k1" ; Case "NUMSP256d1" ; $iAlgorithm = "numsp256d1" Case "NUMSP512d1" $iAlgorithm = "numsp512d1" Case "Oakley 192-bit" $iAlgorithm = "oakley192" Case "Oakley 256-bit" $iAlgorithm = "oakley256" Case "ANSI x9.62 Prime192v1" $iAlgorithm = "prime192v1" Case "ANSI x9.62 Prime192v2" $iAlgorithm = "prime192v2" Case "ANSI x9.62 Prime192v3" $iAlgorithm = "prime192v3" Case "SEC2v1 Secp160r1" $iAlgorithm = "secp160r1" Case "SEC2v1 Secp160r2" $iAlgorithm = "secp160r2" EndSwitch If $sRead = "" and $rRead = "" Then $CMD = "edgetk -keygen -info Keypair -algorithm " & $iAlgorithm & " | edgetk -util unix2dos > " & @TempDir & "keypair.txt" ElseIf $sRead not = "" and $rRead = "" Then $CMD = "edgetk -keygen -info Keypair -algorithm " & $iAlgorithm & " -key """ & $sRead & """ | edgetk -util unix2dos > " & @TempDir & "keypair.txt" Else $CMD = "edgetk -keygen -info Keypair -algorithm " & $iAlgorithm & " | edgetk -util unix2dos > " & @TempDir & "keypair.txt" EndIf RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $PrivateKey = IniRead(@TempDir & "keypair.txt", "Keypair", "Private", "Not found.") $PublicKey = IniRead(@TempDir & "keypair.txt", "Keypair", "Public", "Not found.") GUICtrlSetData($Edit9, $PrivateKey) GUICtrlSetData($Edit10, $PublicKey) ; FileDelete(@TempDir & "keypair.txt") $CMD = "edgetk -shred " & @TempDir & "keypair.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Case $Button16 ClipPut(GUICtrlRead($Edit9)) Case $Button17 ClipPut(GUICtrlRead($Edit10)) Case $Button21 Local $sData = ClipGet() GUICtrlSetData($Edit10, $sData) Case $Button20 ClipPut(GUICtrlRead($Edit11)) Case $Button22 Local $sData = ClipGet() GUICtrlSetData($Edit11, $sData) Case $Button56 ClipPut(GUICtrlRead($Edit26)) Case $Button55 Local $sData = ClipGet() GUICtrlSetData($Edit26, $sData) Case $Button18 ; Encrypt Switch GUICtrlRead($Combo4) Case "ECDSA (Secp256r1)" $iAlgorithm = "ecdsa" Case "Brainpool256r1" $iAlgorithm = "brainpool256r1" Case "Brainpool256t1" $iAlgorithm = "brainpool256t1" ; Case "Brainpool512r1" ; $iAlgorithm = "brainpool512r1" Case "Brainpool512t1" $iAlgorithm = "brainpool512t1" Case "Brainpool160t1" $iAlgorithm = "brainpool160t1" Case "Brainpool192t1" $iAlgorithm = "brainpool192t1" Case "SM2" $iAlgorithm = "sm2p256v1" Case "SM9" $iAlgorithm = "sm9p256v1" Case "GOST R 34.10-2012_A" $iAlgorithm = "ecgost2012A" Case "GOST R 34.10-2012_B" $iAlgorithm = "ecgost2012B" Case "GOST R 34.10-2001_A" $iAlgorithm = "ecgost2001A" Case "GOST R 34.10-2001_B" $iAlgorithm = "ecgost2001B" Case "GOST R 34.10-2001_C" $iAlgorithm = "ecgost2001C" Case "Fp256BN" $iAlgorithm = "fp256bn" Case "Fp512BN" $iAlgorithm = "fp512bn" Case "ANSSI FRP256v1" $iAlgorithm = "frp256v1" Case "Koblitz (Secp160k1)" $iAlgorithm = "secp160k1" Case "Koblitz (Secp192k1)" $iAlgorithm = "secp192k1" Case "Koblitz (Secp256k1)" $iAlgorithm = "secp256k1" ; Case "NUMSP256d1" ; $iAlgorithm = "numsp256d1" Case "NUMSP512d1" $iAlgorithm = "numsp512d1" Case "Oakley 192-bit" $iAlgorithm = "oakley192" Case "Oakley 256-bit" $iAlgorithm = "oakley256" Case "ANSI x9.62 Prime192v1" $iAlgorithm = "prime192v1" Case "ANSI x9.62 Prime192v2" $iAlgorithm = "prime192v2" Case "ANSI x9.62 Prime192v3" $iAlgorithm = "prime192v3" Case "SEC2v1 Secp160r1" $iAlgorithm = "secp160r1" Case "SEC2v1 Secp160r2" $iAlgorithm = "secp160r2" EndSwitch Local $PublicKey = GUICtrlRead($Edit10) If GUICtrlRead($Edit11) = "" Then GUICtrlSetData($Edit11, "null") EndIf Local $PlainText = GUICtrlRead($Edit11) $CMD = "busybox echo -n """ & $PlainText & """ > " & @TempDir & "Plaintext.txt & edgetk -pkeyutl enc -algorithm " & $iAlgorithm & " -key " & $PublicKey & " < " & @TempDir & "Plaintext.txt > " & @TempDir & "Ciphertext.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Result = FileRead(@TempDir & "Ciphertext.txt") ; $string = StringSplit($Result, @CRLF) ; GUICtrlSetData($Edit26, $string[1]) ; GUICtrlSetData($Edit11, $string[1]) $LineFeedStrip = StringReplace($Result, @LF, "") GUICtrlSetData($Edit26, $LineFeedStrip) ; FileDelete(@TempDir & "Plaintext.txt") ; FileDelete(@TempDir & "Ciphertext.txt") $CMD = "edgetk -shred " & @TempDir & "Plaintext..txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $CMD = "edgetk -shred " & @TempDir & "Ciphertext.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Case $Button19 ; Decrypt Switch GUICtrlRead($Combo4) Case "ECDSA (Secp256r1)" $iAlgorithm = "ecdsa" Case "Brainpool256r1" $iAlgorithm = "brainpool256r1" Case "Brainpool256t1" $iAlgorithm = "brainpool256t1" ; Case "Brainpool512r1" ; $iAlgorithm = "brainpool512r1" Case "Brainpool512t1" $iAlgorithm = "brainpool512t1" Case "Brainpool160t1" $iAlgorithm = "brainpool160t1" Case "Brainpool192t1" $iAlgorithm = "brainpool192t1" Case "SM2" $iAlgorithm = "sm2p256v1" Case "SM9" $iAlgorithm = "sm9p256v1" Case "GOST R 34.10-2012_A" $iAlgorithm = "ecgost2012A" Case "GOST R 34.10-2012_B" $iAlgorithm = "ecgost2012B" Case "GOST R 34.10-2001_A" $iAlgorithm = "ecgost2001A" Case "GOST R 34.10-2001_B" $iAlgorithm = "ecgost2001B" Case "GOST R 34.10-2001_C" $iAlgorithm = "ecgost2001C" Case "Fp256BN" $iAlgorithm = "fp256bn" Case "Fp512BN" $iAlgorithm = "fp512bn" Case "ANSSI FRP256v1" $iAlgorithm = "frp256v1" Case "Koblitz (Secp160k1)" $iAlgorithm = "secp160k1" Case "Koblitz (Secp192k1)" $iAlgorithm = "secp192k1" Case "Koblitz (Secp256k1)" $iAlgorithm = "secp256k1" ; Case "NUMSP256d1" ; $iAlgorithm = "numsp256d1" Case "NUMSP512d1" $iAlgorithm = "numsp512d1" Case "Oakley 192-bit" $iAlgorithm = "oakley192" Case "Oakley 256-bit" $iAlgorithm = "oakley256" Case "ANSI x9.62 Prime192v1" $iAlgorithm = "prime192v1" Case "ANSI x9.62 Prime192v2" $iAlgorithm = "prime192v2" Case "ANSI x9.62 Prime192v3" $iAlgorithm = "prime192v3" Case "SEC2v1 Secp160r1" $iAlgorithm = "secp160r1" Case "SEC2v1 Secp160r2" $iAlgorithm = "secp160r2" EndSwitch Local $PrivateKey = GUICtrlRead($Edit9) Local $CipherText = GUICtrlRead($Edit26) $CMD = "busybox echo -n """ & $CipherText & """ > " & @TempDir & "Ciphertext.txt & edgetk -pkeyutl dec -algorithm " & $iAlgorithm & " -key " & $PrivateKey & " < " & @TempDir & "Ciphertext.txt > " & @TempDir & "Plaintext.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Result = FileRead(@TempDir & "Plaintext.txt") ; $string = StringSplit($Result, @CRLF) ; GUICtrlSetData($Edit11, $string[1]) $LineFeedStrip = StringReplace($Result, @LF, "") GUICtrlSetData($Edit11, $LineFeedStrip) ; FileDelete("Plaintext.txt") ; FileDelete("Ciphertext.txt") $CMD = "edgetk -shred " & @TempDir & "Plaintext.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $CMD = "edgetk -shred " & @TempDir & "Ciphertext.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Case $Button25 Local $sFilePath = FileOpenDialog("Open a file", "", "All files (*.*)") If @error Then ContinueLoop EndIf GUICtrlSetData($Input2, $sFilePath) Case $Button30 Local $sFilePath = FileSaveDialog("Save as", "", "All files (*.*)") If @error Then ContinueLoop EndIf GUICtrlSetData($Input3, $sFilePath) Case $Button24 ClipPut(GUICtrlRead($Edit15)) Case $Button23 Local $sData = ClipGet() GUICtrlSetData($Edit15, $sData) Case $Button26 ClipPut(GUICtrlRead($Edit14)) Case $Button27 ; Generate Symmetric Key for Encryption Switch GUICtrlRead($iBulk) Case "AES (Rijndael)" $iAlgorithm = "aes" $Bits = 256 Case "Anubis" $iAlgorithm = "anubis" $Bits = 128 Case "ARIA" $iAlgorithm = "aria" $Bits = 256 Case "Chacha20Poly1305" If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then $iAlgorithm = "chacha20poly1305" Else $iAlgorithm = "chacha20" EndIf $Bits = 256 Case "Serpent" $iAlgorithm = "serpent" $Bits = 256 Case "Kuznechik" $iAlgorithm = "grasshopper" $Bits = 256 Case "SEED" $iAlgorithm = "seed" $Bits = 256 Case "Simon128" $iAlgorithm = "simon128" $Bits = 256 Case "Speck128" $iAlgorithm = "speck128" $Bits = 256 Case "Simon64" $iAlgorithm = "simon64" $Bits = 128 Case "Speck64" $iAlgorithm = "speck64" $Bits = 128 Case "SM4" $iAlgorithm = "sm4" $Bits = 128 Case "Twofish" $iAlgorithm = "twofish" $Bits = 256 Case "HC128 (no AEAD)" $iAlgorithm = "hc128" $Bits = 128 Case "HC256 (no AEAD)" $iAlgorithm = "hc256" $Bits = 256 Case "MISTY1" $iAlgorithm = "misty1" $Bits = 128 Case "GOST89-CryptoPro" $iAlgorithm = "gost89" $Bits = 256 Case "Magma" $iAlgorithm = "magma" $Bits = 256 Case "Camellia" $iAlgorithm = "camellia" $Bits = 256 Case "Ascon 1.2" $iAlgorithm = "ascon" $Bits = 128 Case "Grain128a" $iAlgorithm = "grain" $Bits = 128 Case "Rabbit (no AEAD)" $iAlgorithm = "rabbit" $Bits = 128 Case "ZUC-128 (no AEAD)" $iAlgorithm = "zuc128" $Bits = 128 Case "ZUC-256 (no AEAD)" $iAlgorithm = "zuc256" $Bits = 256 Case "LEA" $iAlgorithm = "lea" $Bits = 256 Case "Trivium (no AEAD)" $iAlgorithm = "trivium" $Bits = 80 Case "HIGHT" $iAlgorithm = "hight" $Bits = 128 Case "Threefish (no AEAD)" $iAlgorithm = "threefish" $Bits = 256 Case "Snow3G (no AEAD)" $iAlgorithm = "snow3g" $Bits = 128 Case "PRESENT" $iAlgorithm = "present" $Bits = 128 Case "TWINE" $iAlgorithm = "twine" $Bits = 128 EndSwitch $CMD = "edgetk -rand -bits " &$Bits & " > " & @TempDir & "Key.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Key = FileRead(@TempDir & "Key.txt") $LineFeedStrip = StringReplace($Key, @LF, "") GUICtrlSetData($Edit12, $LineFeedStrip) ; FileDelete("Key.txt") $CMD = "edgetk -shred " & @TempDir & "Key.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Case $Button49 ; Generate IV for Encryption Switch GUICtrlRead($iBulk) Case "AES (Rijndael)" $iAlgorithm = "aes" $Bits = 128 Case "Anubis" $iAlgorithm = "anubis" $Bits = 128 Case "ARIA" $iAlgorithm = "aria" $Bits = 128 Case "Chacha20Poly1305" If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then $iAlgorithm = "chacha20poly1305" $Bits = 0 Else $iAlgorithm = "chacha20" $Bits = 192 EndIf Case "Serpent" $iAlgorithm = "serpent" $Bits = 128 Case "Kuznechik" $iAlgorithm = "grasshopper" $Bits = 128 Case "SEED" $iAlgorithm = "seed" $Bits = 128 Case "Simon128" $iAlgorithm = "simon128" $Bits = 128 Case "Speck128" $iAlgorithm = "speck128" $Bits = 128 Case "Simon64" $iAlgorithm = "simon64" $Bits = 64 Case "Speck64" $iAlgorithm = "speck64" $Bits = 64 Case "SM4" $iAlgorithm = "sm4" $Bits = 128 Case "Twofish" $iAlgorithm = "twofish" $Bits = 128 Case "HC128 (no AEAD)" $iAlgorithm = "hc128" $Bits = 128 Case "HC256 (no AEAD)" $iAlgorithm = "hc256" $Bits = 256 Case "MISTY1" $iAlgorithm = "misty1" $Bits = 64 Case "GOST89-CryptoPro" $iAlgorithm = "gost89" $Bits = 64 Case "Magma" $iAlgorithm = "magma" $Bits = 64 Case "Camellia" $iAlgorithm = "camellia" $Bits = 128 Case "Ascon 1.2" $iAlgorithm = "ascon" $Bits = 0 Case "Grain128a" $iAlgorithm = "grain" $Bits = 0 Case "Rabbit (no AEAD)" $iAlgorithm = "rabbit" $Bits = 64 Case "ZUC-128 (no AEAD)" $iAlgorithm = "zuc128" $Bits = 128 Case "ZUC-256 (no AEAD)" $iAlgorithm = "zuc256" $Bits = 184 Case "LEA" $iAlgorithm = "lea" $Bits = 128 Case "Trivium (no AEAD)" $iAlgorithm = "trivium" $Bits = 80 Case "HIGHT" $iAlgorithm = "hight" $Bits = 64 Case "Threefish (no AEAD)" $iAlgorithm = "threefish" $Bits = 256 Case "Snow3G (no AEAD)" $iAlgorithm = "snow3g" $Bits = 0 Case "PRESENT" $iAlgorithm = "present" $Bits = 64 Case "TWINE" $iAlgorithm = "twine" $Bits = 64 EndSwitch $CMD = "edgetk -rand -bits " &$Bits & " > " & @TempDir & "Key.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Key = FileRead(@TempDir & "Key.txt") $LineFeedStrip = StringReplace($Key, @LF, "") GUICtrlSetData($Edit25, $LineFeedStrip) ; FileDelete("Key.txt") $CMD = "edgetk -shred " & @TempDir & "Key.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Case $Button28 ; Encrypt with Symmetric Key Switch GUICtrlRead($iBulk) Case "AES (Rijndael)" $iAlgorithm = "aes" Case "Anubis" $iAlgorithm = "anubis" Case "ARIA" $iAlgorithm = "aria" Case "Chacha20Poly1305" If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then $iAlgorithm = "chacha20poly1305" Else $iAlgorithm = "chacha20" EndIf Case "Serpent" $iAlgorithm = "serpent" Case "Kuznechik" $iAlgorithm = "grasshopper" Case "SEED" $iAlgorithm = "seed" Case "Simon128" $iAlgorithm = "simon128" Case "Speck128" $iAlgorithm = "speck128" Case "Simon64" $iAlgorithm = "simon64" Case "Speck64" $iAlgorithm = "speck64" Case "SM4" $iAlgorithm = "sm4" Case "Twofish" $iAlgorithm = "twofish" Case "HC128 (no AEAD)" $iAlgorithm = "hc128" Case "HC256 (no AEAD)" $iAlgorithm = "hc256" Case "MISTY1" $iAlgorithm = "misty1" Case "GOST89-CryptoPro" $iAlgorithm = "gost89" Case "Magma" $iAlgorithm = "magma" Case "Camellia" $iAlgorithm = "camellia" Case "Ascon 1.2" $iAlgorithm = "ascon" Case "Grain128a" $iAlgorithm = "grain" Case "Rabbit (no AEAD)" $iAlgorithm = "rabbit" Case "ZUC-128 (no AEAD)" $iAlgorithm = "zuc128" Case "ZUC-256 (no AEAD)" $iAlgorithm = "zuc256" Case "LEA" $iAlgorithm = "lea" Case "Trivium (no AEAD)" $iAlgorithm = "trivium" Case "HIGHT" $iAlgorithm = "hight" Case "Threefish (no AEAD)" $iAlgorithm = "threefish" Case "Snow3G (no AEAD)" $iAlgorithm = "snow3g" Case "PRESENT" $iAlgorithm = "present" Case "TWINE" $iAlgorithm = "twine" EndSwitch Global $sRead = GUICtrlRead($Edit14) Global $rRead = GUICtrlRead($Edit15) Global $xRead = GUICtrlRead($Edit12) Global $sFile = GUICtrlRead($Input2) Global $xFile = GUICtrlRead($Input3) Global $yRead = GUICtrlRead($Input4) Global $aRead = GUICtrlRead($Edit25) Global $Mode = GUICtrlRead($Combo8) Global $DMode = GUICtrlRead($Combo12) Select Case GUICtrlRead($Radio3) = $GUI_CHECKED $radioval = "File" Case GUICtrlRead($Radio4) = $GUI_CHECKED $radioval = "String" EndSelect If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then Global $command = "b64enc+" Else Global $command = "b32enc+" EndIf If $radioval = "File" Then If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then $CMD = "edgetk -crypt enc -mode " & $Mode & " -info " & $yRead & " -cipher " & $iAlgorithm & " -key """ & $xRead & """ < " & $sFile & " > " & $xFile RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Else $CMD = "edgetk -crypt enc -mode " & $DMode & " -cipher " & $iAlgorithm & " -key " & $xRead & " -iv """ & $aRead & """ < " & $sFile & " > " & $xFile RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) EndIf MsgBox($MB_SYSTEMMODAL, "", "Encryption" & @CRLF & " Done") ElseIf $radioval = "String" Then If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then $CMD = "busybox echo -n " & $sRead & " | edgetk -crypt enc -mode " & $Mode & " -info " & $yRead & " -cipher " & $iAlgorithm & " -key """ & $xRead & """ | edgetk -util " & $command & " > " & @TempDir & "Ciphertext.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Else $CMD = "busybox echo -n " & $sRead & " | edgetk -crypt enc -mode " & $DMode & " -cipher " & $iAlgorithm & " -key """ & $xRead & """ -iv """ & $aRead & """ | edgetk -util " & $command & " > " & @TempDir & "Ciphertext.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) EndIf $Result = FileRead(@TempDir & "Ciphertext.txt") $LineFeedStrip = StringReplace($Result, @LF, "") GUICtrlSetData($Edit15, $LineFeedStrip) ; FileDelete(@TempDir & "Ciphertext.txt") $CMD = "edgetk -shred " & @TempDir & "Ciphertext.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) EndIf Case $Button29 ; Decrypt with Symmetric Key Switch GUICtrlRead($iBulk) Case "AES (Rijndael)" $iAlgorithm = "aes" Case "Anubis" $iAlgorithm = "anubis" Case "ARIA" $iAlgorithm = "aria" Case "Chacha20Poly1305" If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then $iAlgorithm = "chacha20poly1305" Else $iAlgorithm = "chacha20" EndIf Case "Serpent" $iAlgorithm = "serpent" Case "Kuznechik" $iAlgorithm = "grasshopper" Case "SEED" $iAlgorithm = "seed" Case "Simon128" $iAlgorithm = "simon128" Case "Speck128" $iAlgorithm = "speck128" Case "Simon64" $iAlgorithm = "simon64" Case "Speck64" $iAlgorithm = "speck64" Case "SM4" $iAlgorithm = "sm4" Case "Twofish" $iAlgorithm = "twofish" Case "HC128 (no AEAD)" $iAlgorithm = "hc128" Case "HC256 (no AEAD)" $iAlgorithm = "hc256" Case "MISTY1" $iAlgorithm = "misty1" Case "GOST89-CryptoPro" $iAlgorithm = "gost89" Case "Magma" $iAlgorithm = "magma" Case "Camellia" $iAlgorithm = "camellia" Case "Ascon 1.2" $iAlgorithm = "ascon" Case "Grain128a" $iAlgorithm = "grain" Case "Rabbit (no AEAD)" $iAlgorithm = "rabbit" Case "ZUC-128 (no AEAD)" $iAlgorithm = "zuc128" Case "ZUC-256 (no AEAD)" $iAlgorithm = "zuc256" Case "LEA" $iAlgorithm = "lea" Case "Trivium (no AEAD)" $iAlgorithm = "trivium" Case "HIGHT" $iAlgorithm = "hight" Case "Threefish (no AEAD)" $iAlgorithm = "threefish" Case "Snow3G (no AEAD)" $iAlgorithm = "snow3g" Case "PRESENT" $iAlgorithm = "present" Case "TWINE" $iAlgorithm = "twine" EndSwitch Global $sRead = GUICtrlRead($Edit14) Global $rRead = GUICtrlRead($Edit15) Global $xRead = GUICtrlRead($Edit12) Global $sFile = GUICtrlRead($Input2) Global $xFile = GUICtrlRead($Input3) Global $yRead = GUICtrlRead($Input4) Global $aRead = GUICtrlRead($Edit25) Global $Mode = GUICtrlRead($Combo8) Global $DMode = GUICtrlRead($Combo12) Select Case GUICtrlRead($Radio3) = $GUI_CHECKED $radioval = "File" Case GUICtrlRead($Radio4) = $GUI_CHECKED $radioval = "String" EndSelect If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then Global $command = "b64dec+" Else Global $command = "b32dec+" EndIf If $radioval = "File" Then If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then $CMD = "edgetk -crypt dec -mode " & $Mode & " -info " & $yRead & " -cipher " & $iAlgorithm & " -key " & $xRead & " < " & $sFile & " > " & $xFile RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Else $CMD = "edgetk -crypt dec -mode " & $DMode & " -key " & $xRead & " -cipher " & $iAlgorithm & " -iv """ & $aRead & """ < " & $sFile & " > " & $xFile RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) EndIf MsgBox($MB_SYSTEMMODAL, "", "Decryption" & @CRLF & " Done") ElseIf $radioval = "String" Then If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then $CMD = "busybox echo -n " & $rRead & " | edgetk -util " & $command & " | edgetk -crypt dec -mode " & $Mode & " -info " & $yRead & " -cipher " & $iAlgorithm & " -key " & $xRead & " > " & @TempDir & "Plaintext.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Else $CMD = "busybox echo -n " & $rRead & " | edgetk -util " & $command & " | edgetk -crypt dec -mode " & $DMode & " -key " & $xRead & " -cipher " & $iAlgorithm & " -iv """ & $aRead & """ > " & @TempDir & "Plaintext.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) EndIf $Result = FileRead(@TempDir & "Plaintext.txt") GUICtrlSetData($Edit14, $Result) ; FileDelete(@TempDir & "Plaintext.txt") $CMD = "edgetk -shred " & @TempDir & "Plaintext.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) EndIf Case $Button31 Local $sFilePath = FileOpenDialog("Open a file", "", "All files (*.*)") If @error Then ContinueLoop EndIf GUICtrlSetData($Input5, $sFilePath) Case $Button34 ; Compute Digests Switch GUICtrlRead($Combo5) Case "BLAKE2b256" $idHash = "BLAKE2B256" $iHash = "blake2b256" Case "BLAKE2b512" $idHash = "BLAKE2B512" $iHash = "blake2b512" Case "BLAKE2s128" $idHash = "BLAKE2S128" $iHash = "blake2s128" Case "BLAKE2s256" $idHash = "BLAKE2S256" $iHash = "blake2s256" Case "SHA256" $idHash = "SHA256" $iHash = "sha256" Case "SHA512_256" $idHash = "SHA512_256" $iHash = "sha512_256" Case "SHA512" $idHash = "SHA512" $iHash = "sha512" Case "SM3" $idHash = "SM3" $iHash = "sm3" Case "Streebog256" $idHash = "STREEBOG256" $iHash = "streebog256" Case "Streebog512" $idHash = "STREEBOG512" $iHash = "streebog512" Case "CubeHash" $idHash = "CUBEHASH" $iHash = "cubehash" Case "Whirlpool" $idHash = "WHIRLPOOL" $iHash = "whirlpool" Case "SHA3_256" $idHash = "SHA3_256" $iHash = "sha3_256" Case "SHA3_512" $idHash = "SHA3_512" $iHash = "sha3_512" Case "RIPEMD128" $idHash = "RMD128" $iHash = "rmd128" Case "RIPEMD160" $idHash = "RMD160" $iHash = "rmd160" Case "RIPEMD256" $idHash = "RMD256" $iHash = "rmd256" Case "GOST94-CryptoPro" $idHash = "GOST94" $iHash = "gost94" Case "LSH256" $idHash = "LSH256" $iHash = "lsh256" Case "LSH512_256" $idHash = "LSH512_256" $iHash = "lsh512_256" Case "LSH512" $idHash = "LSH512" $iHash = "lsh512" Case "Keccak256" $idHash = "KECCAK256" $iHash = "keccak256" Case "Keccak512" $idHash = "KECCAK512" $iHash = "keccak512" Case "Skein256" $idHash = "SKEIN256" $iHash = "skein256" Case "Skein512_256" $idHash = "SKEIN512_256" $iHash = "skein512_256" Case "Skein512" $idHash = "SKEIN512" $iHash = "skein512" Case "SipHash" $idHash = "SIPHASH" $iHash = "siphash" Case "Poly1305" $idHash = "POLY1305" $iHash = "poly1305" Case "Tiger" $idHash = "TIGER" $iHash = "tiger" Case "Groestl" $idHash = "GROESTL" $iHash = "groestl" Case "JH" $idHash = "JH" $iHash = "jh" EndSwitch Select Case GUICtrlRead($Radio5) = $GUI_CHECKED $radioval = "File" Case GUICtrlRead($Radio6) = $GUI_CHECKED $radioval = "String" EndSelect Global $sRead = GUICtrlRead($Edit17) Global $rRead = GUICtrlRead($Edit18) Global $sFile = GUICtrlRead($Input5) If $radioval = "File" Then If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then $CMD = "echo [Digest] > " & @TempDir & "Digest.txt & edgetk -mac hmac -md " & $iHash & " -key """ & $rRead & """ < " & $sFile & " >> " & @TempDir & "Digest.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $id = "MAC-" & $idHash $Result = IniRead(@TempDir & "Digest.txt", "Digest", $id, "Error.") GUICtrlSetData($Edit16, $Result) FileDelete(@TempDir & "Digest.txt") Else $CMD = "edgetk -digest - -md " & $iHash & " -key " & $rRead & " -key """ & $rRead & """ < " & $sFile & " > " & @TempDir & "Digest.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Result = FileRead(@TempDir & "Digest.txt") GUICtrlSetData($Edit16, $Result) FileDelete(@TempDir & "Digest.txt") EndIf ElseIf $radioval = "String" Then If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then $CMD = "echo [Digest] > " & @TempDir & "Digest.txt & busybox echo -n " & $sRead & " | edgetk -mac hmac -md " & $iHash & " -key """ & $rRead & """ >> " & @TempDir & "Digest.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $id = "MAC-" & $idHash $Result = IniRead(@TempDir & "Digest.txt", "Digest", $id, "Error.") GUICtrlSetData($Edit16, $Result) FileDelete(@TempDir & "Digest.txt") Else $CMD = "busybox echo -n " & $sRead & " | edgetk -digest - -md " & $iHash & " -key """ & $rRead & """ > " & @TempDir & "Digest.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Result = FileRead(@TempDir & "Digest.txt") GUICtrlSetData($Edit16, $Result) FileDelete(@TempDir & "Digest.txt") EndIf EndIf Case $Button35 ; Check Digests Switch GUICtrlRead($Combo5) Case "BLAKE2b256" $idHash = "BLAKE2B256" $iHash = "blake2b256" Case "BLAKE2b512" $idHash = "BLAKE2B512" $iHash = "blake2b512" Case "BLAKE2s128" $idHash = "BLAKE2S128" $iHash = "blake2s128" Case "BLAKE2s256" $idHash = "BLAKE2S256" $iHash = "blake2s256" Case "SHA256" $idHash = "SHA256" $iHash = "sha256" Case "SHA512_256" $idHash = "SHA512_256" $iHash = "sha512_256" Case "SHA512" $idHash = "SHA512" $iHash = "sha512" Case "SM3" $idHash = "SM3" $iHash = "sm3" Case "Streebog256" $idHash = "STREEBOG256" $iHash = "streebog256" Case "Streebog512" $idHash = "STREEBOG512" $iHash = "streebog512" Case "CubeHash" $idHash = "CUBEHASH" $iHash = "cubehash" Case "Whirlpool" $idHash = "WHIRLPOOL" $iHash = "whirlpool" Case "SHA3_256" $idHash = "SHA3_256" $iHash = "sha3_256" Case "SHA3_512" $idHash = "SHA3_512" $iHash = "sha3_512" Case "RIPEMD128" $idHash = "RMD128" $iHash = "rmd128" Case "RIPEMD160" $idHash = "RMD160" $iHash = "rmd160" Case "RIPEMD256" $idHash = "RMD256" $iHash = "rmd256" Case "GOST94-CryptoPro" $idHash = "GOST94" $iHash = "gost94" Case "LSH256" $idHash = "LSH256" $iHash = "lsh256" Case "LSH512_256" $idHash = "LSH512_256" $iHash = "lsh512_256" Case "LSH512" $idHash = "LSH512" $iHash = "lsh512" Case "Keccak256" $idHash = "KECCAK256" $iHash = "keccak256" Case "Keccak512" $idHash = "KECCAK512" $iHash = "keccak512" Case "Skein256" $idHash = "SKEIN256" $iHash = "skein256" Case "Skein512_256" $idHash = "SKEIN512_256" $iHash = "skein512_256" Case "Skein512" $idHash = "SKEIN512" $iHash = "skein512" Case "SipHash" $idHash = "SIPHASH" $iHash = "siphash" Case "Poly1305" $idHash = "POLY1305" $iHash = "poly1305" Case "Tiger" $idHash = "TIGER" $iHash = "tiger" Case "Groestl" $idHash = "GROESTL" $iHash = "groestl" Case "JH" $idHash = "JH" $iHash = "jh" EndSwitch Select Case GUICtrlRead($Radio5) = $GUI_CHECKED $radioval = "File" Case GUICtrlRead($Radio6) = $GUI_CHECKED $radioval = "String" EndSelect Global $sRead = GUICtrlRead($Edit17) Global $rRead = GUICtrlRead($Edit18) Global $xRead = GUICtrlRead($Edit16) Global $sFile = GUICtrlRead($Input5) If $radioval = "File" Then If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then $CMD = "edgetk -mac hmac -md " & $iHash & " -key """ & $rRead & """ -signature " & $xRead & " < " & $sFile & " > " & @TempDir & "Digest.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Local $sFileRead = FileRead(@TempDir & "Digest.txt") MsgBox($MB_SYSTEMMODAL, "", "Digest Verification:" & @CRLF & $sFileRead) FileDelete(@TempDir & "Digest.txt") Else $CMD = "edgetk -digest - -md " & $iHash & " < """ & $sFile & """ -key """ & $rRead & """ > " & @TempDir & "Digest.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Result = FileRead(@TempDir & "Digest.txt") If $Result = $xRead Then MsgBox($MB_SYSTEMMODAL, "", "Signature Verification:" & @CRLF & "true") Else MsgBox($MB_SYSTEMMODAL, "", "Signature Verification:" & @CRLF & "false") EndIf FileDelete(@TempDir & "Digest.txt") EndIf ElseIf $radioval = "String" Then If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then $CMD = "busybox echo -n " & $sRead & " | edgetk -mac hmac -md " & $iHash & " -key """ & $rRead & """ -signature " & $xRead & " > " & @TempDir & "Digest.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Local $sFileRead = FileRead(@TempDir & "Digest.txt") MsgBox($MB_SYSTEMMODAL, "", "Digest Verification:" & @CRLF & $sFileRead) FileDelete(@TempDir & "Digest.txt") Else $CMD = "busybox echo -n " & $sRead & " | edgetk -digest - -md " & $iHash & " -key """ & $rRead & """ > " & @TempDir & "Digest.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Result = FileRead(@TempDir & "Digest.txt") If $Result = $xRead Then MsgBox($MB_SYSTEMMODAL, "", "Digest Verification:" & @CRLF & "true") Else MsgBox($MB_SYSTEMMODAL, "", "Digest Verification:" & @CRLF & "false") EndIf FileDelete(@TempDir & "Digest.txt") EndIf EndIf Case $Button32 ClipPut(GUICtrlRead($Edit16)) Case $Button33 Local $sData = ClipGet() GUICtrlSetData($Edit16, $sData) Case $Button36 $length = 256 Switch GUICtrlRead($Combo5) Case "BLAKE2s128" $length = 128 Case "BLAKE2s256" If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then $length = 256 Else $length = 128 EndIf EndSwitch $CMD = "edgetk -rand -bits " & $length & " > " & @TempDir & "Key.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Key = FileRead(@TempDir & "Key.txt") $LineFeedStrip = StringReplace($Key, @LF, "") GUICtrlSetData($Edit18, $LineFeedStrip) ; FileDelete(@TempDir & "Key.txt") $CMD = "edgetk -shred " & @TempDir & "Key.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Case $Button39 ; KDF Switch GUICtrlRead($Combo5) Case "BLAKE2b256" $idHash = "BLAKE2B256" $iHash = "blake2b256" Case "BLAKE2b512" $idHash = "BLAKE2B512" $iHash = "blake2b512" Case "BLAKE2s256" $idHash = "BLAKE2S256" $iHash = "blake2s256" Case "SHA256" $idHash = "SHA256" $iHash = "sha256" Case "SHA512_256" $idHash = "SHA512_256" $iHash = "sha512_256" Case "SHA512" $idHash = "SHA512" $iHash = "sha512" Case "SM3" $idHash = "SM3" $iHash = "sm3" Case "Streebog256" $idHash = "STREEBOG256" $iHash = "streebog256" Case "Streebog512" $idHash = "STREEBOG512" $iHash = "streebog512" Case "CubeHash" $idHash = "CUBEHASH" $iHash = "cubehash" Case "Whirlpool" $idHash = "WHIRLPOOL" $iHash = "whirlpool" Case "SHA3_256" $idHash = "SHA3_256" $iHash = "sha3_256" Case "SHA3_512" $idHash = "SHA3_512" $iHash = "sha3_512" Case "RIPEMD128" $idHash = "RMD128" $iHash = "rmd128" Case "RIPEMD160" $idHash = "RMD160" $iHash = "rmd160" Case "RIPEMD256" $idHash = "RMD256" $iHash = "rmd256" Case "GOST94-CryptoPro" $idHash = "GOST94" $iHash = "gost94" Case "LSH256" $idHash = "LSH256" $iHash = "lsh256" Case "LSH512_256" $idHash = "LSH512_256" $iHash = "lsh512_256" Case "LSH512" $idHash = "LSH512" $iHash = "lsh512" Case "Keccak256" $idHash = "KECCAK256" $iHash = "keccak256" Case "Keccak512" $idHash = "KECCAK512" $iHash = "keccak512" Case "Skein256" $idHash = "SKEIN256" $iHash = "skein256" Case "Skein512_256" $idHash = "SKEIN512_256" $iHash = "skein512_256" Case "Skein512" $idHash = "SKEIN512" $iHash = "skein512" Case "Tiger" $idHash = "TIGER" $iHash = "tiger" Case "Groestl" $idHash = "GROESTL" $iHash = "groestl" Case "JH" $idHash = "JH" $iHash = "jh" EndSwitch Global $rRead = GUICtrlRead($Edit18) Global $xRead = GUICtrlRead($Input6) Global $yRead = GUICtrlRead($Input7) Global $iRead = GUICtrlRead($Input8) Global $bRead = GUICtrlRead($Combo6) If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then $CMD = "edgetk -kdf pbkdf2 -md " & $iHash & " -bits " & $bRead & " -key " & $rRead & " -salt " & $xRead & " -iter " & $iRead & " > " & @TempDir & "KDF.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $id = "MAC-" & $idHash $Result = FileRead(@TempDir & "KDF.txt") GUICtrlSetData($Edit19, $Result) ; FileDelete("KDF.txt") $CMD = "edgetk -shred " & @TempDir & "KDF.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Else $CMD = "edgetk -kdf hkdf -md " & $iHash & " -bits " & $bRead & " -key " & $rRead & " -salt " & $xRead & " -info " & $yRead & " > " & @TempDir & "KDF.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Result = FileRead(@TempDir & "KDF.txt") GUICtrlSetData($Edit19, $Result) ; FileDelete("KDF.txt") $CMD = "edgetk -shred " & @TempDir & "KDF.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) EndIf Case $Button37 $LineFeedStrip = StringReplace(GUICtrlRead($Edit19), @LF, "") ClipPut($LineFeedStrip) Case $Button40 Global $sRead = GUICtrlRead($Edit20) Global $rRead = GUICtrlRead($Edit21) Global $xRead = GUICtrlRead($Edit16) Global $hRead = GUICtrlRead($Input10) Global $tRead = GUICtrlRead($Input11) Global $wRead = GUICtrlRead($Input12) Switch GUICtrlRead($Combo7) Case "ECDSA" $iAlgorithm = "ecdsa" Case "SM2" $iAlgorithm = "sm2" Case "Ed25519" $iAlgorithm = "ed25519" Case "GOST2012" $iAlgorithm = "gost2012" EndSwitch If GUICtrlRead($Combo7) = "GOST2012" Then $CMD = "busybox echo -n """ & $rRead & """ | gostls -tcp send -pub """ & $tRead & ":" & $wRead & """" Else $CMD = "busybox echo -n """ & $rRead & """ | edgetk -tcp send -pub """ & $tRead & ":" & $wRead & """ -algorithm " & $iAlgorithm & "" EndIf ; RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) RunWait(@ComSpec & " /c " & $CMD, "", 6) Case $Button41 Global $sRead = GUICtrlRead($Edit20) Global $rRead = GUICtrlRead($Edit21) Global $xRead = GUICtrlRead($Edit16) Global $hRead = GUICtrlRead($Input10) Global $tRead = GUICtrlRead($Input11) Global $wRead = GUICtrlRead($Input12) Switch GUICtrlRead($Combo7) Case "ECDSA" $iAlgorithm = "ecdsa" Case "SM2" $iAlgorithm = "sm2" Case "Ed25519" $iAlgorithm = "ed25519" Case "GOST2012" $iAlgorithm = "gost2012" EndSwitch If GUICtrlRead($Combo7) = "GOST2012" Then $CMD = "gostls -tcp dump -pub " & $hRead & " > dump.txt" Else $CMD = "edgetk -tcp dump -pub " & $hRead & " -algorithm " & $iAlgorithm & " > dump.txt" EndIf RunWait(@ComSpec & " /c " & $CMD, "", 6) $Result = FileRead("dump.txt") GUICtrlSetData($Edit20, $Result) ; FileDelete("dump.txt") $CMD = "edgetk -shred " & @TempDir & "dump.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Case $Button42 $CMD = "edgetk -tcp ip > " & @TempDir & "ip.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Result = FileRead(@TempDir & "ip.txt") $LineFeedStrip = StringReplace($Result, @LF, "") GUICtrlSetData($Input9, $LineFeedStrip) FileDelete("ip.txt") Case $Button43 ClipPut(GUICtrlRead($Edit20)) Case $Button44 Local $sData = ClipGet() GUICtrlSetData($Edit20, $sData) Case $Button45 ClipPut(GUICtrlRead($Edit21)) Case $Button46 Local $sData = ClipGet() GUICtrlSetData($Edit21, $sData) Case $Button50 Local $sFilePath = FileOpenDialog("Open a file", "", "All files (*.*)") If @error Then ContinueLoop EndIf GUICtrlSetData($Input13, $sFilePath) Case $Button51 ; Generate Secret for OMAC1 Switch GUICtrlRead($Combo10) Case "MAC" $iCommand = "-mac" Case "CMAC" $iCommand = "-mac cmac" Case "PMAC" $iCommand = "-mac pmac" EndSwitch If GUICtrlRead($Combo10) = "CMAC" or GUICtrlRead($Combo10) = "PMAC" Then Switch GUICtrlRead($Combo11) Case "AES (Rijndael)" $iAlgorithm = "aes" $length = 128 Case "Anubis" $iAlgorithm = "anubis" $length = 64 Case "ARIA" $iAlgorithm = "aria" $length = 128 Case "Serpent" $iAlgorithm = "serpent" $length = 128 Case "Kuznechik" $iAlgorithm = "grasshopper" $length = 128 Case "SEED" $iAlgorithm = "seed" $length = 128 Case "Simon128" $iAlgorithm = "simon128" $length = 128 Case "Speck128" $iAlgorithm = "speck128" $length = 128 Case "Simon64" $iAlgorithm = "simon64" $length = 64 Case "Speck64" $iAlgorithm = "speck64" $length = 64 Case "SM4" $iAlgorithm = "sm4" $length = 64 Case "Twofish" $iAlgorithm = "twofish" $length = 128 Case "MISTY1" $iAlgorithm = "misty1" $length = 64 Case "GOST89-CryptoPro" $iAlgorithm = "gost89" $length = 128 Case "Magma" $iAlgorithm = "magma" $length = 128 Case "Camellia" $iAlgorithm = "camellia" $length = 128 Case "LEA" $iAlgorithm = "lea" $length = 128 Case "HIGHT" $iAlgorithm = "hight" $length = 64 Case "PRESENT" $iAlgorithm = "present" $length = 64 Case "TWINE" $iAlgorithm = "twine" $length = 64 EndSwitch EndIf If GUICtrlRead($Combo10) = "MAC" Then Switch GUICtrlRead($Combo9) Case "ZUC-128" $iAlgorithm = "eia128" $length = 128 $iv = 128 Case "ZUC-256 32-bit" $iAlgorithm = "eia256" $length = 256 $iv = 184 Case "ZUC-256 64-bit" $iAlgorithm = "eia256" $length = 256 $iv = 184 Case "ZUC-256 128-bit" $iAlgorithm = "eia256" $length = 256 $iv = 184 Case "Chaskey" $iAlgorithm = "chaskey" $length = 64 $iv = 0 Case "Poly1305" $iAlgorithm = "poly1305" $length = 128 $iv = 0 Case "SipHash128" $iAlgorithm = "siphash" $length = 128 $iv = 0 Case "SipHash64" $iAlgorithm = "siphash64" $length = 128 $iv = 0 Case "Snow3G" $iAlgorithm = "uia2" $length = 128 $iv = 0 Case "GOST-MAC 32-bit" $iAlgorithm = "gost" $length = 128 $iv = 64 Case "GOST-MAC 64-bit" $iAlgorithm = "gost" $length = 128 $iv = 64 EndSwitch EndIf $CMD = "edgetk -rand -bits " & $length & " > " & @TempDir & "Key.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Key = FileRead(@TempDir & "Key.txt") $LineFeedStrip = StringReplace($Key, @LF, "") GUICtrlSetData($Edit22, $LineFeedStrip) ; FileDelete(@TempDir & "Key.txt") $CMD = "edgetk -shred " & @TempDir & "Key.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Case $Button54 ; Generate IV Switch GUICtrlRead($Combo10) Case "MAC" $iCommand = "-mac" Case "CMAC" $iCommand = "-mac cmac" Case "PMAC" $iCommand = "-mac pmac" EndSwitch If GUICtrlRead($Combo10) = "CMAC" or GUICtrlRead($Combo10) = "PMAC" Then Switch GUICtrlRead($Combo11) Case "AES (Rijndael)" $iAlgorithm = "aes" $length = 128 $iv = 0 Case "Anubis" $iAlgorithm = "anubis" $length = 64 $iv = 0 Case "ARIA" $iAlgorithm = "aria" $length = 128 $iv = 0 Case "Serpent" $iAlgorithm = "serpent" $length = 128 $iv = 0 Case "Kuznechik" $iAlgorithm = "grasshopper" $length = 128 $iv = 0 Case "SEED" $iAlgorithm = "seed" $length = 128 $iv = 0 Case "Simon128" $iAlgorithm = "simon128" $length = 128 $iv = 0 Case "Speck128" $iAlgorithm = "speck128" $length = 128 $iv = 0 Case "Simon64" $iAlgorithm = "simon64" $length = 64 $iv = 0 Case "Speck64" $iAlgorithm = "speck64" $length = 64 $iv = 0 Case "SM4" $iAlgorithm = "sm4" $length = 64 $iv = 0 Case "Twofish" $iAlgorithm = "twofish" $length = 128 $iv = 0 Case "MISTY1" $iAlgorithm = "misty1" $length = 64 $iv = 0 Case "GOST89-CryptoPro" $iAlgorithm = "gost89" $length = 128 $iv = 0 Case "Magma" $iAlgorithm = "magma" $length = 128 $iv = 0 Case "Camellia" $iAlgorithm = "camellia" $length = 128 $iv = 0 Case "LEA" $iAlgorithm = "lea" $length = 128 $iv = 0 Case "HIGHT" $iAlgorithm = "hight" $length = 64 $iv = 0 Case "PRESENT" $iAlgorithm = "present" $length = 64 $iv = 0 Case "TWINE" $iAlgorithm = "twine" $length = 64 $iv = 0 EndSwitch EndIf If GUICtrlRead($Combo10) = "MAC" Then Switch GUICtrlRead($Combo9) Case "ZUC-128" $iAlgorithm = "eia128" $length = 128 $iv = 128 Case "ZUC-256 32-bit" $iAlgorithm = "eia256" $length = 256 $iv = 184 Case "ZUC-256 64-bit" $iAlgorithm = "eia256" $length = 256 $iv = 184 Case "ZUC-256 128-bit" $iAlgorithm = "eia256" $length = 256 $iv = 184 Case "Chaskey" $iAlgorithm = "chaskey" $length = 64 $iv = 0 Case "Poly1305" $iAlgorithm = "poly1305" $length = 128 $iv = 0 Case "SipHash128" $iAlgorithm = "siphash" $length = 128 $iv = 0 Case "SipHash64" $iAlgorithm = "siphash64" $length = 128 $iv = 0 Case "Snow3G" $iAlgorithm = "uia2" $length = 128 $iv = 0 Case "GOST-MAC 32-bit" $iAlgorithm = "gost" $length = 128 $iv = 64 Case "GOST-MAC 64-bit" $iAlgorithm = "gost" $length = 128 $iv = 64 EndSwitch EndIf $CMD = "edgetk -rand -bits " & $iv & " > " & @TempDir & "Key.txt" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $Key = FileRead(@TempDir & "Key.txt") $LineFeedStrip = StringReplace($Key, @LF, "") GUICtrlSetData($Edit24, $LineFeedStrip) ; FileDelete(@TempDir & "Key.txt") $CMD = "edgetk -shred " & @TempDir & "Key.txt -iter 5" RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Case $Button47 ; Generate MAC Global $sRead = GUICtrlRead($Edit13) Global $rRead = GUICtrlRead($Edit22) Global $xRead = GUICtrlRead($Edit24) Global $yRead = GUICtrlRead($Edit23) Global $sFile = GUICtrlRead($Input13) Switch GUICtrlRead($Combo10) Case "MAC" $iCommand = "-mac" Case "CMAC" $iCommand = "-mac cmac -cipher" Case "PMAC" $iCommand = "-mac pmac -cipher" EndSwitch If GUICtrlRead($Combo10) = "CMAC" or GUICtrlRead($Combo10) = "PMAC" Then Switch GUICtrlRead($Combo11) Case "AES (Rijndael)" $iAlgorithm = "aes" $idCipher = "AES" Case "Anubis" $iAlgorithm = "anubis" $idCipher = "ANUBIS" Case "ARIA" $iAlgorithm = "aria" $idCipher = "ARIA" Case "Serpent" $iAlgorithm = "serpent" $idCipher = "SERPENT" Case "Kuznechik" $iAlgorithm = "grasshopper" $idCipher = "GRASSHOPPER" Case "SEED" $iAlgorithm = "seed" $idCipher = "SEED" Case "Simon128" $iAlgorithm = "simon128" $idCipher = "SIMON128" Case "Speck128" $iAlgorithm = "speck128" $idCipher = "SPECK128" Case "Simon64" $iAlgorithm = "simon64" $idCipher = "SIMON64" Case "Speck64" $iAlgorithm = "speck64" $idCipher = "SPECK64" Case "SM4" $iAlgorithm = "sm4" $idCipher = "SM4" Case "Twofish" $iAlgorithm = "twofish" $idCipher = "TWOFISH" Case "MISTY1" $iAlgorithm = "misty1" $idCipher = "MISTY1" Case "GOST89-CryptoPro" $iAlgorithm = "gost89" $idCipher = "GOST89" Case "Magma" $iAlgorithm = "magma" $idCipher = "MAGMA" Case "Camellia" $iAlgorithm = "camellia" $idCipher = "CAMELLIA" Case "LEA" $iAlgorithm = "lea" $idCipher = "LEA" Case "HIGHT" $iAlgorithm = "hight" $idCipher = "HIGHT" Case "PRESENT" $iAlgorithm = "present" $idCipher = "PRESENT" Case "TWINE" $iAlgorithm = "twine" $idCipher = "TWINE" EndSwitch EndIf If GUICtrlRead($Combo10) = "MAC" Then Switch GUICtrlRead($Combo9) Case "ZUC-128" $iAlgorithm = "eia128" $idCipher = "EIA128" Case "ZUC-256 32-bit" $iAlgorithm = "eia256 -bits 32" $idCipher = "EIA256" Case "ZUC-256 64-bit" $iAlgorithm = "eia256 -bits 64" $idCipher = "EIA256" Case "ZUC-256 128-bit" $iAlgorithm = "eia256" $idCipher = "EIA256" Case "Chaskey" $iAlgorithm = "chaskey" $idCipher = "CHASKEY" Case "Poly1305" $iAlgorithm = "poly1305" $idCipher = "POLY1305" Case "SipHash128" $iAlgorithm = "siphash" $idCipher = "SIPHASH128" Case "SipHash64" $iAlgorithm = "siphash64" $idCipher = "SIPHASH64" Case "Snow3G" $iAlgorithm = "uia2" $idCipher = "UIA2" Case "GOST-MAC 32-bit" $iAlgorithm = "gost" $idCipher = "GOST" Case "GOST-MAC 64-bit" $iAlgorithm = "gost -bits 64" $idCipher = "GOST" EndSwitch EndIf Select Case GUICtrlRead($Radio7) = $GUI_CHECKED $radioval = "File" Case GUICtrlRead($Radio8) = $GUI_CHECKED $radioval = "String" EndSelect $id = "MAC-" & $idCipher If $radioval = "File" Then $CMD = "echo [MAC] > " & @TempDir & "MAC.txt & edgetk " & $iCommand & " " & $iAlgorithm & " -key """ & $rRead & """ -iv """ & $xRead & """ < " & $sFile & " >> " & @TempDir & "MAC.txt" Else $CMD = "echo [MAC] > " & @TempDir & "MAC.txt & busybox echo -n """ & $sRead & """ |edgetk " & $iCommand & " " & $iAlgorithm & " -key """ & $rRead & """ -iv """ & $xRead & """ >> " & @TempDir & "MAC.txt" EndIf RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) $MAC = IniRead(@TempDir & "MAC.txt", "MAC", $id, "Error.") GUICtrlSetData($Edit23, $MAC) FileDelete(@TempDir & "MAC.txt") Case $Button48 Global $sRead = GUICtrlRead($Edit13) Global $rRead = GUICtrlRead($Edit22) Global $xRead = GUICtrlRead($Edit24) Global $yRead = GUICtrlRead($Edit23) Global $sFile = GUICtrlRead($Input13) Switch GUICtrlRead($Combo10) Case "MAC" $iCommand = "-mac" Case "CMAC" $iCommand = "-mac cmac -cipher" Case "PMAC" $iCommand = "-mac pmac -cipher" EndSwitch If GUICtrlRead($Combo10) = "CMAC" or GUICtrlRead($Combo10) = "PMAC" Then Switch GUICtrlRead($Combo11) Case "AES (Rijndael)" $iAlgorithm = "aes" Case "Anubis" $iAlgorithm = "anubis" Case "ARIA" $iAlgorithm = "aria" Case "Serpent" $iAlgorithm = "serpent" Case "Kuznechik" $iAlgorithm = "grasshopper" Case "SEED" $iAlgorithm = "seed" Case "Simon128" $iAlgorithm = "simon128" Case "Speck128" $iAlgorithm = "speck128" Case "Simon64" $iAlgorithm = "simon64" Case "Speck64" $iAlgorithm = "speck64" Case "SM4" $iAlgorithm = "sm4" Case "Twofish" $iAlgorithm = "twofish" Case "MISTY1" $iAlgorithm = "misty1" Case "GOST89-CryptoPro" $iAlgorithm = "gost89" Case "Magma" $iAlgorithm = "magma" Case "Camellia" $iAlgorithm = "camellia" Case "LEA" $iAlgorithm = "lea" Case "HIGHT" $iAlgorithm = "hight" Case "PRESENT" $iAlgorithm = "present" Case "TWINE" $iAlgorithm = "twine" EndSwitch EndIf If GUICtrlRead($Combo10) = "MAC" Then Switch GUICtrlRead($Combo9) Case "ZUC-128" $iAlgorithm = "eia128" Case "ZUC-256 32-bit" $iAlgorithm = "eia256 -bits 32" Case "ZUC-256 64-bit" $iAlgorithm = "eia256 -bits 64" Case "ZUC-256 128-bit" $iAlgorithm = "eia256" Case "Chaskey" $iAlgorithm = "chaskey" Case "Poly1305" $iAlgorithm = "poly1305" Case "SipHash128" $iAlgorithm = "siphash" Case "SipHash64" $iAlgorithm = "siphash64" Case "Snow3G" $iAlgorithm = "uia2" Case "GOST-MAC 32-bit" $iAlgorithm = "gost" Case "GOST-MAC 64-bit" $iAlgorithm = "gost -bits 64" EndSwitch EndIf Select Case GUICtrlRead($Radio7) = $GUI_CHECKED $radioval = "File" Case GUICtrlRead($Radio8) = $GUI_CHECKED $radioval = "String" EndSelect If $radioval = "File" Then $CMD = "edgetk " & $iCommand & " " & $iAlgorithm & " -key """ & $rRead & """ -iv """ & $xRead & """ -signature """ & $yRead & """ < " & $sFile & " > " & @TempDir & "Check.txt" Else $CMD = "busybox echo -n """ & $sRead & """ |edgetk " & $iCommand & " " & $iAlgorithm & " -key """ & $rRead & """ -iv """ & $xRead & """ -signature """ & $yRead & """ > " & @TempDir & "Check.txt" EndIf RunWait(@ComSpec & " /c " & $CMD, "", @SW_HIDE, 6) Local $sFileRead = FileRead(@TempDir & "Check.txt") MsgBox($MB_SYSTEMMODAL, "", "MAC Verification:" & @CRLF & $sFileRead) FileDelete(@TempDir & "Check.txt") EndSwitch WEnd EndFunc ;==>Main Chilkat sucks. To use this software, busybox and ROOTTk Engine are required. Download ROOTTk Engine here: https://github.com/pedroalbanese/roottk/blob/master/autotk.zip Source code: https://github.com/pedroalbanese/roottk Integrated Security Suite Asymmetric Public Key Algorithms: ECDSA 256-bit Ed25519/X25519 (256-bit) (Bernstein's X25519 is the Whatsapp ECDH) GOST R 34.10-2012 256/512-bit RSA Cryptosystem SM2 (256-bit) SM9 (256-bit) Barreto-Naehrig 256/512-bit Brainpool 256/512-bit FRP256v1 Koblitz (Secp256k1) Oakley 192/256-bit NUMS 256/512-bit (Microsoft 'Nothing Up My Sleeve' curves) WapiP192 WTLS9 Symmetric Stream ciphers: Chacha20 (256-bit) (AEAD) Ascon 1.2 (128-bit) (AEAD) Grain128a (AEAD) Rabbit (128-bit) (RFC 4503) Salsa20 (256-bit) Skein512 Trivium (80-bit) (ISO/IEC 29192-3:2012) KCipher2 (128-bit) HC128 HC256 ZUC-128 (EEA3/EIA3) ZUC-256 256-bit block ciphers: Threefish 256/512/1024-bit 128-bit block ciphers: ARIA 128/192/256-bit Anubis 128-bit (Barreto-Rijmen) Camellia 128/192/256-bit Grasshopper (256-bit) Rijndael "AES" 128/192/256-bit (Default) SM4 (128-bit) LEA 128/192/256-bit RC6 128/192/256-bit Serpent 128/192/256-bit Simon128 (NSA) 128/192/256-bit Speck128 (NSA) 128/192/256-bit Twofish 128/192/256-bit 64-bit block ciphers: DES [Obsolete] 3DES [Almost Obsolete] Blowfish (128-bit) CAST5 (128-bit) IDEA (128-bit) [Obsolete] Magma (256-bit) RC2 (128-bit) [Obsolete] RC5 (128-bit) [Obsolete] HIGHT (128-bit) Misty1 (128-bit) (Mitsubish Eletrics) Skipjack (80-bit) Simon64 (128-bit) Speck64 (128-bit) TEA (128-bit) XTEA (128-bit) TWINE (128-bit) Modes of Operation: CFB8: Cipher Feedback 8-bit CFB: Cipher Feedback CTR: Counter Mode (a.k.a. CNT) OCB: Offset Codebook Mode (AEAD) OFB: Output Feedback CCM: Counter w/ CBC-MAC (AEAD) EAX: Encrypt-Authenticate-Translate SIV Synthetic IV (AEAD) GCM: Galois/Counter Mode (AEAD) MGM: Multilinear Galois Mode (AEAD) Message Digest Algorithms: BLAKE-1 (256-bit) BLAKE-2B 256/512-bit BLAKE-2S 128/256-bit BLAKE3 (256-bit) GOST94 (256-bit) MD4 (128-bit) [Obsolete] MD5 (128-bit) [Obsolete] RIPEMD (160-bit) SHA1 (160-bit) [Obsolete] SHA2 256/512-bit (default) SHA3 256/512-bit Keccak 256/512-bit SM3 (256-bit) LSH 256/512-bit JH 256-bit Skein256 Skein512 Tiger (192-bit) Tiger2 (192-bit) Streebog 256/512-bit Whirlpool (512-bit) Message Authentication Code Algorithms: Poly1305 (128-bit) SipHash 64/128-bit Chaskey (128-bit) GOST-MAC 32/64-bit ZUC-128 ZUC-256 Features Cryptographic Functions: Asymmetric Encryption Symmetric Encryption Digital Signature Hash Digest ECDH (Shared Key Agreement) CMAC (Cipher-based message authentication code) HMAC (Hash-based message authentication code) HKDF (HMAC-based key derivation function) PBKDF2 (Password-based key derivation function) TLS 1.2 (Transport Layer Security) AUTOTk.au3 busybox.exe GUI.au3 Edited November 24, 2022 by Radix Some fixes Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now