Encrypt/Decrypt a file

 

Compatibilities: Required Xtras: Buddy API

Rating:

Encrypts/Decrypts a file at runtime

---- written for Director 8 --- ---- Kumar.K kumark@icode.com ---- -- custom properties -- property folderlist,theFile,subfolders,fileslist,keyorpass,whereto ------ Get Behavior Description List ------ on getPropertyDescriptionList me   fileslist=getfilelist(me)   set description = [:]   addProp description, #theFile, [#format:#String, #comment: "Encrypt/Decrypt Which File ?", #range:fileslist,#default:fileslist[1]]   addProp description, #keyorpass, [#format:#String, #comment: "Your Key/Password? ", #default:"Enter Your Key here."]   if the currentspritenum = 0 then     addProp description, #WhereTo, [#comment: "Where To Attach ?" ,#format:#String,     #range:["On EnterFrame","On ExitFrame"],#default:"On EnterFrame"]   else     addProp description, #WhereTo, [#comment: "Where To Attach ?" ,#format:#String,     #range:["On MouseUp","On MouseDown","On MouseEnter","On MouseLeave"],#default:"On MouseUp"]       end if       return description end getPropertyDescriptionList ------ Get Behavior Description List ------ -- Get Behavior description -- on getBehaviorDescription   return "This Behavior Encrypts/Decrypts a file. " & RETURN & "Actually It toggles Encrypt/Decrypt." & RETURN & RETURN &   "Make sure you have the file you want to encrypt/decrypt is in current folder or subfolders upto level 2. " & RETURN & RETURN &   "This Behavior needs Buddy API Xtra to work, so please ensure You Have Buddy API Xtra." & RETURN & RETURN &   "Parameters" & RETURN &   "* File." & RETURN &   "* Key/password." & RETURN &   "* Where to attach this Script" end -- Get Behavior description -- ---- get the file name to be opened ---- on getfilelist me   set mypath=the moviepath   set fileslist=[]   set Folders = baFolderList( mypath )   set Files = baFileList( mypath ,"*.*")   repeat with M=1 to Files.count     fileslist.append(files[m])   end repeat   repeat with i = 1 to folders.count     set subfolders = baFolderList( mypath & "" & folders[i])     if subfolders.count <> 0 then       repeat with j=1 to subfolders.count         set Files = baFileList( mypath & " " &  folders[i] & "" & subfolders[j],"*.*")         repeat with k=1 to Files.count           fileslist.append(folders[i] & "" & subfolders[j] & "" & files[k])         end repeat       end repeat       set Files = baFileList( mypath & " " &  folders[i],"*.*")           repeat with j=1 to Files.count         fileslist.append(folders[i] & "" & files[j])       end repeat         else       set Files = baFileList( mypath & " " &  folders[i],"*.*")       repeat with j=1 to Files.count         fileslist.append(folders[i] & "" & files[j])       end repeat     end if         end repeat   return fileslist end ---- get the file name to be opened ---- -- Events -- on EnterFrame me   if WhereTo = "On EnterFrame" then     openfile   end if end EnterFrame on ExitFrame me   if WhereTo = "On EnterFrame" then     encryptordecrypt   end if end ExitFrame on MouseUp   if WhereTo = "On MouseUp" then     encryptordecrypt   end if end MouseUp on MouseDown   if WhereTo = "On MouseDown" then     encryptordecrypt   end if end MouseDown on MouseEnter   if WhereTo = "On MouseEnter" then     encryptordecrypt   end if end MouseEnter on MouseLeave   if WhereTo = "On MouseLeave" then     encryptordecrypt   end if end MouseLeave ------ Events ------ ---Encrypt/Decrypt a File --- on encryptordecrypt   if keyorpass <> "" then     set OK = baEncryptFile( the moviepath & thefile , keyorpass )   else     alert "Please Enter Your Key"   end if end ---Encrypt/Decrypt a File ---