Nuovo metodo di criptazione/encriptazione, cool By I.Ren(me)

#cs

Nome della funzione: Cripta

Autore: I.Ren

.........................................................................................................................................
|Parametri:
|
|...$Modo(0,1)...
|
|Se $modo � messo a 0 cripta una stringa;
|
|Se $modo � messo a 1 decripta una stringa criptata;
|
|...$stringa...
|
|Stringa da criptare
|
|...$pw...
|
|La variabile $pw � un parametro usato come 'opzione', infatti se non si mette, non da nessun errore e cripta/decripta lo stesso.
|
|Se invece $pw viene usata, cripta in modo pi� 'difficile' una stringa
.........................................................................................................................................

Esempi:

...1...

ConsoleWrite('Cripto la stringa: "Cripta by I.Ren!" -> '&Cripta(0,'Cripta by I.Ren') & @CRLF&@CRLF& 'Decripto la stringa: "��Ү� �� �����" -> '&Cripta(1,'��Ү� �� �����') &@CRLF&@CRLF& _
'Criptao la stringa: "Cripta by I.Ren" e aggiungo la password(xD) -> ' &Cripta(0,'Cripta By I.Ren','xD')&@CRLF&@CRLF& 'DeCriptao la stringa: "��ֱ؁�،����" -> ' & Cripta(1,'���ֱ؁�،����','xD')&@CRLF&@CRLF& _
Cripta(0,'By I.Ren!')& '  <- DeCriptaalo! xD'&@CRLF&@CRLF)

...2...

MsgBox(0,'Demo','Cripto: "ciao" -> ' & cripta(0,'ciao') & ' <-Decripto: " ���� " -> ' & Cripta(1,'����'))

...3...

;Esempio con una gui!
#include <Cript-Encript.au3>; includo il metodo per criptare/decriptare
#include <GUIConstants.au3>

$gui = GUICreate('Esempio con gui del metodo di criptazione/encriptazione -��Ү� ��-',620,400)
$txt = GUICtrlCreateEdit('Scrivi qui il testo!',0,0,620,350)
GUICtrlSetFont(-1,10,5000,1,'arial')
$crip = GUICtrlCreateButton('Cripta',300,360,80,30)
$decrip = GUICtrlCreateButton('Decripta',410,360,80,30)
$copia = GUICtrlCreateButton('Copia il codice',520,360,80,30)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateLabel('Password',2,360,68)
GUICtrlSetFont(-1,11,5000,1,'Arial')
$pw = GUICtrlCreateInput('',80,358,200,20,0x21)
GUISetBkColor(0xFFFFFF)
GUISetState ( )

While 1
       Switch GUIGetMsg()
       Case $copia
       ClipPut(guictrlread($txt))
       Case $decrip
       GUICtrlSetData($txt,Cripta(1,GUICtrlRead($txt),GUICtrlRead($pw)))
       GUICtrlSetState($copia,$GUI_DISABLE)
       Case $crip
       GUICtrlSetData($txt,Cripta(0,GUICtrlRead($txt),GUICtrlRead($pw)))
       GUICtrlSetState($copia,$GUI_ENABLE)
       Case $GUI_EVENT_CLOSE
       Exit
EndSwitch
WEnd


#ce

Func Cripta($Modo,$stringa,$pw='')
   If $Modo = 0 Then
       Return _asd(_asd2($stringa,$pw));Cripta
   Endif
   If $Modo = 1 Then
       Return _asd2(_asd($stringa),$pw);Decripta
   Endif
EndFunc
Func _asd($stringa)
   $a = ""
   $stringa = _xd($stringa)
   For $i = 1 To stringlen($stringa)
       $Nummer = asc(stringmid($stringa,$i,1))
       If $Nummer < 128 Then
           $a = $a &chr(128+$nummer)
       EndIf
       If $nummer >= 128 Then
           $a = $a &chr($Nummer-128)
       EndIf
   Next
   Return $a
EndFunc
Func _asd2($stringa,$pw)
   $a = ""
   $massimo = stringlen($pw)
   $c = 1
   For $i = 1 To stringlen($stringa)
       $c = $c + 1
       if $c = $massimo Then
           $c = 1
       EndIf
       $a = $a & chr(BitXOR(asc(stringmid($stringa,$i,1)),asc(stringmid($pw,$c,1)))&"  ")    
   Next
   Return $a
EndFunc
Func _xd($stringa)
   $a = ""
   For $i = StringLen($stringa) to 1 step -1
       $a = $a & stringmid($stringa,$i,1)
   Next
   Return $a
EndFunc

#include <Cript-Encript.au3>; includo il metodo per criptare/decriptare
#include <GUIConstants.au3>

$gui = GUICreate('Esempio con gui del metodo di criptazione/encriptazione -��Ү� ��- ' & cripta(1,'��Ү� ��'),620,400)
$txt = GUICtrlCreateEdit('Scrivi qui il testo da crittare!',0,0,620,350)
GUICtrlSetFont(-1,10,5000,1,'arial')
$crip = GUICtrlCreateButton('Cripta',300,360,80,30)
$decrip = GUICtrlCreateButton('Decripta',410,360,80,30)
$copia = GUICtrlCreateButton('Copia il codice',520,360,80,30)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateLabel('Password',2,360,68)
GUICtrlSetFont(-1,11,5000,1,'Arial')
$pw = GUICtrlCreateInput('',80,358,200,20,0x21)
GUISetBkColor(0xFFFFFF)
GUISetState ( )

While 1
       Switch GUIGetMsg()
       Case $copia
       ClipPut(guictrlread($txt))
       Case $decrip
       GUICtrlSetData($txt,Cripta(1,GUICtrlRead($txt),GUICtrlRead($pw)))
       GUICtrlSetState($copia,$GUI_DISABLE)
       Case $crip
       GUICtrlSetData($txt,Cripta(0,GUICtrlRead($txt),GUICtrlRead($pw)))
       GUICtrlSetState($copia,$GUI_ENABLE)
       Case $GUI_EVENT_CLOSE
       Exit
EndSwitch
WEnd

scusa ma l'avevo guardato al volo e mi ero dimenticato di provarlo ^^ te lo provo subito :P

bel codice ^^ bravo anke x aver messo la password!!
la criptazione � abbastanza intuitiva per l'utente iniziale (si nota subito il ribaltamento della frase e i punti di domanda al contrario :P)