Форум АНТИЧАТ - крипт vba

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - крипт vba (https://forum.antichat.xyz/showthread.php?t=169961)

Привет всем...
есть проект в аксесе....
вот в нем я все замутил на vba (ну так как там только он)
так вот, препод задал сделать авторскую находку...
первое что пришло в голову, так это зашифровать код хотя бы в подобие базе64, так вот вопрос; как можно сделать такое подобие?
ну или есть еще какие идеи авторских находок!? =)))

что имнно надо зашифровать?
исходные тексты или саму прогу?

Прогу можно любым упаковщиком, протектором зашифровать
Исходные тексты, любым аглоритмом даже тривиальным xor, главное только ключ расшифровки не забыть

сам код....

пример можешь показать? сколько искал.. ничего подобного не нашел...
алгоритм самый простой... главное суть =)

на Delphi

Код:

{кодирование информации}

function CodeString(Text: ansistring; EncodeFile: string; key: string): ansistring;

var

  data: file of char;

  mykey: ansistring;

  i,k,f : integer;

  c: char;

begin

   AssignFile(data,EncodeFile);

   Rewrite(data);

   for i := 0 to (length(text) div length(key)) do

      mykey := mykey+key;

   for i := 1 to length(text) do begin

      c := chr(byte(text[i]) XOR byte(mykey[I]));

      Write(data,c);

   Result:=result+c;

   end;

   CloseFile(data);

end;





{Декодирование информации}

function DeCodeString(Decodefile: string; key: string): ansistring;

var

  Idata: file of char;

  mykey: ansistring;

  i,k,f : integer;

  c: char;

begin

  AssignFile(Idata,Decodefile);

  Reset(Idata);

  i:=1;

  f:=FileSize(Idata);

     for i := 0 to (f div length(key)) do

      mykey := mykey+key;

  for i:=1 to f do begin

  Read(Idata,c);

  c := (chr(byte(c) XOR byte(mykey[I])));

   Result:=result+c;

   end;

   CloseFile(Idata);

end;

я могу для пхп написать... =))
суть для VBA - для него именно.... этого я не знаю