大佬教程收集整理的这篇文章主要介绍了Free Pascal-解决问题的查询(不是语法)-如何进入此循环的下一个阶段,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
type TLetters = \'A\'..\'Z\'; TLeet = arraY[TLetters] of TStringList; var sourcefilename,str : String; StarTindexfile : Textfile; i : TLetters; leet : TLeet; s : String; n,o,columnSize : Integer; begin for i in TLetters do leet[ i ] := TStringList.Create; // The next sequence of loops populates the String grID by counTing the number of characters for each letter of the Alphabet and then inserTing them down,column by column and row by row... //Letter A: s := \'4 @ /-\\ /\\ ^ aye ∂ ci λ Z\'; columnSize := wordcount(s,[\' \']); o := 0; for n := 0 to columnSize do leet[\'A\'].Add(ExtractWord(n,s,[\' \'])); for o := 0 to columnSize do StringGrID1.Cells[1,o] := Leet[\'A\'][o]; // And so on for B - Z // ... then an OpenDialog that opens the source text file to read. Got that sorted // A load of file opening stuff and then the obsfucation repeat Readln(StarTindexfile,Str); LblProgress.Caption := (\'Parsing Index file...please wait\'); OBSFUCATE THE WORDS HERE TO SOME EXTENT // but Now I have hit a barrIEr.... until(EOF(StarTindexfilE));我的问题是这样的:例如,给定单词“爱德华”,我该如何决定将其混淆到哪个级别?只是将第一个字母'E \'替换为\'3 \',仅此而已?或将前两个字母\'E \'和\'d \'替换为LEET表中字母E和d的所有值(这意味着将从\'EDWARD \'中生成许多新单词,依此类推),或\'E \'的所有值,但除此之外没有其他...列表继续。潜在地,对于每个单词,我都可以创建成千上万个附加单词!一个100Gb的源文件很快就会变成TB! 换句话说,我需要设置程序可以运行的“级别”,用户可以决定。但是我不确定如何构建该级别? 所以我不确定如何使它工作?在开始之前,我并没有真正想通。我最初的想法是:“拥有一个程序,该程序将从计算机中提取单词索引,然后生成每个单词的变体来说明混淆字符的人。”但是我开始编写代码, \已经意识到这是一项比我想象的还要大的工作,现在我被困在实际上“保留我的输入文件”的部分中!
以上是大佬教程为你收集整理的Free Pascal-解决问题的查询(不是语法)-如何进入此循环的下一个阶段全部内容,希望文章能够帮你解决Free Pascal-解决问题的查询(不是语法)-如何进入此循环的下一个阶段所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。