AccesS密码的打击

原创 2000年12月15日 09:55:00

 

type
  TForm1 = class(TForm)
    Button1: TButton;
    Chk2000: TCheckBox;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    OpenDialog1: TOpenDialog;
    Button3: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
  procedure WMDropFiles(var Msssage: TMessage); message WM_DROPFILES ;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

CONST
  xorString:array[0..12]of byte=
    ( $86, $FB, $EC, $37,
      $5D, $44, $9C, $FA,
      $C6, $5E, $28, $E6,$13 );
  xorString2:array[0..20]of byte=
    ( $D3, $EC, $08, $9C,
      $93, $28, $46, $8A,
      $01, $7B, $A0, $DF,
      $22, $13, $9A, $B1,
      $61, $79, $C7, $7C,$5B);

procedure TForm1.WMDropFiles(var Msssage: TMessage);
begin
  ShowMessage('Hello Boy');
end;
procedure TForm1.Button1Click(Sender: TObject);


VAR
passBuff: array[0..14]of byte;
pass: array[0..14]of char;
passBuff2: array[0..40]of byte;
pass2: array[0..20]of char;
B: Byte;
F:TFileStream;
I,j:integer;

begin
  file://ShowMessage(Char($86)+ Char($F8)+Char($EC))
  if not FileExists(Edit1.Text) then
   begin
     MessageBox(Handle,'你是MM呀','我好种意你呀',MB_OK + MB_ICONINFORMATION);
     exit;
   END;
  F :=  TFileStream.Create(Edit1.text,fmOpenRead);
  if not Chk2000.Checked then
  begin
    Try
      F.Seek($42,soFromBeginning);
      F.Read(PassBuff,14);
      for i := 0 to 13 do
      begin
        B := PassBuff[i] XOR xorString[i];
        Pass[i] := Char(B);
      end;
      pass[Sizeof(Pass)-1] := #0;
      Edit2.Text := StrPas(Pass);
      finally
    f.Free;
    end;
  end
  else
  begin
     try
     F.Seek($42,soFromBeginning);
     F.Read(passBuff2,40);
     I:=0;j:=0;
     while I<40 do
     begin
        B := passBuff2[i] xor xorString2[j];
        pass2[j]:=char(B);
        inc(i,2);inc(j);
     end;
    pass2[sizeof(pass2) - 1] := #0;
    Edit2.Text:=StrPas(Pass2);
   finally
    f.Free;
   end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit1.text := OpenDialog1.FileName;
end;

 


procedure TForm1.Button3Click(Sender: TObject);
VAR
passBuff: array[0..14]of byte;
pass: array[0..14]of char;
passBuff2: array[0..40]of byte;
pass2: array[0..20]of char;
B: Byte;
F:TFileStream;
I,j:integer;
s: string;
begin
  file://ShowMessage(Char($86)+ Char($F8)+Char($EC))
  if not FileExists(Edit1.Text) then
   begin
     MessageBox(Handle,'你是MM呀','我好种意你呀',MB_OK + MB_ICONINFORMATION);
     exit;
   END;
  F :=  TFileStream.Create(Edit1.text,fmOpenWrite);
  if not Chk2000.Checked then
  begin
    Try
      FillChar(Pass,14,#0);
      s := EdIt2.Text;
      StrCopy(@Pass,Pchar(Trim(s)));
      for i := 0 to 13 do
      begin
        B := Byte(Pass[i]);
        PassBuff[i] := xorString[i] xor B;
      end;
      PassBuff[13] := $B6;
      F.Seek($42,soFromBeginning);
      F.Write(PassBuff,14);
      finally
    f.Free;
    end;
  end
  else
  begin
     try
     F.Seek($42,soFromBeginning);
     F.Read(passBuff2,40);
     I:=0;j:=0;
     while I<40 do
     begin
        B := passBuff2[i] xor xorString2[j];
        pass2[j]:=char(B);
        inc(i,2);inc(j);
     end;
    pass2[sizeof(pass2) - 1] := #0;
    Edit2.Text:=StrPas(Pass2);
   finally
    f.Free;
   end;
  end;


end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  file://if length(Edit1.text) >= 13 then Key := #0;
end;

end.

sql server 连接带密码的access

sql server 导入带密码的access数据 如何实现将Access的数据的导入到SQL Server呢,相信网络上有很多教程来帮助大家了。但是,大家发现如果access文档使用了密码加...
  • xcntime
  • xcntime
  • 2014年03月16日 01:23
  • 1369

【Access2007】修改数据库密码与输入SQL语句进行查询

Access是个不入流的数据库,之所以说他不入流是因为其兼容性,大小等都未达到软件运营的要求, 但是某些项目对方要求必须以Access作为数据库,你也是不得不对此了解。 Access是个完全图形化操作...
  • yongh701
  • yongh701
  • 2014年11月09日 19:35
  • 2059

关于Access数据库乱码的问题

因为机器装了太多东西,不想搞一个庞大的数据库,MySQL在之前我安装又卸载又安装卸载了几次之后,实在不想玩它了,于是想整一个占用资源少的数据库。 于是安装了Access. 微软的东西,没法说,实在是...
  • xiaohan1990718
  • xiaohan1990718
  • 2013年12月14日 23:13
  • 4261

cygwin ssh access denied 不知道用户名、密码

解决方案: 1、开始——运行——services.msc ‘ 上图用户名:cyg_server  密码:可以自己重新设置 2、右键CYGWIN sshd——属性——登录选项卡——选择...
  • java_father
  • java_father
  • 2013年10月27日 21:31
  • 425

sql server 连接带密码的access

原文出处:http://blog.csdn.net/xcntime/article/details/21303385 如何实现将Access的数据的导入到SQL Server呢,相信网络上有很多教...
  • chelen_jak
  • chelen_jak
  • 2017年03月23日 10:54
  • 1178

access2007、2010设置密码,提示“使用分组加密进行加密与行级别锁定不兼容。行级别锁定将被忽略。”的解决方法

有2010版的学员在制作到“更改后台数据库的保护密码”章节,执行“用密码进行加密”命令,保存密码时,弹出提示框“使用分组加密进行加密与行级别锁定不兼容。行级别锁定将被忽略。” 因为ACCES...
  • bigheadsheep
  • bigheadsheep
  • 2014年09月25日 09:55
  • 2482

OLEDB访问带密码ACCESS数据库(OLEDB连接各种数据库)

c#访问带有密码的Access数据库 在使用.net时发现访问有password 的Access与访问有password的Sql Server不一样,不用向导时Access connectionSt...
  • xcntime
  • xcntime
  • 2014年03月15日 18:19
  • 559

MYSQL重置root密码(Access denied for user 'root'@'localhost' (using password: YES))

1.停止MYSQL服务; 在Ubuntu 或 Debian上 sudo service mysql stop 或者 sudo /etc/init.d/mysql stop 在CentOS...
  • gu1307094240
  • gu1307094240
  • 2016年08月29日 17:03
  • 254

测试1:Access Point(Wifi)的密码暴力破解

1.前言这篇文章的主要目的是记录在学习过程中的每一个步骤,并给跟我一样的新手菜鸟们的学习提供参考,可以说是一篇笔记型博文 文章内容仅供学习测试使用,若有非法目的请绕道而行2.环境搭建 Vmware...
  • Krumitz
  • Krumitz
  • 2017年07月04日 21:49
  • 237

Mac使用mysql中出现ERROR 1045: Access denied for user: 'root@localhost' 以及密码过期解决方法

文章链接 昨天学数据库,安装的时候完全没看到设置密码的地方… 然后登陆不进去,一直出现ERROR 1045: Access denied for user: ‘root@localhost’报错 ...
  • say_c_box
  • say_c_box
  • 2017年06月02日 10:50
  • 4150
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:AccesS密码的打击
举报原因:
原因补充:

(最多只允许输入30个字)