PC Toledo

Enviado: **26 Nov 2018 20:06**

Já fiz isto antes, mas agora está diferente.
Agora está limitando ao menor.
Houve alguma mudança no FOR/EACH?

Nota: já alterei pra array e acontece o mesmo.

Código: Selecionar todos

#include "inkey.ch"

PROCEDURE Main

   LOCAL cText := "TESTANDO CRIPTO", cKeyList := "123456"
   LOCAL cLetter, cNumber
   LOCAL cCripto := "", cDescripto := ""

   //cKeyList := Left( Replicate( cKeyList, 5 ), Len( cText ) )

   FOR EACH cLetter, cNumber IN cText, cKeyList
      cCripto += Chr( Asc( cLetter ) - Val( cNumber ) )
   NEXT

   ? cCripto

   FOR EACH cLetter, cNumber IN cCripto, cKeyList
      cDescripto += Chr( Asc( cLetter ) + Val( cNumber ) )
   NEXT

   ? cDescripto
   Inkey(0)

   RETURN

Na época em que eu escrevi o ebook sobre Harbour (2016) já era assim. O menor é que determina o número de iterações.

Devo ter considerado diferente, sem ter conferido o resultado.

E o conteúdo do ebook? é domínio público? poderia fazer parte do Harbour?

Sim, o ebook é de domínio público. Pode fazer parte de qualquer produto ou serviço. Só gostaria que os créditos fossem mantidos em cima do trabalho que foi feito.

o ebook é de domínio público

por gentileza, onde está o link do ebook pra gente baixar/ler, etc?

obg.

viewtopic.php?f=5&t=19591&p=127153&hilit=vlademiro#p127153

Olá!

Vejam este tópico, onde o autor informa o link para download da versão mais atualizada: Livro e-book Harbour em PDF

PC Toledo

FOR EACH mudou ???

FOR EACH mudou ???

FOR EACH mudou ???

FOR EACH mudou ???

FOR EACH mudou ???

FOR EACH mudou ???

FOR EACH mudou ???

FOR EACH mudou ???