首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

从Delphi 4中获取YYYYMM字符串

可以通过以下步骤实现:

  1. 使用Delphi 4中的日期和时间函数获取当前日期。 Delphi 4提供了Now函数来获取当前日期和时间。可以使用FormatDateTime函数将日期格式化为所需的字符串格式。
  2. 使用Delphi 4中的日期和时间函数获取当前日期。 Delphi 4提供了Now函数来获取当前日期和时间。可以使用FormatDateTime函数将日期格式化为所需的字符串格式。
  3. 解析当前日期的年份和月份。 可以使用YearOfMonthOf函数从当前日期中提取年份和月份。
  4. 解析当前日期的年份和月份。 可以使用YearOfMonthOf函数从当前日期中提取年份和月份。
  5. 将年份和月份转换为字符串并拼接。 使用IntToStr函数将年份和月份转换为字符串,并使用字符串拼接操作符+将它们连接起来。
  6. 将年份和月份转换为字符串并拼接。 使用IntToStr函数将年份和月份转换为字符串,并使用字符串拼接操作符+将它们连接起来。

以上是从Delphi 4中获取YYYYMM字符串的步骤。这个字符串可以用于各种用途,例如文件命名、日期比较等。

腾讯云相关产品和产品介绍链接地址:

请注意,以上链接仅供参考,具体产品选择应根据实际需求和腾讯云官方文档为准。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

delphi 封装获取字符串几个函数

前言 delphi7里面不像高级版本或是C#或JAVA里面有专门对字符串操作的方法,所以有时候我们需要自己做一些函数放到公共单元里面用于调用,下面列了几个字符串的截取的函数,可以直接拿来用。...函数代码 截取字符串中的某一些字符 strSource:源字符串 strBegin: 开始位置字符串 strEnd: 结束位置字符串 例:GetStr('abcd1234','bc','34...in_end:=AnsiPos(strend,strsource); result:=copy(strsource,in_star,in_end-in_star); end; ---- 截取字符串中的某一些字符...strSource:源字符串 strBegin: 开始位置字符串 strEnd: 结束位置字符串 例:GetStrAll('abcd1234','bc','34')返回值:'bcd1234'...strSource:源字符串 strBegin: 开始位置 strEnd: 结束位置字符串 例:GetStr('abcd1234',1,'34')返回值:'abcd12' function

65330
  • 后端 | Java 利用substring()和indexOf()字符串获取指定的字符

    str.substring(4, 9); // 这里传入R的下标4,再传入第二个“/”的下标9,拿到的就是Riven /*第二种情况:不知道字符下标,但是知道分割字符是“/”,可以用indexOf()获取字符...“/”下标*/ // 第二种情况我们获取id->id1 String id = str.substring(0, str.indexOf("/"));.../*善于思考的同学已经发现,第二种情况我们只能获取id,想拿后面其他数据就很难办了,因为我们有两个“/”,因此就有了第三种情况*/ /*第三种情况:str中有多个相同字符,我们要跳过前几个字符获取后面的数据...*/ // 第三种情况我们想获取Riven,但是我们不知道Riven本身的下标 // 首先,我们先拿到第一个“/”的下标 int i = str.indexOf...("/"); // 然后我们拿到第二个“/”的下标,前两个“/”之间的数据就是我们的name字段了 // indexOf()可以传两个参数,第一个是要寻找的子字符串,第二个是哪个下标位置开始寻找

    3.2K40

    解决:java.time.format.DateTimeParseException: Text 201906 could not be parsed: U

    然而,​​LocalDateTime​​是不包含时区或日期的概念的,因此,无法仅有年份和月份的字符串获取完整的日期和时间信息。...解决方案要解决这个问题,我们需要明确希望从这个字符串获取哪个具体的日期和时间。可能的解决方案包括:1....实际应用场景示例:解析月度报告日期假设我们有一个需求:用户提供的文件中解析月度报告的日期,并将其存储为​​YearMonth​​对象。文件中的日期格式为"yyyyMM",表示年份和月份的组合。...然后,我们使用​​BufferedReader​​文件中逐行读取日期数据。...以下是一些常用的方法示例:获取年份:​​int year = dateTime.getYear();​​获取月份:​​Month month = dateTime.getMonth();​​获取日期:​​

    2.3K20

    爬取720万条城市历史天气数据

    总数据720万,地区3200个,年份2011-2019,大小950Mb,原始数据已丢失,需要的朋友可以自己运行脚本挂一晚上。中间遇到了很多坑,有机会我再写一遍博客专门讲讲大量数据爬虫遇到的坑。...本人在使用基于java的脚本语言groovy做爬虫时,用了获取城市历史天气的任务做练习。数据源隐藏了,有需要的我可以直接发数据。...net.sf.json.JSONException 9import net.sf.json.JSONObject 10 11class Weather extends ApiLibrary { 12 13/** 14 * 获取城市...getCityYear(cityId, j) 20 sleep(1000 + getRandomInt(1000)) 21 } 22 } 23 24/** 25 * 获取当年的数据...uri = "http://tianqi.***.com/t/wea_history/js/" + yyyymm + "/" + cityId + "_" + yyyymm + ".js" 48

    1.1K20

    新160个CrackMe分析-第3组:21-30(下)

    识别的是UPX壳,实际上则无壳,识别错误应该是调试分析通过MessageBox函数交叉引用定位校验的位置,就分析主要逻辑吧,前面那些初始化无关紧要前面省略了给Name和Serial赋值的API调用,直接校验逻辑开始看这里获取...)最后算出一个累加值和序列号字符串进行对比,没看错,是直接和字符串对比,输入的字符串会直接当成数字对待输入的字符,这里esi是计算出来的累加和,下面那一行是输入的序列号,直接用ascii当数字来对比了!...程序,通过IDR反汇编找到按钮控件事件,然后复制出来分析首先是获取输入,Name长度和Serial长度不能为0接下来紧接着是序列号生成:根据Name生成一个字符串最后是比对环节:注册机注册码生成算法:...:存在提示信息:调试分析字符串提示入手,找到校验点开始分析首先是获取输入,用户名需要长度大于等于5然后是校验和对比了:校验算法:Serial == Name[i]-i简单到可以口算的序列号生成:12345...i] - i;    }    std::cout << serial;}5. 030-AcidBytes4算法难度:⭐⭐⭐爆破难度:⭐信息收集运行情况:查壳与脱壳:UPX,无脑ESP定律即可调试分析Delphi

    34200

    恶意代码分析实战六:熊猫烧香病毒样本分析

    sub_405360(Decode) 接着继续分析第一张图的如下图的地方,图中可见call sub_405360,有两个参数:(1)xboy,(2)一段看似加密的字符串。...Delphi逆向小技巧 其实Delphi有专门的反编译器,其效果不比IDA Pro差,甚至更胜一筹,其中值得比较推荐的一款就是IDR。...IDR能分析出IDA Pro无法识别的符号,而且对中文字符串的显示效果也很不错,点击SRC按钮还能反编译成Delphi伪代码。...part4: 接着执行完流程后到达00408110位置处继续分析,一开始便是先获取了自身路径然后传入一个call,之后堆栈里面有个下载者相关的字符串信息这个先不管感觉没什么用,然后就是一些字符串的处理一路向下...,最后到了红色标记方块处,OD动态调试分析中可以看出他获取了系统目录然后拼接了成了字符串C:\Windows\system32\drivers\spoclsv.exe,不知道各位大佬还记不记得我们在行为分析的时候

    3.3K20

    160个CrackMe之004

    CKme Delphi,是Windows平台下Object Pascal语言集成开发环境,支持应用程序快速开发。...Delphi Decompiler 是Delphi的反编译工具 第一步 查壳,查信息 第二步 运行程序 :没有按钮,只能两个文本框,一个用户名,一个注册码,作者提示:如果注册成功,程序中会出现"朱茵"小姐的一幅靓照...第五步 看一下chkcode事件的代码,chkcode事件的代码中可以看到,如果输入的序列号正确,则往地址 [esi+0x30c] 中写入 0x3E 。...重点:每次输入用户名的时候,事件KeyUp(00457E4C)都会获取用户输入的字符,并保存起来,并获取输入的用户名的长度保存起来,每次输入序列号的时候,事件chkcode(0045C40)都会获取输入的字符并保存起来...,在生成正确的字符串(正确的序列号时代码中出现字符串的拼接)并与之对比,如果正确,就向地址[esi+0x3C] 中写入 0x3E。

    11110

    新160个CrackMe分析-第1组:1-10(下)

    : 有两个提示信息,可以作为分析的入口点: 查导入表: 很直观,获取用户输入,进行验证,然后弹出对话框提示信息 调试分析 首先获取Name,然后判断Name长度是否符合要求: 然后获取输入的Serial...<< Buffer << std::endl; } 总结 平平无奇的最简单CM 7. 007-reg 算法难度:⭐ 爆破难度:⭐ 信息收集 运行情况: 经典的用户名+序列号授权验证: 查壳与脱壳: Delphi...编写的32位GUI程序,无壳 查字符串: 大概看了一下,字符串里有个reg.dll,但CM文件只是单一的exe,可能存在释放文件 调试分析 对于Delphi程序,除了直接强行分析之外,还可以借助Delphi...程序逆向练习,借助工具IDR可以很方便的识别Delphi函数,这个CM使用了经典的重启验证,让验证函数在窗口创建前进行验证,注册机较为复杂,暂时还写不出来  参考资料 – [1] 新160个CrackMe...: 有一些提示字符串,提示输入正确失败的,还有错误提示:Name需要是4-50个字符长 调试分析 本次的目标是分析出算法写注册机,所以就没有爆破环节了 提示字符串Hello,Mr.

    41030

    Oracle通过substr,instr,translate函数的组合获取日期分割表

    前言 写这一篇文章也是因为项目SQL数据库导入Oracle数据库中遇到的问题,主要是我们要导入的数据有年月的分割表的查询。...实现思路 因为我们想要的表名最后四位就是YYYYMM代表年月的数字,想要获取对应的表名我们可以分为三步: 获取表名最后六位。(substr) 然后通过转义的方式把是数字的转换为一个特殊字符。...(instr) 代码实现 通过substr函数获取表名最后六位 substr(string, a, b); 参数: string 需要截取的字符串 a 截取字符串的开始位置(注:当a等于0或1时,都是第一位开始截取...) b 要截取的字符串的长度,最后一个参数也可以不用,这样就代表第a个字符开始截取后面所有的字符串。...string2 目标字符串 start_position 起始位置 nth_appearance 匹配序号 后两个参数可以不要的 string2 的值要在string1中查找,是start_position

    1.9K10

    新160个CrackMe分析-第4组:31-40(上)

    :直接字符串提示信息找到验证点这是一个自写的弹窗函数还.......,分别保存在了两个全局变量里,然后就关闭窗口了,接下来还得刚刚创建窗口的地方往下看往下看就是使用获取的Name和Serial进行一个函数调用,然后用调用结果比对,选择是否弹窗成功接下来看Name的校验计算...:获取完成输入之后,对用户名进行一个处理,然后对序列号进行一个处理,就进行对比,如果相同,则跳转用户名处理过程:a....程序,Check按钮逻辑:获取Name,计算一个值,转字符串,和Serial比对注册机注册码生成算法: #define _CRT_SECURE_NO_WARNINGS#includeint main()...和Serial,Name长度需要大于等于4 接下来是对Name的处理:遍历字符串每次取一个字节,左移9位,然后累加到ebx里 验证环节依然是对比:将刚刚计算的累加值变成字符串,然后对比输入的序列号,对比不相同则弹窗失败注册机注册码生成算法

    36210

    熊猫烧香(上)初始分析

    分析信息如下: 该程序并没有加壳,采用Delphi Borland Delphi 6.0-7.0编写 区别:Delphi在函数调用时参数的传递不完全用栈,主要用寄存器。...接着可以通过OD动态调试获取字符串对应的值。 但是,我目前的IDA并没有自动解析出字符串的值,只能通过经验进行分析或OD动态调试。...(5)sub_405360函数分析 继续0x0040CB92位置往下分析,将该地址复制到OD中动态调试。...通常除法有两种可能,要么获取EAX的商值,要么获取余数EDX的内容。那么这个程序究竟需要哪一个值呢?...0x004053E8 0x00405408 接着按下F9运行,查看输出的结果,分析如下: 将“xboy”的第三个字母“o”取出解密 数据窗口新增很多内容,完成字符串拷贝 反复继续按F9调试,发现它依次获取

    17310

    博客目录及索引,欢迎指导交流

    AOP之深入一点Spring Aop 学习AOP之认识一下Spring AOP 加深一下BlockingQueue的认识 测试一下StringBuffer和StringBuilder及字面常量拼接三种字符串的效率...java中的锁 java中的字符串相关知识整理 ThreadLocal简单理解 Java模拟Windows的Event 多用多学之Java中的Set,List,Map 学习笔记:Java的集合类简单理解...开源一个简单的缓存组件j2cache 聊聊web session的共享到可扩展缓存设计 Apache Ignite Apache Ignite之集群应用测试 Ignite性能测试以及对redis的对比...相关 技术笔记:Indy IdSMTP支持腾讯QQ邮箱邮件发送 技术笔记:Indy的TIdSMTP改造,解决发送Html和主题截断问题 技术笔记:Delphi多线程应用读写锁 技术笔记:Indy控件发送邮件...学习笔记:7z在delphi的应用 学习笔记 :DrawText 学习笔记:delphi之TStringGrid 学习笔记: Delphi之线程类TThread 学习笔记:delphi多线程知识 WEB

    1.7K90

    新160个CrackMe分析-第2组:11-20(下)

    程序,那个年代很流行Delphi啊查字符串:存在一些提示字符调试分析依然是拖IDR,复制出来在编辑器里写注释窗口里有两个事件,一个是Name编辑框键入的时候触发的,一个是点击Try按钮触发的直接看按钮的验证逻辑...:存在提示字符串:调试分析这个程序计算比较复杂,这里通过x86dbg+IDA结合进行分析找到验证逻辑直接oep开始分析:汇编写的程序,这里是一个窗口过程,参数里这个是过程函数,处理窗口消息的函数 一般自己创建窗口写窗口过程函数都是类似这样的...,分别获取C盘和D盘的,然后进行一段浮点运算,中间经历的这些自写的位移函数在此处无意义这里来看一下这些自写函数:首先是获取卷序列号的:通过Win32 API获取信息,直接返回然后是左移函数:参数获取值...循环遍历每一个字节,然后累乘起来,使用cld扩展指令,溢出32位的部分会保存到edx里,这里会把高32和低32位结果加起来第三段运算第三段运算使用到了第二段运算计算的结果,对这个结果除以10取余数,用余数作为索引依次固定字符串里取值...:提示字符串调试分析静态分析字符串入手或者函数调用的交叉引用入手比较方便,可以查MessageBox函数的调用,也可以查提示信息字符串的交叉引用,这里后者入手(方便),这个字符串大概率会出现在校验函数里首先进行两个操作

    53320

    十二.熊猫烧香病毒IDA和OD逆向分析(上)病毒初始化

    技术路上哪有享乐,为了提升安全能力,别抱怨,干就对了~ 2019年7月开始,我来到了一个陌生的专业——网络空间安全。...分析信息如下: 该程序并没有加壳,采用Delphi Borland Delphi 6.0-7.0编写 注意,这里补充姜老师对Delphi编写代码和VC++编写代码的理解。...接着可以通过OD动态调试获取字符串对应的值。 但是,我目前的IDA并没有自动解析出字符串的值,只能通过经验进行分析或OD动态调试。...通常除法有两种可能,要么获取EAX的商值,要么获取余数EDX的内容。那么这个程序究竟需要哪一个值呢?...0x004053E8 0x00405408 接着按下F9运行,查看输出的结果,分析如下: 将“xboy”的第三个字母“o”取出解密 数据窗口新增很多内容,完成字符串拷贝 反复继续按F9调试,发现它依次获取

    2.2K40
    领券