Delphi10.1实现DES加解密算法教程

版权申诉
0 下载量 102 浏览量 更新于2024-10-19 收藏 2.23MB RAR 举报
资源摘要信息: "DES加解密算法Delphi10.1编译通过" 知识点: 1. DES加密算法: DES(Data Encryption Standard)是一种对称密钥加密块密码算法,广泛应用于数据加密领域。它的密钥长度为64位,但实际有效密钥长度为56位(8位用于奇偶校验)。DES算法将数据分块,每块64位进行加密,加密和解密过程相似,仅密钥使用顺序相反。由于DES的密钥长度较短,它在1999年被破解,目前已经不再作为安全标准使用,但是作为教学和了解加密原理的基础仍然具有重要意义。 2. Delphi编程环境: Delphi是一个由Embarcadero Technologies开发的集成开发环境(IDE),支持快速应用程序开发(RAD)。Delphi 10.1是Embarcadero发布的一个版本,该版本为开发人员提供了支持多平台的开发工具,如Windows, macOS, iOS和Android。Delphi使用自己的编程语言Pascal的变种Object Pascal进行开发。 3. Delphi编程中的控件(Control): 在Delphi编程中,控件是实现用户界面元素的预构建组件,如按钮、文本框、列表框等。它们极大地简化了用户界面的开发,使得开发者可以快速地将它们添加到窗体上,并为它们编写事件处理代码来响应用户的交互。控件可以封装功能并提高代码的可重用性。 4. 加密算法实现: 在Delphi中实现加密算法通常涉及创建特定的函数或类,用于执行加密和解密操作。对于DES算法,开发者需要编写相应的函数来处理数据块的加密和解密。Delphi本身提供了一些加密支持,但对于特定算法,如DES,开发者可能需要使用第三方库或自己实现算法细节。 5. 编译通过的概念: “编译通过”意味着代码在编译器中没有错误或警告,能够成功编译生成可执行文件或库文件。在Delphi这样的编译型语言中,编译通过是代码成功运行的前提。这也意味着代码的语法正确,并且符合Delphi语言规范。在本资源的上下文中,“Delphi10.1编译通过”表示提供的DES加解密算法代码已经能够在Delphi 10.1版本中成功编译运行。 6. 文件名"des": 在提供的资源信息中,压缩包文件名仅包含"des"。虽然无法得知完整文件名,但根据上下文可以推测这是一个包含有关DES加解密算法的代码或实现的Delphi文件。 综合以上知识点,可以得出结论:这份资源包含了一个在Delphi 10.1环境中编译通过的简单DES加解密算法的实现,它可能包含两个主要的函数,一个用于加密数据,另一个用于解密数据。这个实现可能涉及到Object Pascal语言,以及Delphi的控件使用。由于DES算法的弱点,这种实现在现代加密应用中已很少使用,但作为教学示例仍然是有价值的学习材料。

优化这条sql 解决bug select a.*,rownum num from ( SELECT t.PROJ_ID,t.PROJ_CODE,t.PROJ_NAME,t.CLIENT_CODE,t.CLIENT_NAME,t.SPEC_CODE,t.SPEC_NAME,t.BUS_UNIT_CODE,t.BUS_UNIT,t.PROJ_DEP_CODE,t.PROJ_DEP,t.PROJECT_MANAGER_CODE,t.PROJECT_MANAGER,t.PROJECT_DEP_MANAGER_CODE,t.PROJECT_DEP_MANAGER,t.IS_SUB_PROJ,t.SUB_PROJ_TYPE_CODE,t.SUB_PROJ_TYPE,t.PARENT_CODE,t.PROJ_GROSS,t.CLIENT_AREA_CODE,t.CLIENT_AREA,t.CLIENT_TYPE_FULL_PATH_CODE,t.CLIENT_TYPE_PULL_PATH,t.BUSINESS_TYPE_CODE,t.BUSINESS_TYPE,t.BUSINESS_LEVEL_CODE,t.BUSINESS_LEVEL,t.BUSINESS_AREA_CODE,t.BUSINESS_AREA_NAME,t.IS_CLOSE,t.IS_IN_COO,t.TAX_RATE,t.IS_AUTHORIZED,t.AUTHORIZED_AMOUNT,t.IS_VIRTUAL,t.INCOME_BUDGET,t.EXPENDITURE_BUDGET,t.P_VALUE,t.CREATE_TIME,t.P_BUD_VALUE,t.P1_BUD_VALUE,t.P2_BUD_VALUE,t.ORG_CODE,t.ORG_NAME,t.PROD_RES_TYPE,t.IS_TECH_COO,t.COO_UNIT_RATIO,t.PROJ_ACHIEVEMENTS_BUD,t.REIMBURSEMENT_COST_BUD,t.COO_COST_BUD,t.MATERIAL_COST_BUD,t.PERFORMANCE_PERCENT,t.SCHE_START_TIME,t.SCHE_END_TIME,t.PROJECT_ACCOUNT_CODE,t.CUSTOMER_TYPE_CODE,t.CUSTOMER_TYPE,t.IS_PURE_OUT_PROJ,t.PROJECT_CREATE_TIME,t.IS_RELATE,t.IS_QUOTA,t.MAIN_PROJECT_CODE,t.PROJ_STATUS,t.IS_LARGE_PROJECT,t.MARKET_DIS_COUNT_RATE,t.PROJECT_CAT,t.MGR_PER_FORMANCE_RATIO,t.P1_VALUE,t.S_VALUE,t.COOP_VALUE,t.H_VALUE,t.DEVICE_BUDGET_COST,t.SUR_FEE_DIS_COUNT_RATE,t.DES_FEE_DIS_COUNT_RATE, (select listagg(p.coo_unit_code, ',') within group(order by p.coo_unit_code) from ( select distinct coo_unit_code from t_spdi_proj where is_sub_proj = 'Y' and sub_proj_type_code = 'wbhz' and PROJ_STATUS != 'P_5' AND PROJ_STATUS != 'P_4' and parent_code = t.proj_code )p ) coo_unit_code, (select listagg(to_char(p.coo_unit), ',') within group(order by p.coo_unit) from ( select distinct coo_unit from t_spdi_proj where is_sub_proj = 'Y' and sub_proj_type_code = 'wbhz' and PROJ_STATUS != 'P_5' AND PROJ_STATUS != 'P_4' and parent_code = t.proj_code )p ) coo_unit from T_SPDI_PROJ t where t.PROJ_STATUS NOT IN ('E','H','W') order by t.proj_id )a

2023-06-01 上传

fieldList: this.$refs.tabTable.$refs.field ? this.$refs.tabTable.$refs.field[0].tableData : this.tableDataField || [], // 字段列表 conditionList: this.$refs.tabTable.$refs.sql ? this.$refs.tabTable.$refs.sql[0].tableData : this.tableDataSql || [], // 过滤条件 sequenceList: this.$refs.tabTable.$refs.sort ? this.$refs.tabTable.$refs.sort[0].tableData : this.tableDataSort || [], // 字段排序 queryList: this.$refs.tabTable.$refs.filter ? this.$refs.tabTable.$refs.filter[0].tableData : this.tableDataFilter || [], // 查询区 view_order: this.viewOrder, // 视图顺序 module_id: this.addEditParams.module_id, // 功能id status_id: this.addEditParams.status_id, // 状态id table_name: this.addEditParams.table_name, // 表名 bill_type_id: this.addEditParams.bill_type_id, // 单据类型id des_id: this.addEditParams.des_id ? this.addEditParams.des_id : '', // 视图模板id des_alias: this.addEditParams.des_alias ? this.addEditParams.des_alias : '', // 视图别名 resource_code: this.addEditParams.resource_code ? this.addEditParams.resource_code : '', // 资源编码 page_num: this.addEditParams.page_num ? this.addEditParams.page_num : 0, // 每页条数 is_subtotal: this.addEditParams.is_subtotal ? this.addEditParams.is_subtotal : 0, // 是否小计 }; objSub.fieldList.forEach((it) => { it.is_format = it.is_format ? 1 : 0; it.is_visible = it.is_visible ? 1 : 0; it.is_total_items = it.is_total_items ? 1 : 0; it.is_primary = it.is_primary ? 1 : 0; return it; }); 优化以上代码

2023-07-14 上传