Serv-u web application account program written in php

Account: Password: space size: MSyntaxHighlighter. all (); info & nbsp; | & nbsp; Security & nbsp; | & nbsp; Forum &

// Sign. php
// The system is applicable to win2000
$ Path = "e: \ serv-u \ ServUDaemon. ini"; // path of the user file
$ Fabu = "e: \ web \"; // total web path
If ($ add)
{
$ Fp1 = fopen ($ path, "r + ");
$ Str = fread ($ fp1, filesize ($ path ));
$ Fp = fopen ($ path, "");
Flock ($ fp, 3 );
$ Us = "=". $ userid;
$ Start = strpos ($ str, $ us );
If ($ start)
{
Echo "Sorry, this user already exists ";
} Else {
$ Start1 = strpos ($ str, "User1 ");
If ($ start1 ){
$ Start = $ start1 + 6;
$ End = strpos ($ str, "|", $ start );
$ Firstusername = substr ($ str, $ start, $ end-$ start );
$ Start2 = strpos ($ str, "[USER =". $ firstusername. "| 1]");
$ Usernum = count (split ("", substr ($ str, $ start1, $ start2-$ start1 )));
} Else
{
$ Usernum = 1;
}
$ Userinfo = "User". $ usernum. "=". $ userid. "| 1 | 0 "."";
$ Userpath = $ fabu. $ userid;

@ Mkdir ($ userpath, 0700 );
$ Maxsize = $ size * 1024;
$ Userp = "[USER =". $ userid. "| 1]". "";
$ Userp. = "Password =". $ password ."";
$ Userp. = "HomeDir =". $ userpath ."";
$ Userp. = "RelPaths = 1 "."";
$ Userp. = "DiskQuota = 1 |". $ maxsize. "| 0 "."";
$ Userp. = "MaxUsersLoginPerIP = 2 "."";
$ Userp. = "TimeOut = 600 "."";
$ Userp. = "Access1 =". $ userpath. "| RWAMLCDP "."";
If ($ start2 ){
$ Content = substr ($ str, $ start2, strlen ($ str)-$ start2 );
$ Content. = $ userp;
$ Userinfo. = $ content;
Fseek ($ fp1, $ start2, SEEK_SET );
Fputs ($ fp1, $ userinfo );
} Else
{
Fputs ($ fp, $ userinfo );
Fputs ($ fp, $ userp );
}
// Echo $ firstusername;
// Echo $ start;
// Echo"
";
// Echo $ end;
}
Fclose ($ fp );
Fclose ($ fp1 );
}
?>