Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

Encrypt & Decrypt Text


  • Please log in to reply
5 replies to this topic
jNizM
  • Members
  • 928 posts
  • Last active: Jan 12 2018 09:23 AM
  • Joined: 01 Aug 2012
Encrypt & Decrypt Text

Verschlüsselt und Entschlüsselt beliebigen Text mit einem Passwort

Basiert auf:
Crypt - ahk cryptography class by Deo

wikipedia_26.png[Wiki]
CryptAlg:
> RC4 (Rivest Cipher oder Ron's Code)
> RC2 (Rivest Cipher oder Ron's Code)
> DES (Data Encryption Standard)
> 3DES (Triple-DES / DESede)
> AES (Advanced Encryption Standard)

download_26.png[Download:]
> EnCrypt_DeCrypt (v1.1.11.01 Unicode 64-bit)
> EnCrypt_DeCrypt (v1.1.11.01 Unicode 32-bit)
> EnCrypt_DeCrypt (v1.1.11.01 ANSI 32-bit)

source_26.png[Source:]
> EnCrypt_DeCrypt

png_26.png[Screenshots:]
En_DeCrypt.jpg
[AHK] 1.1.27.04 x64 Unicode | [WIN] 10 Pro (Version 1709)
My GitHub Profile | Donations are appreciated if I could help you

IsNull
  • Moderators
  • 990 posts
  • Last active: May 15 2014 11:56 AM
  • Joined: 10 May 2007

Ganz nett! Wie wäre es mit einem Drop-Down, wo man den Verschlüsselungs-Algorythmus auswählen kann?



jNizM
  • Members
  • 928 posts
  • Last active: Jan 12 2018 09:23 AM
  • Joined: 01 Aug 2012
Update:
> DropDownList für verschiedene Verschlüsselungs-Algorythmen
[AHK] 1.1.27.04 x64 Unicode | [WIN] 10 Pro (Version 1709)
My GitHub Profile | Donations are appreciated if I could help you

IsNull
  • Moderators
  • 990 posts
  • Last active: May 15 2014 11:56 AM
  • Joined: 10 May 2007

Sehr nice! wink.png

 

Da du die Verschlüsselungen genau in der Richtigen Reihenfolge hast, kannst du übrigens folgenden Code ...

ButtonEncrypt:
	GuiControlGet, Str
	GuiControlGet, Str2
	GuiControlGet, Encryption

	if Encryption = 1
		GuiControl,, EnDeCrypt, % Crypt.Encrypt.StrEncrypt(Str, Str2, 1, 6)
	if Encryption = 2
		GuiControl,, EnDeCrypt, % Crypt.Encrypt.StrEncrypt(Str, Str2, 2, 6)
	if Encryption = 3
		GuiControl,, EnDeCrypt, % Crypt.Encrypt.StrEncrypt(Str, Str2, 3, 6)
	if Encryption = 4
		GuiControl,, EnDeCrypt, % Crypt.Encrypt.StrEncrypt(Str, Str2, 4, 6)
	if Encryption = 5
		GuiControl,, EnDeCrypt, % Crypt.Encrypt.StrEncrypt(Str, Str2, 5, 6)
	if Encryption = 6
		GuiControl,, EnDeCrypt, % Crypt.Encrypt.StrEncrypt(Str, Str2, 6, 6)
	if Encryption = 7
		GuiControl,, EnDeCrypt, % Crypt.Encrypt.StrEncrypt(Str, Str2, 7, 6)
Return

 

... vereinfachen. Da in der Variable Encryption genau die Zahl steht, die du dann später übergibst, sollte folgendes den gleichen Effekt haben:

 

ButtonEncrypt:
    GuiControlGet, Str
    GuiControlGet, Str2
    GuiControlGet, Encryption

    GuiControl,, EnDeCrypt, % Crypt.Encrypt.StrEncrypt(Str, Str2, Encryption, 6)
 Return

 



jNizM
  • Members
  • 928 posts
  • Last active: Jan 12 2018 09:23 AM
  • Joined: 01 Aug 2012
Update:
> Sourcecode Optimierung

(Dank dir IsNull)
[AHK] 1.1.27.04 x64 Unicode | [WIN] 10 Pro (Version 1709)
My GitHub Profile | Donations are appreciated if I could help you

cupcakeremix
  • Members
  • 7 posts
  • Last active: Mar 14 2015 07:22 PM
  • Joined: 04 Feb 2015

Die Downloadlinks sind leider down.