الإجراء tform1.ftpanalysis (s: string ؛ var username ، كلمة المرور ، IP ، اسم الملف: string ؛ var dirlist: tstringList) ؛
var
أنا ، ي: عدد صحيح ؛
Strauthorization ، Straddr ، Strdirfile: String ؛ // معلومات التفويض
يبدأ
اسم المستخدم: = "مجهول" ؛
كلمة المرور: = '[email protected]' ؛
IP: = '' ؛
Straddr: = نسخة (S ، 7 ، طول (ق) -6) ؛ // احصل على الجزء بعد FTP: //
// يجب أن يكون تنسيق S مشابه لـ FTP: // Rec: [email protected]/20050418/abcdef.vox ، أو ftp: //192.168.76.11/...
i: = pos ('@' ، s) ؛
إذا (أنا> 0) ثم
يبدأ
struthorization: = copy (s ، 7 ، i-7) ؛
J: = pos (':' ، struthorization) ؛
إذا (j <1) ثم
مخرج؛
اسم المستخدم: = نسخة (struthorization ، 1 ، J-1) ؛
كلمة المرور: = نسخة (struthorization ، j+1 ، الطول (struthorization) -j) ؛
نهاية ؛
i: = pos ('@' ، straddr) ؛
J: = pos ('/' ، straddr) ؛
إذا (j> 0) ثم
IP: = نسخة (Straddr ، i+1 ، Ji-1) ؛ // الحصول على عنوان IP
strdirfile: = نسخة (straddr ، j+1 ، الطول (straddr) -j) ؛
dirList.delimiter: = '/' ؛
dirlist.delimitedText: = Strdirfile ؛ // Get Get List
اسم الملف: = DirList [dirlist.count-1] ؛ // الجزء الأخير هو اسم الملف
DirList.Delete (DirList.count-1) ؛
نهاية ؛