Информация сайта компьютерной безопасности <<< Hack Style >>> КАК найти E-mail в фаиле ?! это достаточно просто : входное значение f - путь к фаилу BOOL ScanFile(char *f) { FILE *file=fopen(f,"r"); //открываем фаил только на чтение unsigned long startpos=0; //переменная начала считывания фаила if (file == NULL) return FALSE; // а вдруг мы не передали входное значение ? while(1) { //вечный цикл char buf[2]; memset(buf,0,2); fseek(file,startpos,SEEK_SET);//переход к началу фаила fread(buf,1,1,file);//считываем 1 символ startpos++;//переход на следующий символ if (feof(file)) break; //если это символ конца то прекращаем работы if (*buf == '@') { //ну а если сабака ... char email[256],c,d; unsigned long pos=0; while(1) {//опять ?! ... вечный цикл unsigned long oldpos=ftell(file);//текущяя позиция в фаиле fseek(file,-1,SEEK_CUR);//к предведущему символу c=fgetc(file); if (!isgood(c)) break; //если символ несоответсвует записи мыла то заканчиваем fseek(file,-1,SEEK_CUR);//к предведущему символу if (oldpos == ftell(file)) break; } for (pos=0,c=0,d=0;pos<255;pos++) { email[pos]=fgetc(file);//начиная с текущей позиции производится запись в email if (email[pos] == '.') c++; if (email[pos] == '@') d++; if (!isgood(email[pos])) break; } email[pos]=0; if (c == 0 || d != 1) continue;//если в адресе нет "." и "@" то продолжить if (email[strlen(email)-1] == '.') email[strlen(email)-1]=0;//проверка - не один ли символ после "." if (*email == '@' || *email == '.' || !*email) continue;//далее проверки на правильность for (pos=0,c=0;pos= 'a' && a <= 'z') return 1; if (a >= 'A' && a <= 'Z') return 1; if (a >= '0' && a <= '9') return 1; if (a == '.' || a == '@' || a == '^' || a == '-' || a == '_') return 1; return 0; } int islisten(char a) { if (a == '.') return 1; if (a >= 'a' && a <= 'z') return 1; if (a >= 'A' && a <= 'Z') return 1; return 0; } ну вот и все... Все права защищены ~< KAPMAH >~ www.HackStyle.narod.ru