terça-feira, 20 de julho de 2010

Configurando FTP Passivo no Windows Server 2008

Siga os passos abaixo:
1) Clicar em INICIAR
2) Executar
3) digite: CMD
4) Digite a linha abaixo para abrir a porta 21 no firewall:
netsh advfirewall firewall add rule name="FTP (no SSL)" action=allow protocol=TCP dir=in localport=21


5) Ativar no firewall o filtro de aplicação para FTP (aka Stateful FTP) que irá dinamicamente abrir a porta para conexão de dados:


netsh advfirewall set global StatefulFtp enable

terça-feira, 13 de julho de 2010

xHarbour - duas maneiras de fazer um loop em uma string pegando cada caracter da mesma

Usando o tradicional FOR
Local I, cNome
cNome := "Edson Mundin Ferreira"
For I = 1 To Len(cNome)
? SubStr(cNome, I, 1)
Next I 

Usando o FOR EACH
Local C, cNome
cNome := "Edson Mundin Ferreira"
For Each cLetra IN cNome
? cLetra
Next

xHarbour - Checando se um email é válido usando expressões regulares

cRegEx := "[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}"
If HB_RegExMatch( cRegEx, cEmail, .F. )
? "Email Válido!"
Else 
? "Email Inválido!"
EndIf