Topic: String translation

[matrix2005in]

hi

the code given below is translate  given string to another

(defun ceasar (txt /)
(vl-string-translate
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
"asdsdasdsdsadAKJHDFGKLJHDSFGKLHJDSSEFJK"
txt
)
)

(setq a
"can be anything that we dont know"
)


(DEFUN C:TET ()
(SETQ W (ceasar a))
(SETQ D (OPEN "C:\\TEST.TXT" "W"))
(SETQ AB (WRITE-LINE W D))
(CLOSE D)
)

(DEFUN C:TEP ()
(SETQ AG (OPEN "C:\\TEST.TXT" "R"))
(SETQ AH (READ-LINE AG))
(SETQ AS (ceasar AH)
(ALERT AS)
)

but this is not working....can any one help me??

thanks

mathew

[ElpanovEvgeniy]

What should the program do?

(defun ceasar (txt /)
  (vl-string-translate
    "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    "asdsdasdsdsadAKJHDFGKLJHDSFGKLHJDSSEFJK"
    txt
  ) ;_  vl-string-translate
) ;_  defun
 
(DEFUN C:TET (A / AB D W)
  (SETQ W (ceasar a))
  (SETQ D (OPEN "C:\\TEST\\TEST.TXT" "W"));Replace the lengthy path
  (SETQ AB (WRITE-LINE W D))
  (CLOSE D)
)
(setq a "can be anything that we dont know")
(C:TET a)

(DEFUN C:TEP ( / AG AH AS)
  (SETQ AG (OPEN "C:\\TEST\\TEST.TXT" "R"));Replace the lengthy path
  (SETQ AH (READ-LINE AG))
  (CLOSE AG)
  (SETQ AS (ceasar AH))
  (ALERT AS)
)

[Serge J. Gianolla]

This was the code given to you by Bruno Toniutti, and I think it'd be nice to make a reference here, anyway he gave you the answer later on too:
>the encryption is working good but decryption wont..

you must use a rotation of 13 positions (a  (position 1) becomes (1 + 13) =
n  etc.) for an alphabet of 26 characters. Thus this algo works to encrypt
and decrypt.

Bruno Toniutti
(sorry for my english level)

Code: [Select]

(defun ceasar (txt /)
  (vl-string-translate
    "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    "nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM"
    txt
  )
)
Hi Evgeniy,
matrix2005in is none other than Mathew2006 you answere to in autodesk ng! - I know this thanks to LE

[matrix2005in]

hi

yeah if you see i signing off with my name = "mathew" in both places
there is no catch in that..and another quetion "string stripping" i asked in both places and i got same people answerd...

mathew

[Serge J. Gianolla]

hi

yeah if you see i signing off with my name = "mathew" in both places
there is no catch in that..
mathew

Really! I must have misunderstood your answer then: http://www.theswamp.org/index.php?topic=10378.msg132250#msg132250
 

[matrix2005in]

hi Evgeniy

the same problem... the code is not decrypting or translating to its original form...

[matrix2005in]

HA HA

my partner done that while i was not on my desk........

[ElpanovEvgeniy]

you must use a rotation of 13 positions (a  (position 1) becomes (1 + 13) =
n  etc.) for an alphabet of 26 characters. Thus this algo works to encrypt
and decrypt.

Bruno Toniutti

Not necessarily... 

Code: [Select]

(defun ceasar (txt /)
  (vl-string-translate
    " aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ"
    "ZzYyXxWwVvUuTtSsRrQqPpOoNnMmLlKkJjIiHhGgFfEeDdCcBbAa "
    txt
  ) ;_  vl-string-translate
) ;_  defun

; Test:
(setq str "can be anything that we dont know")
(setq crypt-str(ceasar a)) ; ->> "xzmZyvZzmbgsrmtZgszgZdvZwlmgZpmld"
(ceasar crypt-str) ; ->> "can be anything that we dont know"


[matrix2005in]

Yeah this code will work...my question is...

CRITERIA ONE

A) ENCRYPT/TRANSLATE SOME STRING USING THE SAME FUNCTION AND SAVE IN A TEXT FILE.

B) CALL  ENCRYPTED TEXT FILE ,READ MESSAGE AND DECRYPT SAME.

CRITERIA TWO

A) ENCRYPT/TRANSLATE SOME STRING USING THE SAME FUNCTION AND SAVE  TEXT FILE IN ONE MACHINE.

B) DECRYPT THE CONTENT IN ANOTHER MACHINE WITH SAME FUNCTION
 

thanks

mathew

[ElpanovEvgeniy]

Yeah this code will work...my question is...

CRITERIA ONE

A) ENCRYPT/TRANSLATE SOME STRING USING THE SAME FUNCTION AND SAVE IN A TEXT FILE.

B) CALL  ENCRYPTED TEXT FILE ,READ MESSAGE AND DECRYPT SAME.

CRITERIA TWO

A) ENCRYPT/TRANSLATE SOME STRING USING THE SAME FUNCTION AND SAVE  TEXT FILE IN ONE MACHINE.

B) DECRYPT THE CONTENT IN ANOTHER MACHINE WITH SAME FUNCTION
 

thanks

mathew

I asked it two weeks ago! 

[matrix2005in]

oh

OK then is there anyway to translate some word say my name "Mathew" to some other strings say "Fjgasj"  and decrypt back to the original  form...but that must be save in a text file and read/decrypt the same..

mathew

[Andrea]

oh

OK then is there anyway to translate some word say my name "Mathew" to some other strings say "Fjgasj"  and decrypt back to the original  form...but that must be save in a text file and read/decrypt the same..

mathew

take a look here... ->

[matrix2005in]

is there anyone to resolve this??

[Andrea]

dont forget to close your file...

(DEFUN C:TEP ()
(SETQ AG (OPEN "C:\\TEST.TXT" "R"))
(SETQ AH (READ-LINE AG))
(SETQ AS (ceasar AH)
(CLOSE AG)
(ALERT AS)
(ALERT AH)

)