крипт vba

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

 

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

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

 

сам код....

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

 

на Delphi

Code:

{кодирование информации}
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 - для него именно.... этого я не знаю