Mio primo programmino :'), FLBCripeter 0.1

#cs/----------------------------------------/
FLBCripter0.1!! By FLB

#ce/----------------------------------------/
dim $a, $i,$dim,$temp,$asci,$scripterm="",$file

$file = FileOpen("cript.txt", 0)


; Controlla se ilfile aperto in lettura č OK
If $file = -1 Then
MsgBox(0, "Error", "Impossibile aprire il file.")
Exit
EndIf

; Legge linee di testo finchč viene raggiunto EOF
While 1
$line = FileReadLine($file)
If @error = -1 Then Exitloop
MsgBox(0, "Linea letta:", $line)

MyCript($line) ;va alla funzione di criptaggio
Wend

FileClose($file)
exit

;FUNZIONE DI CRIPTAGGIO FILE RIGA PER RIGA!!
func MyCript(ByRef $a)
FileWrite("cript2.txt",@crlf)

$dim=StringLen($a) ;Lunghezza stringa


;MsgBox(0,"", $dim) ;XXXXXXXXXXXXXXXXX

for $i=0 to $dim-1 step 1

$temp=StringLeft($a,1) ;legge la prima lettera

if $temp=" " Then ;se č uno spazio allora...

FileWrite("cript2.txt",$temp) ; non lo cambia e fa lo spazio
;$scripterm=$scripterm & " " & $temp;xxxxxx---- fa vedere momentaneamente la stringa consecutivamente
$a=StringMid($a,2,$dim) ;dalla stringa viene cancellato lo spazio
ContinueLoop

else
if $temp>"õ" then ;se la lettera č maggiore di 245( Del CodAsci) .....
$asci=asc($temp) ;controlla il cod Asci della lettera
$temp=Chr($asci-10) ;lo converte sottraendo 10 dai codici Asci
FileWrite("cript2.txt",$temp) ; lo scrive nel nuovo file
;$scripterm=$scripterm & " " & $temp;xxxxxx---- fa vedere momentaneamente la stringa consecutivamente
$a=StringMid($a,2,$dim) ;dalla stringa viene cancellata la lettera che č stata convertita e criptata
ContinueLoop
EndIf
EndIf ;se la lettera č minore di 245(codAsci)


$asci=asc($temp) ;controlla il cod Asci della lettera
$temp=Chr($asci+10) ;lo converte sommando 10 dai codici Asci
FileWrite("cript2.txt",$temp) ; scrive la lett.
;$scripterm=$scripterm & " " & $temp;xxxxxx---- fa vedere momentaneamente la stringa consecutivamente
$a=StringMid($a,2,$dim) ;dalla stringa viene cancellata la lettera che č stata convertita e criptata



Next


;MsgBox(0,"",$scripterm)

endfunc

FileClose($file)