access Archives - G0dspeed's Blog

Oracle与Access表之间的导入和导出实现

2007/01/30 by G0dspeed·0评论

　　准备工作：

　　1.安装OCA。运行Developer的安装盘，选择自定义安装，选择Oracle Open Client Adapter for ODBC安装。

　　2.在数据源(ODBC)中添加DSN。控制面板->管理工具->数据源(ODBC)，选择“用户DSN”，添加要进行操作的Access的文件。在“高级”选项里，填上“登录名称”和“密码”(很重要，在程序中会用到)。

　　下面以实际例子来说明：

　　假设在Oracle中和Access中都有一个student表，表中字段相同(name char(10) ,age number(2))，在准备工作2中的“数据源名”为test，“登录名称”和“密码”都为user。

　　下面为从Oracle导出到Access的procedure：

以下是引用片段：
　　PROCEDURE oracle_to_access IS
　　connection_id EXEC_SQL.ConnType;
　　action_cursor EXEC_SQL.CursType;
　　ignore PLS_INTEGER;
　　t_name student.name%type;
　　t_age student.age%type;
　　cursor temp_cursor is select * from student;
　　BEGIN
　　connection_id:= EXEC_SQL.OPEN_CONNECTION(‘user/user@odbc:test‘);
　　action_cursor := EXEC_SQL.OPEN_CURSOR(connection_id);
　　EXEC_SQL.PARSE(connection_id, action_cursor,‘delete * from student‘);
　　ignore := EXEC_SQL.EXECUTE(connection_id, action_cursor);
　　EXEC_SQL.CLOSE_CURSOR(connection_id,action_cursor);
　　open temp_cursor;
　　export_count := 0;
　　action_cursor := EXEC_SQL.OPEN_CURSOR(connection_id);
　　EXEC_SQL.PARSE(connection_id, action_cursor,‘INSERT INTO student(name,age) values(:1,:2)‘);
　　loop
　　fetch temp_cursor into t_name,t_age;
　　exit when temp_cursor%notfound;
　　EXEC_SQL.BIND_VARIABLE(connection_id,action_cursor, ‘:1‘, t_name);
　　EXEC_SQL.BIND_VARIABLE(connection_id,action_cursor, ‘:2‘, t_age);
　　ignore := EXEC_SQL.EXECUTE(connection_id, action_cursor);
　　end loop;
　　close temp_cursor;
　　EXEC_SQL.PARSE(connection_id, action_cursor,‘commit‘);
　　ignore := EXEC_SQL.EXECUTE(connection_id,action_cursor);
　　EXEC_SQL.CLOSE_CURSOR(connection_id,action_cursor);
　　EXEC_SQL.CLOSE_CONNECTION(connection_id);
　　EXCEPTION
　　WHEN EXEC_SQL.PACKAGE_ERROR THEN
　　IF EXEC_SQL.LAST_ERROR_CODE(connection_id) != 0 THEN
　　message(‘数据导出至ACCESS失败: ‘ || TO_CHAR(EXEC_SQL.LAST_ERROR_CODE(connection_id)) || ‘: ‘ || EXEC_SQL.LAST_ERROR_MESG(connection_id));
　　END IF;
　　IF EXEC_SQL.IS_CONNECTED(connection_id) THEN
　　IF EXEC_SQL.IS_OPEN(connection_id,action_cursor) THEN
　　EXEC_SQL.CLOSE_CURSOR(connection_id,action_cursor);
　　END IF;
　　EXEC_SQL.CLOSE_CONNECTION(connection_id);
　　END IF;
　　END;
　　下面为从Access导出到Oracles的procedure：
　　PROCEDURE Access_to_oracle IS
　　connection_id EXEC_SQL.ConnType;
　　action_cursor EXEC_SQL.CursType;
　　ignore PLS_INTEGER;
　　t_name student.name%type;
　　t_age student.age%type;
　　BEGIN
　　connection_id := EXEC_SQL.OPEN_CONNECTION(‘user/user@odbc:test‘);
　　action_cursor := EXEC_SQL.OPEN_CURSOR(connection_id);
　　delete from student;
　　EXEC_SQL.PARSE(connection_id, action_cursor,‘select name,age from student‘);
　　ignore := EXEC_SQL.EXECUTE(connection_id, action_cursor);
　　exec_sql.define_column(connection_id,action_cursor,1,t_name,10);
　　exec_sql.define_column(connection_id,action_cursor,2,t_age);
　　ignore := EXEC_SQL.EXECUTE(connection_id, action_cursor);
　　while(exec_sql.fetch_rows(connection_id,action_cursor)>0)
　　loop
　　exec_sql.column_value(connection_id,action_cursor,1,t_name);
　　exec_sql.column_value(connection_id,action_cursor,2,t_age);
　　insert into test(name,age) values(t_name,t_age);
　　end loop;
　　commit;
　　EXEC_SQL.CLOSE_CURSOR(connection_id,action_cursor);
　　EXEC_SQL.CLOSE_CONNECTION(connection_id);
　　EXCEPTION
　　WHEN EXEC_SQL.PACKAGE_ERROR THEN
　　IF EXEC_SQL.LAST_ERROR_CODE(connection_id) != 0 THEN
　　message(‘数据导入至ORACLE失败: ‘ || TO_CHAR(EXEC_SQL.LAST_ERROR_CODE(connection_id)) || ‘: ‘ || EXEC_SQL.LAST_ERROR_MESG(connection_id));
　　END IF;
　　IF EXEC_SQL.IS_CONNECTED(connection_id) THEN
　　IF EXEC_SQL.IS_OPEN(connection_id,action_cursor) THEN
　　EXEC_SQL.CLOSE_CURSOR(connection_id,action_cursor);
　　END IF;
　　EXEC_SQL.CLOSE_CONNECTION(connection_id);
　　END IF;
　　END;

　　注意：EXEC_SQL.BIND_VARIABLE中绑定的变量只能是以下三种类型：NUMBER，DATE，VARCHAR2。对于Access中的“是/否”的布尔型变量，可以用NUMBER类型的1和0来表示。如果Access中的表名或者字段名中有空格，在写SQL语句的时候可以用双引号把表名或者字段名包括起来，如：本例中如果Access中表名为student detail，字段名分别为student name和student age，那插入数据的SQL语句为：insert into “student detail”(“student name”,”student age”) values(:1,:2).

破解.mdb目前所有版本密码[收藏]

2006/09/01 by G0dspeed·一条评论

关于Access97的密码破解，在很多的网站和杂志上都有过介绍。在这里我简单重复一下。

在mdb文件第0x42字节处的13个字节分别与0x86,0xfb,0xec,0x37,0x5d,0x44,0x9c,0xfa,0xc6,0x5e,0x28,0xe6,0x13异或后即可得到数据库的密码。但在Access 2000和2002的版本里密钥不再是固定的13个字节.而且加密的方式也有了变化。

经过ccrun用一下午的时间研究，终于将Access2000的加密方式搞清楚了。嘿嘿。在此将偶的心得发布，希望对大家有用。

我用的分析工具是UltraEdit32 v10.00，编程工具是C++ Builder 6.0。

经过用UltraEdit32分析，发现Access2000和Access2002的数据库加密方式相同，所以以下只针对Access2000的mdb文件。还有就是我用的是16进制的数表示，所以前面加了0x，如果你用的是VB或其他，要注意数值哦。

首先用AccessXP创建了一个空密码的数据库文件db1.mdb，包含一个表，其中有一个字段，没有填任何数据。保存退出然后复制一份为db2.mdb，以独占方式打开2.mdb，并加上密码1324567890123 保存退出。

用UltraEdit32打开这两个数据库，并进行比较。我比较的方法也很简单。在UltraEdit32中，快速的来回点击被打开文件的选项卡(就是在两个文件间来回切换，呵呵。笨办法吧)，发现从文件头开始0x42字节处发生变化。

db1.mdb
00000040h：BC 4E BE 68 EC 37 65 D7 9C FA FE CD 28 E6 2B 25 ；
00000050h：8A 60 6C 07 7B 36 CD E1 DF B1 4F 67 13 43 F7 3C ； 


00000060h：B1 33 0C F2 79 5B AA 26 7C 2A 4F E9 7C 99 05 13 ；
db2.mdb
00000040h：BC 4E 8F 68 DE 37 56 D7 A8 FA CB CD 1E E6 1C 25 ；
00000050h：B2 60 55 07 4B 36 FC E1 ED B1 7C 67 13 43 F7 3C ；

00000060h：B1 33 0C F2 79 5B AA 26 7C 2A 4F E9 7C 99 05 13 ；

为了看的清楚些，我把不同的字节加了颜色。看出门道了吧，Access97以后的版本里，密码字节不再是连续存放，而是隔一个字节存一个。并且经过加密。到于解密的方法嘛，还是用老办法“异或”！0xBE ^ 0x8F = 0x31，这正好是Ascii码"1"哦。下一个0xEC ^ 0xDE = 0x32 正好是Ascii码"2"，呵呵。一直到最后一个不同的0x4F ^ 0x7C =0x33，将取得的字符合成字符串，便是密码明文“1234567890123"，千万不要以为这样就收工了。因为这一次是正好碰对了。呵呵。我刚开始也以为就这么简单，于是用CB做了个小程序，试着解了几个mdb密码都还行，可是试到动网论坛的mdb文件时发现取出来的密码不对，晕了。于是用另外一个取mdb密码的工具看了一下，发现人家的就可以正确的取出密码，是Access2000的格式，于是感觉微软加密的方式还是没研究完。继续工作，用UltraEdit32打开动网论坛的数据库dvbbs.mdb，和我前面的加过密的数据库做比较，发现不同的地方很多。只好一个字节一个字节的试。。。。nnn次以后发现第0x62处的这个字节起着关键作用，暂称之为加密标志。

db1.mdb //空密码
00000040h：BC 4E BE 68 EC 37 65 D7 9C FA FE CD 28 E6 2B 25 ；
00000050h：8A 60 6C 07 7B 36 CD E1 DF B1 4F 67 13 43 F7 3C ；

00000060h：B1 33 0C F2 79 5B AA 26 7C 2A 4F E9 7C 99 05 13 ；

db2.mdb //密码为:1234567890123
00000040h：BC 4E 8F 68 DE 37 56 D7 A8 FA CB CD 1E E6 1C 25 ；
00000050h：B2 60 55 07 4B 36 FC E1 ED B1 7C 67 13 43 F7 3C ；

00000060h：B1 33 0C F2 79 5B AA 26 7C 2A 4F E9 7C 99 05 13 ；

dvbbs.mdb //密码为:yemeng.net

00000040h：BC 4E DB 6A 89 37 14 D5 F9 FA 8C CF 4F E6 19 27 ；

00000050h：E4 60 15 05 0F 36 D1 E3 DF B1 53 65 13 43 EB 3E ；

00000060h：B1 33 10 F0 79 5B B6 24 7C 2A 4A E0 7C 99 05 13 ；

怎么试呢，还是异或。取0x42处开始的字节0xDB与空密码文件的0x42处字节异或，取0x62处的加密标志与空密码文件0x62处字节异或，然后再把取得的两个值相异或：

(0xDB^0xBE)^(0x10^0x0C)=0x79 嘿嘿。这个值是Ascii的"y"，然后取下一个字节（记得隔一个字节取一个）

(0x89^0xEC)^(0x10^0x0C)=0x79 咦，本来这个字节应该是"e"的，怎么变成"y"了？试着不与后面的两个异或值相异或，只计算0x89^0xEC=0x65 得到"e",哈。这下对了。下一个

(0x14^0x65)^(0x10^0C)=0x6D 得到"m"，下一个

(0xF9^9C)=0x65 得到"e"，注意这里只是这两个数异或。后面的大家可以自己试。

这样就总结出规律来了。

解密时，先取出加密文件从文件头开始0x62处的字节，与空密码数据库文件第0x62处相异或，得到一个加密标志。

再从0x42处开始每隔一个字节取一个字节，取得13个加密后的密码字节，分别与空密码数据库文件0x42处每隔一个字节取得的13个字节想异或，得到13个密码半成品。为什么说是半成品呢，因为还要将13个字节的密码每隔一个字节，就与加密标志相异或，最后得到的13个字节才是真正的密码。当然，如果中间有0x0的字节，则说明密码位数不够13位。直接show出来就可以了。

另外我发现加密标志会随着时间或机器不同而不同，所以也没有万能的，不过有一个参照的就可以了。以下代码是我在写这个程序的时候取得的数，和我写这篇文章不是一个时间，所以数值不一样，但最终解密的结果是一样的。大家可以参考一下。

对了，还有个重要的就是先得判断数据库的版本，我用了个简单的办法，取0x14处的字节，如果为0就判断为是Access97，如果为1就认为是Access2000或2002的。只是目前没有研究出判断2000和2002的办法，如果哪位知道的话，请指点。

代码：

//这里定义的是13个字节作为Access2000异或的源码。与之相对应的加密标志是0x13，ccrun特此注明

//当然你可以用这一组：BE EC 65 9C FE 28 2B 8A 6C 7B CD DF 4F 与这一组相对应的加密标志是0x0c

//呵呵.程序有些乱，希望大家能看的懂。

char PassSource2k[13]=
        {0xa1,0xec,0x7a,0x9c,0xe1,0x28,0x34,0x8a,0x73,0x7b,0xd2,0xdf,0x50};

//Access97的异或源码
char PassSource97[13]=
         {0x86,0xfb,0xec,0x37,0x5d,0x44,0x9c,0xfa,0xc6,0x5e,0x28,0xe6,0x13};

　

void __fastcall TMainForm::GetMdbPass()
{
char PassStrTemp[26],Ver,EncrypFlag,t1;
int FileHandle;
String MdbPassword,MdbVersion,MdbFileName;

FileHandle=FileOpen(MdbFileName,fmOpenRead);
if(FileHandle<0)
{
  ShowMessage("文件打开错误！");
  return;
}

//取得数据库版本
FileSeek(FileHandle,0x14,0);
FileRead(FileHandle,&Ver,1);

//取得加密标志
FileSeek(FileHandle,0x62,0);
FileRead(FileHandle,&EncrypFlag,1);

//读取加密后的密码到缓冲区
FileSeek(FileHandle,0x42,0);
FileRead(FileHandle,&PassStrTemp,26);
FileClose(FileHandle);

if(Ver<1)
{
  MdbVersion="Access 97";
  if(int(PassStrTemp[0]^PassSource97[0])==0)
    MdbPassword="密码为空!";
  else
  {
    MdbPassword="";
    for(int i=0;i<13;i++)
    MdbPassword=MdbPassword+char(PassStrTemp^PassSource97);
  }
}
else
{
  MdbVersion="Access 2000 or 2002";
  MdbPassword="";
  for(int i=0;i<13;i++)
  {
    if(i%2==0)

    t1=char(0x13^EncrypFlag^PassStrTemp[i*2]^PassSource2k);

    //每隔一个字节就与加密标志相异或。这里的加密标志为0x13

    else

    t1=char(PassStrTemp[i*2]^PassSource2k);
    MdbPassword=MdbPassword+t1;
  }
}
if(MdbPassword[1]<0x20||MdbPassword[1]>0x7e)
  MdbPassword="密码为空！";
EditMdbFileName->Text=MdbFileName;
EditMdbPassword->Text=MdbPassword;
EditMdbVersion->Text=MdbVersion;
}

ASP.net连接access数据库例程

2006/04/26 by G0dspeed·0评论

大家好,我是Asp.net的忠实爱好者,很想把这方面的经验和大家分享一下. 目前我选用的是时代互联(http://www.now.net.cn )的Asp.net+ACCESS空间(增强C).
欢迎大家一起进来讨论讨论!
——————————————————————————–

注意：要运行上述ACCESS例程请先下载数据库, 与例程放在同一目录下。
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<script laguage="VB" runat="server">
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
sub page_load(sender as Object,e as EventArgs)
‘1.连接数据库
dim dbname as string
dbname=server.mappath("authors.mdb")
myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="&dbname )
myConnection.Open()
la1.text="Connection Opened!"

‘2.添加记录
myCommand = New OleDbCommand( "Insert INTO Authors(Authors,country) Values(‘Simson‘,‘usa‘)", myConnection )
myCommand.ExecuteNonQuery()
la2.text="New Record Inserted!"

‘3 更新数据(Access)
myCommand = New OleDbCommand( "UPDATE Authors SET Authors=‘Bennett‘ WHERE Authors = ‘Simson‘", myConnection )
myCommand.ExecuteNonQuery()
la3.text="Record Updated!"

‘4 删除数据（access）
myCommand = New OleDbCommand( "DELETE FROM Authors WHERE Authors = ‘David‘", myConnection )
myCommand.ExecuteNonQuery()
la4.text="Record Deleted!"

‘5 使用DateGrid显示数据
myCommand = New OleDbCommand( "select * FROM Authors", myConnection )
MyDataGrid.DataSource=myCommand.Executereader()
MyDataGrid.DataBind()

end sub
</script>
<html>
<body>
<asp:label id="la1" runat="server" /><br>
<asp:label id="la2" runat="server" /><br>
<asp:label id="la3" runat="server" /><br>
<asp:label id="la4" runat="server" /><br>
<ASP:DataGrid id="MyDataGrid" runat="server"
BorderColor="black"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana"
Font-Size="10pt"
HeaderStyle-BackColor="#aaaadd"
AlternatingItemStyle-BackColor="#eeeeee"
>
</asp:DataGrid>

</body>
</html>
注意：要运行上述ACCESS例程请先下载数据库，与例程放在同一目录下。

Asp.net+ACCESS这款时代互联的空间在使用的速度和稳定上我都是非常满意的!

Asp.net虚拟主机的服务提供商中，目前首推的是CNNIC的其中一家权威机构—时代互联(www.now.net.cn),
他们在2003年便更新使用微软发布最新版本的ASP.net Web Matrix了.经笔者的使用测试，
他提供的ASP.NET空间性能非常的稳定，版本也会定期的更新升级!

使用详解和例程: http://www.now.net.cn/support/host/(这里有更多更细的Asp.net的详细例程)
全球免费咨询电话:http://www.now.net.cn/customer/moreline.net(很方便的)
时代互联的Asp.net空间购买方法：http://www.now.net.cn/host

喜欢asp.net和需要建网站的朋友,可以去网站看看，相信会在asp.net的使用方面会有更深的认识。

G0dspeed's Blog

Stay hungry, stay foolish

标签： access

Oracle与Access表之间的导入和导出实现

破解.mdb目前所有版本密码[收藏]

ASP.net连接access数据库例程