Ragazzi questo è un programmino criptatore che è ho fatto qualche mesetto fà,è una cavolata pero è carino...
CODICE
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_Comment=codice segreto
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <inet.au3>
#include <guiconstants.au3>
$GUI = GUICreate ("Codice Segreto") ; crea il titolo
$about = GUICtrlCreateMenu ("Creatore")
$autor = GUICtrlCreateMenuItem ("Autore",$about); autore Valexis95
$button1 = GUICtrlCreateButton ("About","10","12")
$testo = GUICtrlCreateInput ("","50","70","200","70")
$button2 = GUICtrlCreateButton( "Maschera" ,"80","150","60","40")
$mascherato = GUICtrlCreateInput ("","50","200","200","70")
$help = GUICtrlCreateMenu ("Help")
$aiuto = GUICtrlCreateMenuItem ("Aiuto&Guida",$help)
GUISetState (@SW_SHOW)
While 1
$msg = GUIGetMsg ()
Select
Case $msg = $button1
MsgBox (0,"By Valexis95","Creato da Valexis95-valexis95@hotmail.it")
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $autor
MsgBox (0," CODICE SEGRETO-Creato da:","Valexis95 www.hackerworld.forumcommunity.net-Tutti i diritti riservati")
Case $msg = $button2
$testoleggi = GUICtrlRead ($testo)
$a=StringReplace($testoleggi,"a", "?",0,1)
#
$b=StringReplace($a,"A","?",0,1)
#
$c=stringreplace($b,"b",">",0,1)
#
$d=StringReplace($c,"B",">",0,1)
#
$e=StringReplace($d,"c","%",0,1)
#
$f=StringReplace($e,"C","%",0,1)
#
$g=StringReplace($f,"d","<",0,1)
#
$h=StringReplace($g,"D","<",0,1)
#
$i=StringReplace($h,"e", ")",0,1)
#
$j=StringReplace($i, "E", ")",0,1)
#
$k=StringReplace($j, "f", "(",0,1)
#
$l=StringReplace($k,"F", "(",0,1)
#
$m=StringReplace($l,"g", "@",0,1)
#
$n=StringReplace($m,"G", "@",0,1)
#
$o=StringReplace($n, "h", "§",0,1)
#
$p=StringReplace($o, "H", "§",0,1)
#
$q=StringReplace($p, "i", "_",0,1)
#
$r=StringReplace($q, "I", "_",0,1)
#
$s=StringReplace($r, "l", "-",0,1)
#
$t=StringReplace($s, "L", "-",0,1)
#
$u=StringReplace($t, "m", "ç",0,1)
#
$v=StringReplace($u, "M", "ç",0,1)
#
$w=StringReplace($v, "n", "+",0,1)
#
$x=StringReplace($w, "N", "+",0,1)
#
$y=StringReplace($x, "o", "*",0,1)
#
$z=StringReplace($y, "O", "*",0,1)
#
$1=StringReplace($z, "p", "=",0,1)
#
$2=StringReplace($1, "P", "=",0,1)
#
$3=StringReplace($2, "q", "£",0,1)
#
$4=StringReplace($3, "Q", "£",0,1)
#
$5=StringReplace($4, "r", "|",0,1)
#
$6=StringReplace($5, "R", "|",0,1)
#
$7=StringReplace($6, "s", "\",0,1)
#
$8=StringReplace($7, "S", "\",0,1)
#
$9=StringReplace($8, "t", "[",0,1)
#
$10=StringReplace($9, "T", "[",0,1)
#
$11=StringReplace($10, "u", "3",0,1)
#
$12=StringReplace($11, "U", "3",0,1)
#
$13=StringReplace($12, "v", "#",0,1)
#
$14=StringReplace($13, "V", "#",0,1)
#
$15=StringReplace($14, "z", "^",0,1)
#
$16=StringReplace($15, "Z", "^",0,1)
#
$17=StringReplace($16, "x", "0",0,1)
#
$18=StringReplace($17, "X", "0",0,1)
#
$19=StringReplace($18, "w", "&",0,1)
#
$20=StringReplace($19, "W", "&",0,1)
#
$21=StringReplace($20, "y", "°",0,1)
#
$22=StringReplace($21, "Y", "°",0,1)
#
$23=StringReplace($22, "j", "ì",0,1)
#
$24=StringReplace($23, "J", "ì",0,1)
#
$25=StringReplace($24, "k", "ù",0,1)
#
$26=StringReplace($25, "K", "ù",0,1)
GUICtrlSetData ($mascherato,$26)
Case $msg = $Aiuto
MsgBox (0, "CODICE SEGRETO" ,"-immetere la frase o parola che si vuole trasformare -cliccare maschera-copiare il testo modificato p.s= nelle prossime versioni potrete anche decifrare")
EndSelect
WEnd
