请选择 进入手机版 | 继续访问电脑版

默认
回复 0

31

主题

35

帖子

111

积分

注册会员

Rank: 2

积分
111
如何利用DELPHI得到WEBSHELL[复制链接]
发表于 2018-6-14 10:53:41 | 显示全部楼层 |阅读模式
ISStop:布尔值; //用于确定用户是否按下停止按下纽。

好吧。在创建表单的过程中,我们输入RECORD记录的默认值。

代码如下所示:

过程TMainForm.FormCreate(发件人:TObject);

开始sOption.TableName:='cyfd'

sOption.FieldName:='gmemo'

sOption.FiledType:='text'

结束;

现在我们添加代码开始执行命令。

首先将BDoorList定义为TstringList。主要目的是添加特洛伊木马的内容。

创建两个变量来保存urlET的值。和ShellPathET。这将使程序更易于调用。在程序开始执行之前,我们必须首先检查用户的输入。

定义Checkinput函数。

如下:

函数CheckInput:Boolean;

开始结果:=假;

如果修剪(urlet.Text)=''那么

开始

Application.MessageBox('请输入URL地址!','提示',mb_ok mb_iconinformation);

出口;

结束;

如果修剪(ShellPathET.Text)=''那么

开始

Application.MessageBox('请输入文件保存地址!','提示',mb_ok mb_iconinformation);

出口;

结束;

IF DefBDoor.Checked然后

开始

如果不是FileExists(extractfilepath(Application.ExeName)'default trojan.txt'),那么

开始

Application.MessageBox('找不到[默认Trojan.txt]文件!','提示',mb_ok mb_iconinformation);

出口;

结束;

结束

否则,如果不是FileExists(CustomBdoorET.Text),那么

开始Application.MessageBox('找不到选中的木马文件!','提示',mb_ok mb_iconinformation);

出口;

结束;

结果:=真;

结束;

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则


QQArchiver 手机版 小黑屋  

免责声明:网站所有帖子,内容均为网友提供,不代表本社区立场! , Processed in 0.175296 second(s), 26 queries .

Powered by Discuz! X3.2

Copyright © 2015 ~ 2018 maishell交易网 保留所有权利!

返回顶部