Stats

Replies 5
Subscribers 160
Views 13744
Members are here 0

encrypter skill

i want to write a skill to encrypt my skill file but my code doenst wok.. please help..

here is my code:

(defun encrypt ()

file = axlDMFileBrowse(nil nil ?optFilters "Skill files(*.il)|*.csf|Dat files(*.dat)|*.dat|)("?title"Select Skill file to Encrypt"))

if(!isDir("~/skill/encrypt") then

createDir("~/skill/encrypt")

)

fileparts = axlDMFileParts(file)

filepartsFileWext = nth(2 fileparts)

fileEncParts = strcat("~/skill/encrypt/" filepartsFileWext)

encrypt(file fileEncParts eLock)

)

axlCmdRegister("encrypt" 'encrypt)

aCraig over 12 years ago

Couple of things. First "encrypt" is a reserved word so redefine your function, maybe "myencrypt". Second the syntax is wrong for axlDMFileBrowe.
Craig
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Pawandeep over 12 years ago

Hi,
I made changes to your program-See attachment.
-Pawan

myencrypt.il
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
seyerfred over 12 years ago

Thanks craig and pawan...
program still not functioning...
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Pawandeep over 12 years ago

Try to provide the Absoulte Path to the files instead of Relative path and see if it helps.
-Pawan
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
aCraig over 12 years ago

Try this:

(axlCmdRegister "myencrypt" 'myencrypt)
(defun myencrypt ()
(let (file fileparts filepartsFile fileEncParts)
file = axlDMFileBrowse(nil nil ?optFilters "Skill files (*.il)|*.il|)" ?title "Select Skill file to Encrypt")
(when file
    (unless (isDir "./encrypt")
       (createDir "./encrypt")
    )
    fileparts = (axlDMFileParts file)
    filepartsFile = (cadr fileparts)
    fileEncParts = (strcat "./encrypt/" filepartsFile "-enc.il")
    (encrypt file fileEncParts "eLock")
)
))
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Cadence Guidelines

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.