program He_mat_Ba_lo;
const n=10;
type arrLong=array[1..n] of longint;
var a1,a,b:arrLong;
arrABC:array['A'..'Z'] of string;
s,s1:string;
d,u1,u:longint;
cv:byte;
{Tinh Uoc chung lon nhat x, y }
function UCLN(x,y:word):longint;
begin
while x<>y do
if x>y then x:=x-y
else
y:=y-x;
UCLN:=x;
end;
{Nghich dao: (num1*ND) mod num2 = 1}
function ND(num1,num2:word):longint;
var u,v,g:array[0..200] of longint;
x,y,i:longint;
begin
g[0]:=num2;g[1]:=num1;
u[0]:=1;v[0]:=0;
u[1]:=0;v[1]:=1;
i:=1;
while g[i]<>0 do
begin
y:=g[i-1] div g[i];
g[i+1]:=g[i-1]-y*g[i];
u[i+1]:=u[i-1]-y*u[i];
v[i+1]:=v[i-1]-y*v[i];
i:=i+1;
end;
x:=v[i-1];
if x>0 then ND:=x else ND:=x+num2;
end;
procedure ChuanHoaXau(var z:string);
var i:byte;
begin
i:=0;
while z[1]=' ' do delete(z,1,1);
while z[length(z)]=' ' do delete(z,length(z),1);
for i:=1 to length(z)-1 do
if (z[i]=' ') and (z[i+1]=' ') then
delete(z,i,1);
end;
procedure NhapMaHoa;
var
i:byte;
kt:boolean;
chkSum:longint;
begin
writeln('---------- Ma hoa ----------');
writeln('Nhap vecto sieu tang a''');
chkSum:=0;{Kiem tra a[i]>a[i-1]+...+a[1]. Neu dung thi nhap tiep}
i:=1;
while i<=n do
begin
write('(a1[',i,']>',chkSum,'). Nhap a1[',i,']=');readln(a1[i]);
if a1[i]>chkSum then
begin
chkSum:=chkSum+a1[i];
i:=i+1;
end
end;
while true do {Nhap d}
begin
write('(d>=',2*a1[n],'). Nhap d=');readln(d);
if d>=2*a1[n] then break;
end;
writeln('Vay d=',d);
while true do {Nhap u}
begin
write('u>1 va UCLN(u,',d,')=1. Nhap u=');readln(u);
if (u>1) and (UCLN(u,d)=1) then break;
end;
write('Vay u=',u);
u1:=ND(u,d);
writeln(' -> u1=',u1);
writeln('Mang a:');
for i:=1 to n do {Tinh a=a'*u mod d}
begin
a[i]:=a1[i]*u mod d;
write(a[i],' ')
end;
writeln;
s:='';
while true do {Nhap xau S}
begin
write('Nhap S=');readln(s);
i:=1;
while i<=length(s) do {Kiem tra S chi chua a..z va dau cach}
begin
kt:=true;
s[i]:=upcase(s[i]);
if s[i] in ['A'..'Z',' '] then
i:=i+1
else
begin
kt:=false;break;
end;
end;
if kt=true then break;
end;
ChuanHoaXau(s);
if length(s) mod 2=1 then s:=s+' ';{Neu length(S) le thi + dau cach}
end;
{Num ->Nhi phan dua vao xau S. Neu do dai<5 thi +'0' o dau xau S}
procedure NhiPhanHoa(num:integer;var z:string);
var tg:string;
L:byte;
begin
tg:='';z:='';
L:=0;
while num<>0 do
begin
str(num mod 2,tg);
z:=tg+z;
num:=num div 2;
end;
if length(z)<5 then
for L:=1 to 5-length(z) do
z:='0'+z;
end;
{Tao mang nhi phan arrABC. A='00000';B='00001';...;Z:='11001'}
procedure MangNhiPhan;
var k:byte;
cc:char;
begin
k:=0;
for cc:='A' to 'Z' do
begin
NhiPhanHoa(k,arrABC[cc]);
k:=k+1;
end;
end;
function NhiPhanS(var x:char):string;
begin
if x<>' ' then
NhiPhanS:=arrABC[x]
else
NhiPhanS:='11010';{Dau cach = NhiPhan(z)+1}
end;
procedure MaHoa;
var BanMa:arrLong;
i,j,t:byte;
m:longint;
temp:string;
begin
NhapMaHoa;
MangNhiPhan;{Mang xau nhi phan arrABC}
i:=1;t:=0;
while i<=length(s) do {Duyet tu dau den cuoi S. Xu ly lan luot 10 ky tu}
begin
temp:='';
temp:=NhiPhanS(s[i])+NhiPhanS(s[i+1]);
write('Xau=',temp);
m:=0;
for j:=1 to 10 do
if temp[j]='1' then
m:=m+a[j];
writeln(' => m=',m,'. ');
t:=t+1;
BanMa[t]:=(u1*m) mod d;
i:=i+2;
end;
writeln('Ban ma hoa la:');
for i:=1 to t do
write(BanMa[i],' ');
writeln;
end;
{Lay Ky tu co arrABC[KyTu]=X. VD: arrABC[A]='00000' => A}
function strArrABC(x:string):char;
var cc:char;
begin
for cc:='A' to 'Z' do
if arrABC[cc]=x then
begin
strArrABC:=cc;
break;
end
else
strArrABC:=' ';
end;
{Ba lo sieu tang. Giai phuong trinh mt*b=c.}
procedure BaloST(mt:arrLong;b:arrLong;var c:longint);
var j:byte;
tg1,tg2:string;
begin
tg1:='';tg2:='';
for j:=n downto 1 do
if c>=mt[j] then
begin
b[j]:=1;
c:=c-mt[j]*b[j];
end;
if c=0 then
begin
for j:=1 to n do
begin
str(b[j],tg1);
tg2:=tg2+tg1;
end;
tg1:='';
for j:=1 to n do
begin
tg1:=tg1+tg2[j];
if length(tg1)=5 then
begin
s1:=s1+strArrABC(tg1);
tg1:='';
end;
end;
end
else
begin
writeln('Bai toan vo nghiem');
exit;
end;
end;
procedure GiaiMa;
var i,k:byte;
BanMa:arrLong;
chkSum:longint;
begin
MangNhiPhan;
writeln('---------- Giai ma ----------');
writeln('Nhap vecto sieu tang a''');
chkSum:=0; {Kiem tra a[i]>a[i-1]+...+a[1]. Neu dung thi nhap tiep}
i:=1;
while i<=n do
begin
write('(a1[',i,']>',chkSum,'). Nhap a1[',i,']=');readln(a1[i]);
if a1[i]>chkSum then
begin
chkSum:=chkSum+a1[i];
i:=i+1;
end
end;
k:=0;
writeln('Nhap vecto Ban ma');
while true do
begin
write('(k>0) va (k<=100). Nhap so luong ban ma k=');readln(k);
if (k>0) and (k<=100) then break;
end;
s1:='';
for i:=1 to k do
begin
write('BanMa[',i,']=');read(BanMa[i]);
BaloST(a1,b,BanMa[i]);
end;
writeln('Ban ro=',s1);
end;
{Chuong trinh chinh}
BEGIN
while true do
begin
writeln('----------------');
writeln('1. Ma hoa');
writeln('2. Giai ma');
writeln('3. Thoat');
write('Chon cong viec ');readln(cv);
case cv of
1:MaHoa;
2:GiaiMa;
3:exit;
end
end;
read
END.

<%
set objConn = Server.CreateObject("ADODB.Connection")
set objRS = Server.CreateObject("ADODB.Recordset")
objConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb")
%>

"HKeyRoot"=dword:80000001"
trong
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN]