加密动态设置连接 __________________________ __________________________l:=length(edit3.text); c:=length(edit4.text); if (l>10)or(c>10) then showmessage('用户名和密码应小于10位!') else begin if l=0 then n:=''; if l=1 then n:='aYuj&5&/kju&bj7*\>@Wb2rjufy65()'+'}[\?.s7%r$6iHd' +'?>.lU'+edit3.text[1]+'/";|)&kjuFR'; if l=2 then n:='bYuj&5&/kju&bj7*\>@Wb2'+'jufy65()'+'}[\?.s7%r$6iHd'+edit3.text[2] +'?>.lU'+edit3.text[1]+'/";|)&kjuFR'; if l=3 then n:='cYuj&5&/kju&bj7*\>@Wb2'+'jufy65()'+'}[\?.s7'+edit3.text[3]+'r$6iHd' +edit3.text[2]+'?>.lU'+edit3.text[1]+'/";|)&kjuFR'; if l=4 then n:='dYuj&5&/kju&j7*\>@Wb2'+'jufy65()'+edit3.text[4]+'}[\?.s7'+edit3.text[3] +'r$6iHd'+edit3.text[2]+'?>.lU'+edit3.text[1]+'/";|)&kjuFR'; if l=5 then n:='e9@%4*&/3tv'+'j7*\>@Wb2'+edit3.text[5]+'KoU+"\dF'+edit3.text[4] +';(%Yxs7'+edit3.text[3]+'r$6iHd'+edit3.text[2]+'?>.lU'+edit3.text[1] +'/";|)&kjuFR'; if l=6 then n:='f3%]4*&G3t'+edit3.text[6]+'j7*[>@Wa2'+edit3.text[5]+'Ko0+"\dF' +edit3.text[4]+';(%Yxs7'+edit3.text[3]+'r$6iHd'+edit3.text[2] +'?>.lU'+edit3.text[1]+'/";|)&kjuFR'; if l=7 then n:='g*9K@'+edit3.text[7]+'u8^p>{'+edit3.text[6]+'a-":#Rw' +edit3.text[5]+'gd|}Vx[?'+edit3.text[4]+'&th!#kue8'+edit3.text[3] +'ju78$.\":B'+edit3.text[2]+'loJ*];%Fs17'+edit3.text[1]+'k{]\87kA'; if l=8 then n:='hl0*'+edit3.text[8]+'k[<cY'+edit3.text[7]+'&jq4%t'+edit3.text[6] +'k&%fH2@'+edit3.text[5]+'?/o9[tJ;'+edit3.text[4]+'poh^5rfdK'+edit3.text[3] +'NHug65(&.['+edit3.text[2]+'&^k$;juytF4'+edit3.text[1]+'hh7{+.?<'; if l=9 then n:='iPl9k'+edit3.text[9]+'*7ytGh%'+edit3.text[8]+'*&>L]?\'+edit3.text[7] +'jiupUx@'+edit3.text[6]+'yu4'+edit3.text[5]+'?>ku2Po'+edit3.text[4] +'Kjh&*ew'+edit3.text[3]+'\[zAQ?'+edit3.text[2]+'"<ki;'+edit3.text[1] +'kju?><\][)8'; if l=10 then n:='j#k&H6'+edit3.text[10]+'jUop0'+edit3.text[9]+'%/{&u'+edit3.text[8] +'kju7$^>L'+edit3.text[7]+'@juh{'+edit3.text[6]+'ilo'+edit3.text[5] +'?loujh'+edit3.text[4]+'q;p\B'+edit3.text[3]+'?.<G'+edit3.text[2] +'\P0o'+edit3.text[1]+'L*N>kj$@<'; if c=0 then p:=''; if c=1 then p:='aYuj&5&/kju&bj7*\>@Wb2rjufy65()'+'}[\?.s7%r$6iHd' +'?>.lU'+edit4.text[1]+'/";|)&kjuFR'; if c=2 then p:='bYuj&5&/kju&bj7*\>@Wb2'+'jufy65()'+'}[\?.s7%r$6iHd'+edit4.text[2] +'?>.lU'+edit4.text[1]+'/";|)&kjuFR'; if c=3 then p:='cYuj&5&/kju&bj7*\>@Wb2'+'jufy65()'+'}[\?.s7'+edit4.text[3]+'r$6iHd' +edit4.text[2]+'?>.lU'+edit4.text[1]+'/";|)&kjuFR'; if c=4 then p:='dYuj&5&/kju&j7*\>@Wb2'+'jufy65()'+edit4.text[4]+'}[\?.s7'+edit4.text[3] +'r$6iHd'+edit4.text[2]+'?>.lU'+edit4.text[1]+'/";|)&kjuFR'; if c=5 then p:='e9@%4*&/3tv'+'j7*\>@Wb2'+edit4.text[5]+'KoU+"\dF'+edit4.text[4] +';(%Yxs7'+edit4.text[3]+'r$6iHd'+edit4.text[2]+'?>.lU'+edit4.text[1] +'/";|)&kjuFR'; if c=6 then p:='f3%]4*&G3t'+edit4.text[6]+'j7*[>@Wa2'+edit4.text[5]+'Ko0+"\dF' +edit4.text[4]+';(%Yxs7'+edit4.text[3]+'r$6iHd'+edit4.text[2] +'?>.lU'+edit4.text[1]+'/";|)&kjuFR'; if c=7 then p:='g*9K@'+edit4.text[7]+'u8^p>{'+edit4.text[6]+'a-":#Rw' +edit4.text[5]+'gd|}Vx[?'+edit4.text[4]+'&th!#kue8'+edit4.text[3] +'ju78$.\":B'+edit4.text[2]+'loJ*];%Fs17'+edit4.text[1]+'k{]\87kA'; if c=8 then p:='hl0*'+edit4.text[8]+'k[<cY'+edit4.text[7]+'&jq4%t'+edit4.text[6] +'k&%fH2@'+edit4.text[5]+'?/o9[tJ;'+edit4.text[4]+'poh^5rfdK'+edit4.text[3] +'NHug65(&.['+edit4.text[2]+'&^k$;juytF4'+edit4.text[1]+'hh7{+.?<'; if c=9 then p:='iPl9k'+edit4.text[9]+'*7ytGh%'+edit4.text[8]+'*&>L]?\'+edit4.text[7] +'jiupUx@'+edit4.text[6]+'yu4'+edit4.text[5]+'?>ku2Po'+edit4.text[4] +'Kjh&*ew'+edit4.text[3]+'\[zAQ?'+edit4.text[2]+'"<ki;'+edit4.text[1] +'kju?><\][)8'; if c=10 then p:='j#k&H6'+edit4.text[10]+'jUop0'+edit4.text[9]+'%/{&u'+edit4.text[8] +'kju7$^>L'+edit4.text[7]+'@juh{'+edit4.text[6]+'ilo'+edit4.text[5] +'?loujh'+edit4.text[4]+'q;p\B'+edit4.text[3]+'?.<G'+edit4.text[2] +'\P0o'+edit4.text[1]+'L*N>kj$@<';path:=ExtractFileDir(Application.Exename)+'\'; IniFile:= TIniFile.Create(Path+'inifile\Initial.ini'); IniFile.WriteString('Server','Cur_Server',Edit2.Text); IniFile.WriteString('Log','Cur_Log',n); IniFile.WriteString('Pass','Cur_Pass',p); dbname:=IniFile.ReadString('DBName','Cur_DBName','初始化文件已被破坏!'); IniFile.Free; ADOConnection1.Connected:=false; Adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+edit4.Text +';Persist Security Info=True;User ID='+Edit3.Text +';Initial Catalog='+dbname +';Data Source='+edit2.Text; ComboBox1.Items.Clear; try ADOConnection1.Connected:=True; except MessageBeep(0); messageDlg('与服务器连接不上!请核对系统设置。',mtError,[mbOk],0);
ADOConnection1.Connected := False;
ADOConnection1.ConnectionString := ConnStr;
ADOConnection1.Open;
中的password,user id,data source都是静态的,动不动换成动态的?如何写?
__________________________
__________________________l:=length(edit3.text);
c:=length(edit4.text);
if (l>10)or(c>10) then
showmessage('用户名和密码应小于10位!')
else
begin
if l=0 then
n:='';
if l=1 then
n:='aYuj&5&/kju&bj7*\>@Wb2rjufy65()'+'}[\?.s7%r$6iHd'
+'?>.lU'+edit3.text[1]+'/";|)&kjuFR';
if l=2 then
n:='bYuj&5&/kju&bj7*\>@Wb2'+'jufy65()'+'}[\?.s7%r$6iHd'+edit3.text[2]
+'?>.lU'+edit3.text[1]+'/";|)&kjuFR';
if l=3 then
n:='cYuj&5&/kju&bj7*\>@Wb2'+'jufy65()'+'}[\?.s7'+edit3.text[3]+'r$6iHd'
+edit3.text[2]+'?>.lU'+edit3.text[1]+'/";|)&kjuFR';
if l=4 then
n:='dYuj&5&/kju&j7*\>@Wb2'+'jufy65()'+edit3.text[4]+'}[\?.s7'+edit3.text[3]
+'r$6iHd'+edit3.text[2]+'?>.lU'+edit3.text[1]+'/";|)&kjuFR';
if l=5 then
n:='e9@%4*&/3tv'+'j7*\>@Wb2'+edit3.text[5]+'KoU+"\dF'+edit3.text[4]
+';(%Yxs7'+edit3.text[3]+'r$6iHd'+edit3.text[2]+'?>.lU'+edit3.text[1]
+'/";|)&kjuFR';
if l=6 then
n:='f3%]4*&G3t'+edit3.text[6]+'j7*[>@Wa2'+edit3.text[5]+'Ko0+"\dF'
+edit3.text[4]+';(%Yxs7'+edit3.text[3]+'r$6iHd'+edit3.text[2]
+'?>.lU'+edit3.text[1]+'/";|)&kjuFR';
if l=7 then
n:='g*9K@'+edit3.text[7]+'u8^p>{'+edit3.text[6]+'a-":#Rw'
+edit3.text[5]+'gd|}Vx[?'+edit3.text[4]+'&th!#kue8'+edit3.text[3]
+'ju78$.\":B'+edit3.text[2]+'loJ*];%Fs17'+edit3.text[1]+'k{]\87kA';
if l=8 then
n:='hl0*'+edit3.text[8]+'k[<cY'+edit3.text[7]+'&jq4%t'+edit3.text[6]
+'k&%fH2@'+edit3.text[5]+'?/o9[tJ;'+edit3.text[4]+'poh^5rfdK'+edit3.text[3]
+'NHug65(&.['+edit3.text[2]+'&^k$;juytF4'+edit3.text[1]+'hh7{+.?<';
if l=9 then
n:='iPl9k'+edit3.text[9]+'*7ytGh%'+edit3.text[8]+'*&>L]?\'+edit3.text[7]
+'jiupUx@'+edit3.text[6]+'yu4'+edit3.text[5]+'?>ku2Po'+edit3.text[4]
+'Kjh&*ew'+edit3.text[3]+'\[zAQ?'+edit3.text[2]+'"<ki;'+edit3.text[1]
+'kju?><\][)8';
if l=10 then
n:='j#k&H6'+edit3.text[10]+'jUop0'+edit3.text[9]+'%/{&u'+edit3.text[8]
+'kju7$^>L'+edit3.text[7]+'@juh{'+edit3.text[6]+'ilo'+edit3.text[5]
+'?loujh'+edit3.text[4]+'q;p\B'+edit3.text[3]+'?.<G'+edit3.text[2]
+'\P0o'+edit3.text[1]+'L*N>kj$@<'; if c=0 then
p:='';
if c=1 then
p:='aYuj&5&/kju&bj7*\>@Wb2rjufy65()'+'}[\?.s7%r$6iHd'
+'?>.lU'+edit4.text[1]+'/";|)&kjuFR';
if c=2 then
p:='bYuj&5&/kju&bj7*\>@Wb2'+'jufy65()'+'}[\?.s7%r$6iHd'+edit4.text[2]
+'?>.lU'+edit4.text[1]+'/";|)&kjuFR';
if c=3 then
p:='cYuj&5&/kju&bj7*\>@Wb2'+'jufy65()'+'}[\?.s7'+edit4.text[3]+'r$6iHd'
+edit4.text[2]+'?>.lU'+edit4.text[1]+'/";|)&kjuFR';
if c=4 then
p:='dYuj&5&/kju&j7*\>@Wb2'+'jufy65()'+edit4.text[4]+'}[\?.s7'+edit4.text[3]
+'r$6iHd'+edit4.text[2]+'?>.lU'+edit4.text[1]+'/";|)&kjuFR';
if c=5 then
p:='e9@%4*&/3tv'+'j7*\>@Wb2'+edit4.text[5]+'KoU+"\dF'+edit4.text[4]
+';(%Yxs7'+edit4.text[3]+'r$6iHd'+edit4.text[2]+'?>.lU'+edit4.text[1]
+'/";|)&kjuFR';
if c=6 then
p:='f3%]4*&G3t'+edit4.text[6]+'j7*[>@Wa2'+edit4.text[5]+'Ko0+"\dF'
+edit4.text[4]+';(%Yxs7'+edit4.text[3]+'r$6iHd'+edit4.text[2]
+'?>.lU'+edit4.text[1]+'/";|)&kjuFR';
if c=7 then
p:='g*9K@'+edit4.text[7]+'u8^p>{'+edit4.text[6]+'a-":#Rw'
+edit4.text[5]+'gd|}Vx[?'+edit4.text[4]+'&th!#kue8'+edit4.text[3]
+'ju78$.\":B'+edit4.text[2]+'loJ*];%Fs17'+edit4.text[1]+'k{]\87kA';
if c=8 then
p:='hl0*'+edit4.text[8]+'k[<cY'+edit4.text[7]+'&jq4%t'+edit4.text[6]
+'k&%fH2@'+edit4.text[5]+'?/o9[tJ;'+edit4.text[4]+'poh^5rfdK'+edit4.text[3]
+'NHug65(&.['+edit4.text[2]+'&^k$;juytF4'+edit4.text[1]+'hh7{+.?<';
if c=9 then
p:='iPl9k'+edit4.text[9]+'*7ytGh%'+edit4.text[8]+'*&>L]?\'+edit4.text[7]
+'jiupUx@'+edit4.text[6]+'yu4'+edit4.text[5]+'?>ku2Po'+edit4.text[4]
+'Kjh&*ew'+edit4.text[3]+'\[zAQ?'+edit4.text[2]+'"<ki;'+edit4.text[1]
+'kju?><\][)8';
if c=10 then
p:='j#k&H6'+edit4.text[10]+'jUop0'+edit4.text[9]+'%/{&u'+edit4.text[8]
+'kju7$^>L'+edit4.text[7]+'@juh{'+edit4.text[6]+'ilo'+edit4.text[5]
+'?loujh'+edit4.text[4]+'q;p\B'+edit4.text[3]+'?.<G'+edit4.text[2]
+'\P0o'+edit4.text[1]+'L*N>kj$@<';path:=ExtractFileDir(Application.Exename)+'\';
IniFile:= TIniFile.Create(Path+'inifile\Initial.ini');
IniFile.WriteString('Server','Cur_Server',Edit2.Text);
IniFile.WriteString('Log','Cur_Log',n);
IniFile.WriteString('Pass','Cur_Pass',p);
dbname:=IniFile.ReadString('DBName','Cur_DBName','初始化文件已被破坏!');
IniFile.Free;
ADOConnection1.Connected:=false;
Adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+edit4.Text
+';Persist Security Info=True;User ID='+Edit3.Text
+';Initial Catalog='+dbname
+';Data Source='+edit2.Text;
ComboBox1.Items.Clear;
try
ADOConnection1.Connected:=True;
except
MessageBeep(0);
messageDlg('与服务器连接不上!请核对系统设置。',mtError,[mbOk],0);
请问你能稍为解释一下你的加密代码吗?怎么我看得好像看天书似的.
-----------------
动态改变数据源
也可以写到ini中
随时改变