我有一段,用API发信的代码,可是帐号和密码加了密,哪位高手可以改成直接输入帐号和密码?

fedex2 2003-08-30 03:21:57
unit SendMail;

interface
uses winsock,Reg,windows,Other;
procedure SendEMail;

implementation
const CRLF=#13#10;

function LocalIP:string;
type TaPInAddr=array [0..10] of PInAddr;
PaPInAddr=^TaPInAddr;
var phe:PHostEnt;
pptr:PaPInAddr;
Buffer:array [0..63] of char;
I:Integer;
GInitData:TWSADATA;
begin
WSAStartup($101,GInitData);
Result:='';
GetHostName(Buffer,SizeOf(Buffer));
phe:=GetHostByName(buffer);
if phe=nil then Exit;
pptr:=PaPInAddr(Phe^.h_addr_list);
I:=0;
while pptr^[I]<>nil do begin
result:=StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
End;


function StartNet(host:string;port:integer;var sock:integer):Boolean;
var
wsadata:twsadata;
FSocket:integer;
SockAddrIn:TSockAddrIn;
err:integer;
begin
err:=WSAStartup($0101,WSAData);
FSocket:=socket(PF_INET,SOCK_STREAM,IPPROTO_IP);
if FSocket=invalid_socket then begin
Result:=False;
Exit;
end;
SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(host));
SockAddrIn.sin_family := PF_INET;
SockAddrIn.sin_port :=htons(port);
err:=connect(FSocket,SockAddrIn, SizeOf(SockAddrIn));
if err=0 then begin
sock:=FSocket;
Result:=True;
end else Result:=False;
end;

procedure StopNet(Fsocket:integer);
var
err:integer;
begin
err:=closesocket(FSocket);
err:=WSACleanup;
end;

function SendData(FSocket:integer;SendStr:string):integer;
var
DataBuf:array[0..4096] of char;
err:integer;
begin
strcopy(DataBuf,pchar(SendStr));
err:=send(FSocket,DataBuf,strlen(DataBuf),MSG_DONTROUTE);
Result:=err;
end;

function GetData(FSocket:integer):String;
const MaxSize=1024;
var
DataBuf:array[0..MaxSize] of char;
err:integer;
begin
err:=recv(FSocket,DataBuf,MaxSize,0);
Result:=Strpas(DataBuf);
end;

procedure SendEMail;
var FSocket,res:integer;
Subject,MailText,SendBody:String;
Tomail:String;
begin
Subject:=Getmailbody(MailText);
if (Subject='') or (LocalIP='127.0.0.1') then Exit;
if StartNet('202.102.192.111',25,FSocket) then begin
SendData(FSocket,'EHLO 202.102.192.111'+CRLF);
getdata(FSocket);

SendData(FSocket,'AUTH LOGIN'+CRLF);
getdata(FSocket);

SendData(FSocket,
chr(85)+chr(50)+chr(86)+chr(117)+chr(90)+chr(71)+chr(49)+chr(112)+chr(99)+chr(103)+chr(61)+chr(61)
+CRLF);
getdata(FSocket);

SendData(FSocket,
chr(84)+chr(71)+chr(86)+chr(110)+chr(90)+chr(87)+chr(53)+chr(107)
+CRLF);
getdata(FSocket);

SendData(FSocket,'MAIL FROM: <xxx@xxx.com'+CRLF);
getdata(FSocket);

SendData(FSocket,'RCPT TO: <xxx@xxx.com'>'+CRLF);
getdata(FSocket);

SendData(FSocket,'DATA'+CRLF);
getdata(FSocket);

SendBody:='From:Mir <xxx@xxx.com'>'+CRLF
+'To: <xxx@xxx.com'>'+CRLF
+'Subject:hello'+Subject+CRLF
+CRLF
+MailText+CRLF
+'.'+CRLF;
res:=SendData(FSocket,SendBody);
getdata(FSocket);

SendData(FSocket,'QUIT'+CRLF);
getdata(FSocket);

StopNet(Fsocket);
end;
end;


End.


哪位能改成,在EDIT1,EDIT2 里输入帐号和密码后,发信的软件啊?
...全文
27 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
这是一个项目工程实现全过程的细致讲解,按功能划分成单元,每一个单元逐一完成,老师细致的讲解和分析,学员和老师同步完成这个项目工程。这个项目工程包含VR、数据库、注册用户、声望系统、拍卖行系统等等,还有充值系统,如果你想成为独立开发者,学习之后,你就可以单独的制作一款带数据库的游戏,并带有充值系统进行发布;如果你是初学者,由于课程是手把手的教学,初学者完全可以通过边补学边跟老师一起做,从而实现自我的前进;如果你有一定的基础,这个课程应该是你进一步前进的好助手。 该课程采用的是全程辅导,在实际的学习过程中,如果所做的游戏工程出现BUG,请将工程上传至百度网盘,然后再发分享给我,我将进行调试,解决BUG并讲解出现的原因。 本课程中的游戏项目采用新的Unity3D 2017版本制作。 第1章:开篇 (免费)       1-1 教学大纲的介绍(免费)       1-2 游戏的演示(免费)       1-3 需要准备的软件及简单介绍(免费)       1-4 需要的VR装备介绍、相应的VR开发组件介绍(免费) 第2章:首页场景       2-1 创建游戏和资源的导入       2-2 布放资源,入汽泡       2-3 鱼的预置体制作       2-4 让鱼随机的游起来(一)       2-5 让鱼随机的游起来(二)       2-6 输出PC端,总结 第3章:用户的注册和登录       3-1 UGUI的简单介绍       3-2 制作登录UI       3-3 制作注册UI       3-4 UI框的打开和关闭       3-5 几个UI框之间的交互       3-6 BMOB数据库简介       3-7 用户注册功能的实现(一)       3-8 用户注册功能的实现(二)       3-9 用户登陆功能的实现(一)       3-10 用户登陆功能的实现(二)       3-11 记住功能的实现       3-12 忘记功能的实现       3-13 本单元的优化和总结 第4章:VR房间场景       4-1 VR组件的介绍       4-2 入房间的全景图并制作       4-3 战斗NPC和对应的UI制作       4-4 UI的交互       4-5 单元小结 第5章:VR捕鱼场景       5-1 场景资源导入       5-2 布放资源和放入随机游的鱼       5-3 鱼枪制作       5-4 鱼枪发射子弹       5-5 子弹碰撞产生渔网       5-6 渔网的制作和鱼的死亡       5-7 单元小结 第6章:刷鱼系统       6-1 鱼的制作       6-2 鱼的死亡和再生       6-3 多种鱼的制作       6-4 保持海中鱼的数量       6-5 鱼潮的来临       6-6 计时器的制作       6-7 单元小结 第7章:武器系统       7-1 武器属性的设计       7-2 第一种武器的制作       7-3 多做几种武器       7-4 武器的切换       7-5 发射相应的子弹       7-6 武器库的建立       7-7 武器库的UI       7-8 武器的升级(一)       7-9 武器的升级(二)       7-10 武器的升级(三)       7-11 单元小结 第8章:角色系统       8-1 角色的设计       8-2 制作相应的UI       8-3 和数据库的相连       8-4 金币UI的显示       8-5 金币的使用       8-6 人物的升级       8-7 单元小结 第9章:物品系统       9-1 物品系统的设计       9-2 物品栏npc建立       9-3 物品栏UI的制作       9-4 物品栏UI的初步交互       9-5 物品的制作       9-6 数据库的连接       9-7 物品的获得       9-8 物品的显示       9-9 物品按类型显示       9-10 物品的叠       9-11 物品的出售       9-12 物品的使用(一)       9-13 物品的使用(二)       9-14 物品的使用(三)       9-15 物品的使用(四)       9-16 优化(一)       9-17 优化(二)       9-18 单元小结 第10章:任务系统       10-1 任务系统的管理       10-2 任务系统的数据库管理       10-3 任务系统UI的制作       10-4 任务的浏览       10-5 任务的接受       10-6 任务的完成       10-7 任务的报酬领取       10-8 任务跟踪显示       10-9 单元小结 第11章:成就系统       11-1 成就系统的设计       11-2 成就系统UI的制作       11-3 设计第一个成就       11-4 成就的浏览       11-5 第一个成就的完成       11-6 设计第二个成就       11-7 第二个成就的完成       11-8 单元小结 第12章:声望系统       12-1 声望系统的总体设计       12-2 声望系统的UI制作       12-3 数据库的制作       12-4 完成任务提升声望       12-5 声望的5个阶段不同的状态       12-6 每个阶段的奖励       12-7 单元小结 第13章:补给系统       13-1 补给系统的设计       13-2 资源的导入       13-3 补给箱的打开       13-4 箱子打开的UI       13-5 拾取相应的物品       13-6 潜水箱的入       13-7 房间潜水箱和物品箱之间的关系       13-8 数据库的设计和制作       13-9 单元小结 第14章:签到有礼系统       14-1 签到有礼的总体设计       14-2 UI的制作       14-3 数据库的制作       14-4 签到有礼代码的实现       14-5 单元小结 第15章:邮件系统       15-1 邮件系统的设计       15-2 UI的制作       15-3 数据库的制作       15-4 UI的一些简单交互       15-5 发信       15-6 收信       15-7 信件的删除       15-8 信件的已读和未读       15-9 单元小结 第16章:拍卖行系统       16-1 拍卖行系统的总体设计       16-2 UI的制作(一)       16-3 UI的制作(二)       16-4 数据库的制作       16-5 拍卖物品的浏览       16-6 拍卖物品的发布       16-7 拍卖的过程       16-8 各自得到自己的东西       16-9 单元小结 第17章:充值系统       17-1 充值系统实现的过程       17-2 充值UI界面       17-3 准备相应的资料       17-4 代码的具体实现       17-5 单元小结 第18章:上篇的尾章        18-1 场景之间的连接        18-2 上篇的总结 第19章:局域网Unet       19-1 下篇课程介绍       19-2 Network Manager       19-3 PlayerPrefab预制体       19-4 Player的移动       19-5 Transform同步       19-6 主角产生炸弹       19-7 炸弹同步到客户端       19-8 产生爆炸的效果       19-9 炸弹爆炸       19-10 屏幕震动和四个方向爆炸       19-11 添血量控制       19-12 给人物添血条显示       19-13 同步血量和血条       19-14 死亡和重生       19-15 客户端都震屏       19-16 创建墙的Prefab       19-17 土墙的Prefab       19-18 角色出生地       19-19 炸弹威力提升       19-20 控制角色的生成和重生       19-21 单元小结 第20章:局域网环境       20-1 入Network Manager       20-2 PlayerPrefab预制体       20-3 OnStartLocalPlayer       20-4 NetworkStartPosition       20-5 输出看看效果 第21章:人物       21-1 更换武器       21-2  客户端同步更换武器       21-3 发射子弹       21-4 子弹同步到客户端       21-5 渔网的同步 第22章:鱼类       22-1 产生的鱼同步到客户端       22-2  渔网的伤害       22-3 客户端得到奖励       22-4 计时器的同步       22-5 功能完善       22-6 功能完善(二) 第23章:局域网列表       23-1 局域网UI列表       23-2  UI的交互功能       23-3  去掉NetHub       23-4  创建服务器       23-5  服务器接收广播       23-6  客户端发送广播包       23-7  更新服务器列表       23-8  连接服务器       23-9  课程总结

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧