Kodowanie wiadomości

[Amfetaminek]

Wiem że to banał itd.
Ale było to potrzebne mi więc stworzyłem:P
Przy okazji dodałem GUI i jakąś opcje.
Jak komuś potrzebne niech łapie

#include <String.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$hasloon=true

$Form1 = GUICreate("Koder By Amfetamina", 615, 140, 192, 124)
$Input1 = GUICtrlCreateInput("", 85, 40, 489, 20)
$Input2 = GUICtrlCreateInput("", 85, 70, 489, 20)
$Input3 = GUICtrlCreateInput("", 56, 10, 89, 20)
GUICtrlCreateLabel("HASLO:",10,10,40,20)
GUICtrlCreateLabel("TEKST/KOD-->",10,40,75,20)
$Radio1 = GUICtrlCreateRadio("Z haslem", 200, 10, 70, 17)
GUICtrlSetState($radio1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("Brak hasla", 300, 10, 100, 17)
GUICtrlCreateLabel("WYNIK----------->",10,70,75,20)
$Button1 = GUICtrlCreateButton("odkoduj", 330, 100, 240, 25)
$Button2 = GUICtrlCreateButton("koduj", 85, 100, 240, 25)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Button2
			$tekst1=GUICtrlRead($Input1)
			$haslo=GUICtrlRead($Input3 )
			if $hasloon = true then
				if $haslo = "" then
					msgbox(0,"","Wpisz haslo"&@lf&"Lub wybierz opcje bez hasla")
					endif
			$encrypted = _StringEncrypt(1, $tekst1, $haslo)
			GUICtrlSetData($Input2,$encrypted)
		else
			$encrypted = _StringEncrypt(1, $tekst1, "1")
			GUICtrlSetData($Input2,$encrypted)
			endif
		case $Button1

			$tekst1=GUICtrlRead($Input1)
			$haslo=GUICtrlRead($Input3 )
			if $hasloon = true then
				if $haslo = "" then
					msgbox(0,"","Wpisz haslo"&@lf&"Lub wybierz opcje bez hasla")
					endif
			$tekst2=_StringEncrypt(0, $tekst1 ,$haslo)
			GUICtrlSetData($Input2,$tekst2)
			else
			$tekst2=_StringEncrypt(0, $tekst1 ,"1")
			GUICtrlSetData($Input2,$tekst2)
			endif
		case $Radio1
			$hasloon=true
		case $Radio2
			$hasloon=false
	EndSwitch
WEnd

 

[JestemPolakiem]

Buuu ! Leci hejt, złapiesz ???

 

 

 

Po 1 popraw taki błąd, że gdy wpiszemy hasło i zaznaczymy bez hasła to nic nie wyskakuje (żaden error) oraz dodaj takie szyfrowanie jak :

Hex

Binarne (w autoit jest taka opcja lecz ona dziwnie liczy bo binarne to system dwójkowy, czyli ma tylko takie liczby, np : 1000110101011110)

60-tkowe

Po 2 zrób możliwość zapisania tego do pliku z rozszerzeniem .txt

Po 3 jest już wiele takich koderów (wiem robiłeś to dla siebie).

Po 4 zamiast input'a w wyniku daj jakiś box/konsole by to fajnie wyglądało .

[Amfetaminek]

Jak będę miał czas może coś z tym zrobię
Ktoś mnie o to prosił właściwie więc też nie dla siebie.
Jak pisałem jak komuś potrzebne niech łapie .
Jeśli ktoś wyraża chęć posiadania takiego czegoś w lepszej wersji to mogę zrobić bez problemu

 

@Edit


Z ciekawości zerknąłem na programik:D
Po co ma wyskakiwać okno że jest hasło skoro go nie używa ?