selam,

on encryptordecrypt 
  if keyorpass <> '' then 
    set OK = baEncryptFile( the moviepath & thefile , keyorpass ) 
    baShell( 'open', the moviePath & 'acrobat\AcroRd32.exe', the moviePath & theFile , '', 'normal') 
  else 
    alert 'Please Enter Your Key' 
  end if 
end

seklinde duzenlenirse sorun cozulecektir.

ote yandan; pdf’ler cd’ye yazilirken encyrpt edilmesi yani sifrelemesi lazim…

kolay gelsin

BuddyAPI kullanarak cd den pdf açtırıyorum.

on mouseUp me
  baShell( 'open', the moviePath & 'acrobat\AcroRd32.exe', the moviePath & 'pdf\kitap_1.pdf' , '', 'normal')
end

pdf’yi şifreleyip – tekrar açmak istiyorum. elimde bu script var ama nasıl kullanacağımı bilmiyorum. yardımcı olursanız sevinirim.

-- 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 --- 

bu cevap biraz profesyonelce oldu sanırım.

ben BuddyAPI’yi kullanmayı yeni öreniyorum ve bu scripti de nasıl kullanacağımı bilmiyorum. ordaki uzun scripti nasıl kullanacağım.?

• sizin verdiğiniz üstteki kodu nereye yazacağım?
• cd’ye yazarken nası encyrpt edeceğim?

directorde cok yeniyim, eger mumkunse örnek bir .dir dosyasi yollayabilirmisin?

bu cevap biraz profesyonelce oldu sanırım. ben BuddyAPI’yi kullanmayı yeni öreniyorum ve bu scripti de nasıl kullanacağımı bilmiyorum. ordaki uzun scripti nasıl kullanacağım.? – sizin verdiğiniz üstteki kodu nereye yazacağım? – cd’ye yazarken nası encyrpt edeceğim? directorde cok yeniyim, eger mumkunse örnek bir .dir dosyasi yollayabilirmisin?

Selam, benim yazdigim kodu new behaviour yapip oraya yazacaksin ve ilgili butona ekleyeceksin. bu da baska bir kucuk behaviour olacak yani o buton icin…