крипт vba

[.::BARS::.]

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

[flacs]

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

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

[.::BARS::.]

сам код....

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

[flacs]

на 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;

[.::BARS::.]

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