InputFileName$=OpenFileRequester("Выберите файл для шифровки/дешифровки.","","(*.*)|*.*|",0)
If(FileSize(InputFileName$)>0)
  OutputFileName$=InputFileName$+".ФайлПослеШифровкиДешифровки"
  InputFile=ReadFile(#PB_Any,InputFileName$)
  OutputFile=CreateFile(#PB_Any,OutputFileName$)
  If((InputFile>0)And(OutputFile>0))
    Password$=InputRequester("Шифратор/Дешифратор","Шифр:","")
    PasswordLength=Len(Password$)
    CurrentCharacterPosition=1
    While Not Eof(InputFile)
      WriteAsciiCharacter(OutputFile,ReadAsciiCharacter(InputFile)!Asc(Mid(Password$,CurrentCharacterPosition,1)))
      CurrentCharacterPosition+1
      If(CurrentCharacterPosition>=PasswordLength)
        CurrentCharacterPosition=1
      EndIf
    Wend
  EndIf
EndIf