凤舞天骄加密文本文件批量转换工具（包含DELPHI源代码）

凤舞天骄加密文本文件批量转换工具

凤舞天骄的加密文本文件的解密比较简单，将文件除了第一字节以外的所有字节和0x78做异或运算，就可以进行密文与明文的转换。

顺手写了个工具，共享给大家

源代码（程序代码）

unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls,ShellAPI; type TForm1 = class(TForm) btn1: TButton; dlgOpen1: TOpenDialog; pb1: TProgressBar; pb2: TProgressBar; lbl1: TLabel; lbledt1: TLabeledEdit; stlab: TLabel; lbl3: TLabel; lbl4: TLabel; lbl2: TLabel; procedure btn1Click(Sender: TObject); procedure lbl2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure lbl2MouseLeave(Sender: TObject); procedure lbl2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject); var infile:TFileStream; outfile:TMemoryStream; fileid,i:Integer; tmp:Byte; sttext:string; const pwd:Byte=$78; begin dlgOpen1.Execute; if dlgOpen1.FileName<>'' then begin lbledt1.Enabled:=False; btn1.Enabled:=False; pb2.Max:=dlgOpen1.Files.Count; sttext:='共 '+inttostr(dlgOpen1.Files.Count)+' 个文件，正在处理第 '; for fileid:=0 to dlgOpen1.Files.Count-1 do begin stlab.Caption:=sttext+inttostr(fileid+1)+' 个文件：'+ExtractFileName(dlgOpen1.Files.Strings[fileid]); infile:=TFileStream.Create(dlgOpen1.Files.Strings[fileid],fmShareDenyNone); pb1.Max:=infile.Size; outfile:=TMemoryStream.Create; outfile.CopyFrom(infile,infile.Size); for i:=1 to infile.Size-1 do begin infile.Seek(i,0); outfile.Seek(i,0); infile.ReadBuffer(tmp,1); tmp:=tmp xor pwd; outfile.WriteBuffer(tmp,1); pb1.Position:=i+1; Application.ProcessMessages; end; pb2.Position:=fileid+1; infile.Destroy; outfile.SaveToFile(ExtractFilePath(dlgOpen1.Files.Strings[fileid])+trim(lbledt1.Text)+extractFilename(dlgOpen1.Files.Strings[fileid])); outfile.Free; end; pb1.Max:=0; pb2.Max:=0; Application.MessageBox('文件全部转换完毕！', PChar(Application.Title), MB_OK + MB_TOPMOST); lbledt1.Enabled:=True; btn1.Enabled:=True; end; end; procedure TForm1.lbl2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin lbl2.Font.Style:=[fsUnderline]; Cursor:=crHandPoint; end; procedure TForm1.lbl2MouseLeave(Sender: TObject); begin lbl2.Font.Style:=[]; Cursor:=crDefault; end; procedure TForm1.lbl2Click(Sender: TObject); begin ShellExecute(handle,nil,PChar(lbl2.Caption),nil,nil,SW_SHOWNORMAL); end; end.

源代码（窗体代码）

object Form1: TForm1 Left = 456 Top = 202 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = #20964#33310#22825#39556#21152#23494#25991#20214#25209#37327#36716#25442#24037#20855 ClientHeight = 161 ClientWidth = 366 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Icon.Data = { 0000010001002020000001002000A81000001600000028000000200000004000 0000010020000000000080100000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000FF000000FF000000FF000000FF000000FF000000FF0000 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00FF000000FF000000FF000000FFD4FFFFFFBEEDFFFFB1DFBDFFB1DECEFFAAD6 CFFFAAD6CFFFB9E7D1FF9FC9CFFF9EC7D0FFBDEDFFFF000000FF000000FF0000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000FF000000FF0000 00FF000000FFB1DEFFFF9CC4FFFF6077FFFF0403F5FF0606FFFF1418FFFF4A5B FFFF4859FFFF323DFFFF94B5FFFF9AC0FFFF9EC790FFBEEFFBFF000000FF0000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000FF000000FFA9D2D3FFA2CC FFFFB1DEFFFF8AADFFFF5165E7FF6983E9FF0D0CFCFF4F63EDFF242BFEFF4552 F7FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFFBDECFFFF000000FF0000 00FF000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000FFB1DEFFFF84A7FFFF2B31 FFFF0000FFFF0000F5FFE7FFDAFFDAFFDDFFE2FFDBFFE4FFE1FFB0DDD4FFC5F7 FFFF9DC4FFFF0000FBFF0000FFFF0800FFFF0000FFFF5364FFFFECFFFFFF0000 00FF000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000FFB1DEFFFF94B9FFFFA1CA FFFFAAD5FFFFC2F3F5FF2F3BF5FF0000FEFF0000FCFF576FFFFFAAD4BBFF0500 05FF6C845DFFD5FFFFFF0000FDFF0000FFFF0000FFFF5A6CFFFFC7F8FEFF0000 00FF000000FF000000FF000000FF000000000000000000000000000000000000 00000000000000000000000000FF000000FF000000FF000000FF000000FF0000 00FF000000FFCEFBFFFFADD8FFFF4150FCFF0607FBFF0403F7FF82A1FFFFC8FA DEFF9BC3ADFFD6FFE9FFCDFFE0FF0000FFFF0000FFFF7997FFFFC3F3FFFF0000 00FFDDFFFFFFDDFFFFFF000000FF000000FF0000000000000000000000000000 000000000000000000FF000000FFB8E7FFFFABD7FFFF94B9FFFFB1DEFFFF0000 00FF000000FF000000FF000000FFF9FFF2FFC6F7F3FF6E88EEFF85AAE5FF0000 FFFF0000FFFF0001F7FFC8FBDFFF0605FEFF0000FFFF7C9BFFFF97BCC8FFB8E5 FFFFB6E3CDFFB9E6D0FFD1FFFFFF000000FF000000FF00000000000000000000 000000000000000000FFB8E7FFFF738EFFFF0000DFFFABD7FFFF8AADFFFFB1DE FFFF000000FF000000FFCDE7FFFFADD8FFFF1114EBFF0000F5FF161BF1FF3744 EFFF323EF6FFBFEEE4FFC6F7E6FF0000FCFF0000F9FF5B6FEAFFD2FFDFFFD3FF C7FF0000FFFF0000FFFFDEFFFFFF000000FF000000FF00000000000000000000 000000000000000000FFADD9FFFF0000F1FF0000E1FF0000C8FF0303FAFFA7D2 FFFF000000FF000000FFDEFFFFFF0000F7FF0000E4FF0E10E8FF0000F2FF0000 F5FF1116EFFF7F9BE9FF708BEBFF0000E8FF0000E3FF99C2E3FFCBFFF1FF0000 EAFF0000D0FF0000DEFFD1FFCAFFDDFFFFFF000000FF00000000000000000000 000000000000000000FFB1DEFFFF0000DDFF0000C4FF0000D2FF4550F9FF9FCB FFFF000000FFCBD5D9FF5364FFFF0000E7FF0000EBFF2830EEFF1C22E7FF171A E3FF0000E5FF0000E1FF0000E4FF0000E0FF0000EAFFF4FFEBFF1A1EF1FF0000 E6FF0000D4FF0000E0FF0E11FFFFD1FFFFFF000000FF00000000000000000000 000000000000000000FFACDBFFFF0000B5FF000095FF0000A1FF5E6FFFFFAABB 90FF000000FFFFFFFFFF0000FAFF0000BAFF0000DAFF0000E2FF0000DDFF4D5E E3FFCDF2FFFF2F39E1FF0000CEFF0000D8FF7592E8FF9DC5E9FF0000D5FF0000 D2FF0000D3FF0000C5FF0000D8FFD8FFFFFF000000FF00000000000000000000 000000000000000000FFD3F6FFFF0000B1FF0000C1FF0000B6FF4D58F0FFB1CA B1FFBBD1CDFFB1C7FFFF0000C3FF000097FF000097FF0000C2FF0000AEFF0000 B1FF2C35DBFFE3FFFEFFDDFFF7FFA2C5E9FFE7FFEFFF0000D8FF0000BCFF0000 C2FF93B5F2FF0000C3FF0000CAFFDCFFFFFF000000FF00000000000000000000 000000000000000000FFD8F9FFFF000096FF0000CAFF0000BBFF0000BFFFFFFF FFFFFBFFFFFF0000B6FF000089FF4850D1FF0000A2FF000088FF0000A5FF0000 86FF000074FF0000ABFF6478ECFFE6FFEAFFA6CDF9FF0000ABFF00009CFF4050 E6FFFFFFFFFF0204C6FF0000A1FFD8FDFFFF000000FF00000000000000000000 000000000000000000FFE1FFFFFF000093FF0000ADFF000091FF0000B2FFFAFF FFFFFFFFFEFF4749CFFF00007BFFFFFFFFFF8184E0FF000064FFACBDFAFFA9B9 FFFF000090FF00006FFF0608CFFFFFFFFFFF3843E6FF0000A2FF0000B5FFCDFF FFFFC3F4E1FF2D37D4FF00008DFFCFFFE6FFE0FFFFFF000000FF000000000000 000000000000000000FFD9FCFFFF00008FFF000093FF00009BFF0000B3FFFFFF FFFFE9EEFFFF000096FF00007DFF3336CCFF4B4EC4FF000091FFE7F2FFFFFFFF FFFFD0DFFFFF575EFFFFFFFFFFFFD0F0FFFF0000A0FF00007FFF88A9FFFF5667 4DFF6D8872FF5167FFFF00008AFF0000A3FFCDFFFFFF000000FF000000000000 000000000000000000FFFFFFFFFF000077FF04007CFF010090FF000081FFC4C7 FFFFFFFFFFFF000091FF00006DFF000070FF000063FF0001B4FFFFFFFFFF2B00 2BFFAD6F9EFFBCBAADFFFBFFF9FF626BECFF000054FF0000A7FFDBFFFFFF6077 5BFFE1FFFFFF0508B1FF000053FF151BC5FFF8FFFFFF000000FF000000000000 000000000000000000FFFBFFFFFF000067FF000085FF000082FF00006DFF2629 BDFFFFFFFFFF000092FF00007FFF000081FF00006CFF000090FFFFFFFFFF2B00 2BFFCD00CDFF4D004DFFFFFFFFFF000091FF00005AFFACCBFFFFFFFFFFFF8CAE FFFF00009BFF00004AFF000084FFFFFFFFFF000000FF000000FF000000000000 000000000000000000FFFFFFFFFF00005DFF00006CFF02007DFF00006BFF0000 85FFFFFFFFFF000093FF000066FF000069FF000062FF010395FFFFFFFFFF2B2E 1AFF141708FFFFFFFFFF7579FFFF000039FF000076FF4F59E4FF0000C5FF0203 C4FF5D73F5FF94B4FFFFFFFFFFFF000000FF000000FF00000000000000000000 000000000000000000FFFFFFFFFF00009AFF00004FFF03006EFF01006FFF0000 6BFF000076FF000066FF010070FF000077FF000043FF000070FFFFFFFFFFFFFF FFFFFFFFFFFFDCE1FFFF00004FFF000045FFA5C6FFFFB2D3FFFFDCFFFFFFECE3 FFFF000000FF000000FF000000FF000000FF0000000000000000000000000000 000000000000000000FFFFFFFFFFFFFFFFFF000036FF010068FF030062FF0100 64FF000045FF000040FF000041FFA3A3F6FFCCCEFFFF6A69DBFFFFFFFFFFE3E4 FFFFE9EBFFFF5154C4FF000008FFA0B7FFFFE3FFFFFF3A003AFF000000FF0000 00FF000000FF000000FF00000000000000000000000000000000000000000000 000000000000000000FF000000FFFFFFFFFF00003CFF01004EFF030054FF0000 38FF4846ACFFE8E8FFFF000055FF000056FFC9C9FFFFFFFFFFFF29252AFF514F 3BFFFFFFFFFF000026FF4F5BD1FFFFFFFFFF240024FF000000FF000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000FF000000FFFFFFFFFF000053FF00002DFF00004BFF0000 31FF4D4DA9FFEBEBFFFF5757BCFF00001DFF00000FFF4745D6FFCFD0B4FFD6D8 B2FF5356DCFF00003BFFFFFFFFFF000000FF000000FF00000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000FFFFFFFFFFFFFFFFFF000003FF000043FF0000 40FF00002AFF00001DFF000032FF000041FF000013FF5553C2FFFFFFFFFFFFFF FFFF000000FFFFFFFFFF000000FF000000FF0000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000FF000000FFFFFFFFFF000000FF000010FF0700 2BFF0A0033FF080034FF030033FF050033FF000018FFE5EDFFFF000000FF0000 00FF000000FFFFF1FFFF000000FF000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000FFFFFFFFFFFFFFFFFF00002FFF0000 0AFF000000FF030008FF110028FF0D0027FF07001AFF000000FF0A0025FF0000 00FFFFFFFFFF000000FF000000FF000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000FF000000FFFFFFFFFFFFFFFFFFFFFF FFFF8D8FE2FF00002AFF000000FF06000CFF08001EFF0B0028FF000000FFFFFF FFFF360036FF000000FF00000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000FF000000FF000000FF0000 00FFFFFFFFFFFFFFFFFF3F41ADFF000000FF000000FF000000FF000000FFFFFF FFFF000000FF0000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00FF000000FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 00FF000000FF0000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000FF000000FF000000FF000000FF000000FF000000FF0000 00FF000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000FFFF FFFFFFC001FFFF0000FFFC0000FFF800007FF800007FF800000FE0000007C000 0003C0000003C0000003C0000003C0000003C0000003C0000003C0000001C000 0001C0000001C0000001C0000003C0000007C000001FC00001FFC00003FFE000 07FFE0000FFFF0000FFFF0001FFFF8003FFFFF003FFFFFC07FFFFFFFFFFF} OldCreateOrder = False Position = poDesktopCenter PixelsPerInch = 96 TextHeight = 14 object lbl1: TLabel Left = 6 Top = 1 Width = 360 Height = 70 Caption = #35828#26126':'#13#10'1.'#36716#25442#21518#30340#25991#20214#23558#19982#21407#22987#25991#20214#20445#23384#22312#21516#19968#30446#24405#19979'.'#13#10'2.'#36716#25442#21518#30340#25991#20214#21517#21069#32512#20026#31354','#37027#20040#36716#25442#21518#30340#25991#20214#23558#35206#30422#21407#22987#25991#20214'.'#13#10#27880#24847 + ':'#13#10#36716#25442#21518#30340#25991#20214#21517#21069#32512#35831#19981#35201#20351#29992#36829#21453#25805#20316#31995#32479#25991#20214#21629#21517#35268#21017#30340#23383#31526#65281 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object stlab: TLabel Left = 0 Top = 112 Width = 367 Height = 14 Alignment = taCenter AutoSize = False Transparent = True end object lbl3: TLabel Left = 6 Top = 128 Width = 51 Height = 14 Caption = #24403#21069#36827#24230':' Transparent = True end object lbl4: TLabel Left = 6 Top = 144 Width = 51 Height = 14 Caption = #24635#20307#36827#24230':' Transparent = True end object lbl2: TLabel Left = 224 Top = 0 Width = 136 Height = 14 Caption = 'http://blog.csdn.net/RocketLi' Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True OnClick = lbl2Click OnMouseMove = lbl2MouseMove OnMouseLeave = lbl2MouseLeave end object btn1: TButton Left = 254 Top = 80 Width = 49 Height = 21 Caption = #36716#25442 Default = True TabOrder = 1 OnClick = btn1Click end object pb1: TProgressBar Left = 59 Top = 127 Width = 303 Height = 16 Smooth = True TabOrder = 2 end object pb2: TProgressBar Left = 59 Top = 143 Width = 303 Height = 16 Smooth = True TabOrder = 3 end object lbledt1: TLabeledEdit Left = 169 Top = 81 Width = 81 Height = 20 BevelEdges = [beBottom] BevelInner = bvNone BevelOuter = bvNone Color = clInfoBk Ctl3D = False EditLabel.Width = 111 EditLabel.Height = 14 EditLabel.Caption = #36716#25442#21518#30340#25991#20214#21517#21069#32512':' EditLabel.Transparent = True HideSelection = False LabelPosition = lpLeft MaxLength = 10 ParentCtl3D = False TabOrder = 0 Text = 'H2_' end object dlgOpen1: TOpenDialog Filter = '*.txt|*.txt' Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofNoNetworkButton, ofEnableSizing] OptionsEx = [ofExNoPlacesBar] Title = #35831#36873#25321#38656#35201#36716#25442#30340#25991#20214 Left = 328 end end

下载地址

凤舞天骄加密文本文件批量转换工具（包含DELPHI源代码）相关推荐

凤舞天骄TB商店修改器V1.0(DELPHI源代码,无需注册)
经过分析,不仅可以修改原有的商品代码,还可以增加商品!不过得自己在ERSoe_Test.dll中写汇编代码这里只放出一个针对157种商品DLL的版本,加了个30次试用的限制,大家不要见怪哦~~~ 分 ...
[原创]windows下unix2dos dos2unix 文本文件批量转换工具
下载地址:http://download.csdn.net/detail/miaozk2006/5884455 老版下载地址:http://download.csdn.net/detail/miaoz ...
5 mysql 凤舞天骄_凤舞天骄私服服务端菜鸟架设步步走
目前网上流传的服务端有两个版本,一个是带录像教程的手动架设版,一个是钟隐的一键安装版.包括浪子提供的那一套,应该也是"录像版"的改进版本--未经实验姑且推断:这两个版本的版本号都是 ...
凤舞天骄服务器网络延迟,凤舞天骄游戏中新手玩家常见问题汇总
经常见新手玩家游戏遇到不明白的地方只会世界喊问,逐个回答比较麻烦,现在我把一些游戏的常见问题汇总下,希望能给新手玩家一点帮助一.新手村任务完成后,洛阳必须要寻找的NPC 1.洪域(284,155): ...
繁体批量转换工具：支持繁体字和简体本地化互转
繁体批量转换工具支持繁体字和简体字之间的互转和繁体字翻译成英文.德文.日文等多语种的翻译,并且在各语种之间来回互译,繁体批量转换工具可以对我们的网页内容.本地文件和多文本格式文档进行批量字体转换和语言 ...
html utf8转换工具,GB/BIG5/UTF-8 文件编码批量转换工具
GB/BIG5/UTF-8 文件编码批量转换工具是一款单一文件与批量转换编码工具将 GB.BIG5.UTF-8 文件相互转换,方便的批量处理能力,主要用于网站文件编码方式的整体转换上. 某天, ...
凤舞天骄服务器网络延迟,凤舞天骄疲劳，冰封，虚弱，迟钝的实际效果
凤舞天骄疲劳,冰封,虚弱,迟钝的实际效果冰封,疲劳,迟钝都会把人打到定住,像雕塑一样,看不到任何动作,给人感觉既不能攻击,又不能移动,事实上有的能移动,有的能攻击. 冰封:3s内禁技能,-40%移速 ...
[C#源代码]百度网盘地址批量转换工具
源代码地址 : http://download.csdn.net/detail/witch_soya/5185926 效果如图截止今日2013年3月27日10:13:48 还是可以使 ...
凤舞天骄单机 mysql_凤舞天骄单机版
不知道怎么下载?点我游戏介绍游戏简介 <凤舞天骄>是由一名资深的游戏玩家所制作的一款单机游戏,与网游不一样的是游戏可以开启GM权限,你可以在此款游戏中随意调整人物属性.等级.装备等等, ...

凤舞天骄加密文本文件批量转换工具（包含DELPHI源代码）

凤舞天骄加密文本文件批量转换工具（包含DELPHI源代码）相关推荐

最新文章

热门文章