Флуд V 13.0

!biggrin!

 

кто в батлу со скаййпом?

 

и тебе ^^

 

мне в лс можно?)

 

посоны вы в бф3 через ориджин шпилите?)

 

вы ебанулись со своими пони?
как педики, чесслово

 

Нет через SKIDROW

 

Код:

//---------------------------------------------------------------------------
TForm1 *Form1;
int h, m, s, sub_h, sub_m, sub_s,bad,th,Error0,mail,stop=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
unsigned __stdcall ThisrtThreadFunc( void* Param )
{
TStringList *Yaru1= new TStringList;
 Yaru1->Text=Yaru->Text;
 int p;
 String page;
int Con=StrToInt(Form1->sEdit1->Text);
TIdHTTP *https18 = new TIdHTTP(0);
https18->AllowCookies=true;
 https18->HandleRedirects=true;

for (int i = 0; i < Yaru1->Count/Con; i++) {
 try{
 p=0 ;
 String Mail=https18->Get(Yaru1->Strings[i]+"profile_friends_friendsmutual.xml?");  // Парсинг
int pozi1=Mail.Pos("У меня")+7;
int pozi2;
if(Mail.Pos("взаимных дру")>0){
pozi2=Mail.Pos("взаимных дру")-1;
}
else{
pozi2=Mail.Pos("взаимный дру")-1;
}
if(Mail.Pos("не хочет никому показывать")||Mail.Pos("показывает своих друзей только друзьям" )>0){
bad=bad++;
}
else{
page=Mail.SubString(pozi1,pozi2-pozi1);
if(pozi2>2){
p=StrToInt(page)/20;
}
for(int b = 1; b < p; b++){
if(stop==1){
th=th++;
_endthreadex( 0 );
return 0;}
Mail=https18->Get(Yaru1->Strings[i]+"profile_friends_friendsmutual.xml?p="+IntToStr(b));  // Парсинг
if(pozi1>60){                              // Парсинг
if(pozi2>60){
for(int m = 0; m < 20; m++){
int pos1=Mail.Pos("/></a></div></td><td><b class=")+48;
int pos2=Mail.Pos("b-user__link")-9;
if(pos1>60){
if(pos2>60){
String Sex;                                     // Парсинг
String link=Mail.SubString(pos1,pos2-pos1);
if(Form1->sCheckBox7->State==cbChecked){
pos1=Mail.Pos("b-yaru-widget-user-info__sex_type");
pos2=Mail.Pos("b-yaru-widget-user-info__sex_type")+40;
Sex= Mail.SubString(pos1,pos2-pos1);
if(Sex.Pos("female")>0){
Sex="j";
}
else{
    if(Sex.Pos("no")>0){
    Sex="No";
    }
    else{
     Sex="M";
    }
}
}                                 // Парсинг
Mail.Delete(1,pos2+40);                            // Парс
String Yandex=link;
Yaru1->Add(Yandex);                           // Парсинг
link=link.Delete(1,7);
link=link.SubString(1,link.Pos(".ya")-1);
if(Form1->sCheckBox7->State==cbChecked && Form1->sComboBox1->ItemIndex==0 && Sex=="M"){
String failpatch1=ExtractFilePath(Application->ExeName)+"/mails.txt",save1;
FILE *R = fopen(failpatch1.c_str(),"a");
save1=link+"@yandex.ru"+"\n";
	char *bubu = save1.c_str();
	if (R) fwrite(bubu,save1.Length(),1,R);
	fclose(R);
        mail=mail++;
}
if(Form1->sCheckBox7->State==cbChecked && Form1->sComboBox1->ItemIndex==1 && Sex=="j"){
String failpatch1=ExtractFilePath(Application->ExeName)+"/mails.txt",save1;
FILE *R = fopen(failpatch1.c_str(),"a");
save1=link+"@yandex.ru"+"\n";
	char *bubu = save1.c_str();
	if (R) fwrite(bubu,save1.Length(),1,R);
	fclose(R);
        mail=mail++;
}
if(Form1->sCheckBox7->State==cbUnchecked){
String failpatch1=ExtractFilePath(Application->ExeName)+"/mails.txt",save1;
FILE *R = fopen(failpatch1.c_str(),"a");
save1=link+"@yandex.ru"+"\n";
	char *bubu = save1.c_str();
	if (R) fwrite(bubu,save1.Length(),1,R);
	fclose(R);
        mail=mail++;
}
}
else{bad=bad++;}
}
else{bad=bad++;}
}
}
else{bad=bad++;}
}
else{bad=bad++;}

	}
}
}
catch(...){Error0=Error0++;}
}
th=th++;
	_endthreadex( 0 );
	return 0;
}
unsigned __stdcall SecondThreadFunc( void* Param )
{
TStringList *Yaru1= new TStringList;
 Yaru1->Text=Yaru->Text;
String page;
int p=0;
const int iParam = (int)Param;
int Con=StrToInt(Form1->sEdit1->Text);
TIdHTTP *https18 = new TIdHTTP(0);
https18->AllowCookies=true;
https18->HandleRedirects=true;
for(int g = Yaru1->Count/Con*iParam; g < Yaru1->Count/Con*(iParam+1); g++){
 try{
 p=0 ;
 String Mail=https18->Get(Yaru1->Strings[g]+"profile_friends_friendsmutual.xml?");  // Парсинг
int pozi1=Mail.Pos("У меня")+7;
int pozi2;
if(Mail.Pos("взаимных дру")>0){
pozi2=Mail.Pos("взаимных дру")-1;
}
else{
pozi2=Mail.Pos("взаимный дру")-1;
}
if(Mail.Pos("не хочет никому показывать")||Mail.Pos("показывает своих друзей только друзьям" )>0){
bad=bad++;
}
else{
page=Mail.SubString(pozi1,pozi2-pozi1);
if(pozi2>2){
p=StrToInt(page)/20;
}
for(int b = 1; b < p; b++){
if(stop==1){
th=th++;
_endthreadex( 0 );
return 0;}
Mail=https18->Get(Yaru1->Strings[g]+"profile_friends_friendsmutual.xml?p="+IntToStr(b));  // Парсинг
if(pozi1>60){                              // Парсинг
if(pozi2>60){
for(int m = 0; m < 20; m++){
int pos1=Mail.Pos("/></a></div></td><td><b class=")+48;
int pos2=Mail.Pos("b-user__link")-9;
if(pos1>60){
if(pos2>60){
String Sex;                                     // Парсинг
String link=Mail.SubString(pos1,pos2-pos1);
if(Form1->sCheckBox7->State==cbChecked){
pos1=Mail.Pos("b-yaru-widget-user-info__sex_type");
pos2=Mail.Pos("b-yaru-widget-user-info__sex_type")+40;
Sex= Mail.SubString(pos1,pos2-pos1);
if(Sex.Pos("female")>0){
Sex="j";
}
else{
    if(Sex.Pos("no")>0){
    Sex="No";
    }
    else{
     Sex="M";
    }
}
}                                 // Парсинг
Mail.Delete(1,pos2+40);                            // Парс
String Yandex=link;
Yaru1->Add(Yandex);                           // Парсинг
link=link.Delete(1,7);
link=link.SubString(1,link.Pos(".ya")-1);
if(Form1->sCheckBox7->State==cbChecked && Form1->sComboBox1->ItemIndex==0 && Sex=="M"){
String failpatch1=ExtractFilePath(Application->ExeName)+"/mails.txt",save1;
FILE *R = fopen(failpatch1.c_str(),"a");
save1=link+"@yandex.ru"+"\n";
	char *bubu = save1.c_str();
	if (R) fwrite(bubu,save1.Length(),1,R);
	fclose(R);
        mail=mail++;
}
if(Form1->sCheckBox7->State==cbChecked && Form1->sComboBox1->ItemIndex==1 && Sex=="j"){
String failpatch1=ExtractFilePath(Application->ExeName)+"/mails.txt",save1;
FILE *R = fopen(failpatch1.c_str(),"a");
save1=link+"@yandex.ru"+"\n";
	char *bubu = save1.c_str();
	if (R) fwrite(bubu,save1.Length(),1,R);
	fclose(R);
        mail=mail++;
}
if(Form1->sCheckBox7->State==cbUnchecked){
String failpatch1=ExtractFilePath(Application->ExeName)+"/mails.txt",save1;
FILE *R = fopen(failpatch1.c_str(),"a");
save1=link+"@yandex.ru"+"\n";
	char *bubu = save1.c_str();
	if (R) fwrite(bubu,save1.Length(),1,R);
	fclose(R);
        mail=mail++;
}
}
else{bad=bad++;}
}
else{bad=bad++;}
}
}
else{bad=bad++;}
}
else{bad=bad++;}

	}
}
}
catch(...){Error0=Error0++;}
}
th=th++;
	_endthreadex( 0 );
	return 0;
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
	   sub_s++;
		if(sub_s > 9)
        {
                sub_s = 0;
                s++;
                if(s > 5)
                {
                        s = 0;
                        sub_m++;
                }
        }
        if ( sub_m > 9 )
        {
                sub_m = 0;
				m++;                                     // ТАймер времени на форме
                if ( m > 5 )
                {
                        m = 0;
                        sub_h++;
				}
     }
     if ( (sub_h > 9) || (sub_h > 3 && h == 2) )
     {
        sub_h = 0;
        h++;
                if ( h > 2 )
				{
						h = 0;  sub_h = 0;
						m = 0;  sub_m = 0;
					s = 0;  sub_s = 0;
				}
	 }
	 sLabel2->Caption ="Time "+String(h) + String(sub_h) + ":" +
	String(m) + String(sub_m) + ":" + String(s) + String(sub_s);
	  sLabel1->Caption="BadAccs: "+IntToStr(bad);       // Вывод статистики
	  sLabel7->Caption="Error: "+IntToStr(Error0);
          sLabel4->Caption="ParsAccs: "+IntToStr(mail);
	if(th==StrToInt(Form1->sEdit1->Text)){
  Form1->Timer1->Enabled=false;
  if(stop==1){
  try{
  TStringList *List=new TStringList;
List->Duplicates=dupIgnore;
List->Sorted=true;
String k;
List->LoadFromFile(ExtractFilePath(Application->ExeName)+"/mails.txt");
List->SaveToFile(ExtractFilePath(Application->ExeName)+"/mails.txt");
int g;
g = mail-List->Count;
k=IntToStr(g) ;
ShowMessage("Дубликатов удалено "+k+" из файла mails.txt");
delete List;
   ShowMessage("Поиск остановлен!");
  Form1->sBitBtn1->Enabled=true;
  stop=0;
  }
  catch(...){;}
  }
  else{
	  ShowMessage("Поиск завершен!");
  }
					  }
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete  AMyList,Yaru;  // удаление
}void __fastcall TForm1::sBitBtn1Click(TObject *Sender)
{
sOpenDialog1->Title="Открытие файла типа login@domen или login@domen;pass";
 try{
 AMyList->Clear();
 Yaru->Clear();
  if(Form1->sOpenDialog1->Execute()){
	   AMyList->LoadFromFile(Form1->sOpenDialog1->FileName);
}
   if(AMyList->Count==0)ShowMessage("Файл Пустой!");
   else
   Form1->sBitBtn2->Enabled=true;
   for(int i = 0; i < AMyList->Count; i++){
	String change=AMyList->Strings[i];
  int pos1=change.Pos("@yandex.ru");
   change.Delete(pos1,change.Length());   // Преобразование почт в ссылки @yandex.ru в   ya.ru
 Yaru->Add("http://"+change+".ya.ru/");
   }
  }
  catch(...){ShowMessage("Ошибка переоткройте файл!");}
sLabel3->Caption="LoadAccs: "+IntToStr(AMyList->Count);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::sBitBtn2Click(TObject *Sender)
{
try{
Form1->sBitBtn3->Enabled=true;
Error0=0;
bad=0;
mail=0;
th=0;
h=0, m=0, s=0, sub_h=0, sub_m=0, sub_s=0;
_beginthreadex( NULL, 0, &ThisrtThreadFunc,(void *)0, 0,0);  // 0 поток
 for (int i = 1; i < StrToInt(Form1->sEdit1->Text); i++) {//в  Edit1 количество потоков
  _beginthreadex( NULL, 0, &SecondThreadFunc,(void *)i, 0,0);
  }
  Form1->Timer1->Enabled=true;
 }
 catch(...){ShowError("Критическая ошибка перезапустите программу");}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn3Click(TObject *Sender)
{
stop=1;
Form1->sBitBtn3->Enabled=false;
Form1->sBitBtn2->Enabled=false;
Form1->sBitBtn1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn4Click(TObject *Sender)
{
sLabel9->Visible=true;

TStringList *Mails= new TStringList;
TStringList *Logins= new TStringList;
TStringList *brutforce= new TStringList;
Mails->Text=AMyList->Text;
for (int v = 0; v < Mails->Count ; v++) {
Logins->Add(Mails->Strings[v].SubString(1,Mails->Strings[v].Pos("@")-1));
}
for (int i = 0; i < Mails->Count ; i++) {
sGauge1->MaxValue=Mails->Count;
sGauge1->Progress=i;
if(Form1->sCheckBox3->State==cbChecked){
if(Mails->Strings[i].Length()>1){
brutforce->Add(Mails->Strings[i]+";"+Logins->Strings[i]);
}
}
 if(Form1->sCheckBox4->State==cbChecked){
try{
int hislo=0;
String s=Logins->Strings[i];
char c;
for (int i =1; i <= s.Length(); i++) {
c=s[i];                                 // пароль как логин без цифр
if(isdigit(c)){
hislo=hislo++;
s.Delete(i,1);
}
for (int i =1; i <= s.Length(); i++) {
c=s[i];
if(isdigit(c)){
hislo=hislo++;
s.Delete(i,1);
}
}
}
if(hislo>0){
if(s.Length()>5){
if(Mails->Strings[i].Length()>1){
brutforce->Add(Mails->Strings[i]+";"+s);
}
        }
}
}
catch(...){}
}
if(Form1->sCheckBox5->State==cbChecked){
try{
int q,q1;
q=Logins->Strings[i].Pos(".");q1=Logins->Strings[i].Pos("-");
if(q>0 || q1>0){
String s=Logins->Strings[i];
char c;
for (int i =1; i <= s.Length(); i++) {
c=s[i];
if(isalnum(c)){                              // пароль как логин без знаков
}
else{
s.Delete(i,1);
}
for (int i =1; i <= s.Length(); i++) {
c=s[i];
if(isalnum(c)){
}
else{
s.Delete(i,1);
}
}
}
if(s.Length()>5){
if(Mails->Strings[i].Length()>1){
brutforce->Add(Mails->Strings[i]+";"+s);
}
}
}
}
catch(...){}
}
if(Form1->sCheckBox6->State==cbChecked){
try{
int q,q1;
q=Logins->Strings[i].Pos(".");q1=Logins->Strings[i].Pos("-");
if(q>0 || q1>0){
String s;
int hislo=0;
s=Logins->Strings[i];
char c;
for (int i =1; i <= s.Length(); i++) {
c=s[i];
if(isdigit(c)){
hislo=hislo++;
s.Delete(i,1);
}
for (int i =1; i <= s.Length(); i++) {
c=s[i];
if(isdigit(c)){
hislo=hislo++;
s.Delete(i,1);
}
}
}
if(hislo>0){
char c;
for (int i =1; i <= s.Length(); i++) {
c=s[i];
if(isalnum(c)){
}
else{
s.Delete(i,1);
}
for (int i =1; i <= s.Length(); i++) {
c=s[i];
if(isalnum(c)){
}
else{
s.Delete(i,1);
}
}
}
if(s.Length()>5){
if(Mails->Strings[i].Length()>1){
brutforce->Add(Mails->Strings[i]+";"+s);
}
}
}
}
}
catch(...){;}
}
if(Form1->sCheckBox2->State==cbChecked){
for (int k =0; k < Password->Count; k++) {
if(Mails->Strings[i].Length()>1){
brutforce->Add(Mails->Strings[i]+";"+Password->Strings[k]);
}
}
}
}
sGauge1->Progress=sGauge1->MaxValue;
brutforce->Sorted=true;
brutforce->Duplicates=dupIgnore;
brutforce->SaveToFile(ExtractFilePath(Application->ExeName)+"/bf.txt");
sLabel9->Caption="Сгенерировано: "+IntToStr(brutforce->Count);
}
void __fastcall TForm1::sBitBtn5Click(TObject *Sender)
{
  AMyList->Clear();
   if(Form1->sOpenDialog1->Execute()){
	   AMyList->LoadFromFile(Form1->sOpenDialog1->FileName);
}
AMyList->Sorted=true;
AMyList->Duplicates=dupIgnore;
Form1->sBitBtn4->Enabled=true;
sLabel6->Visible=true;
sLabel6->Caption="Загружено: "+IntToStr(AMyList->Count);
}
void __fastcall TForm1::sCheckBox2Click(TObject *Sender)
{
 if(Form1->sCheckBox2->State==cbChecked){
   if(Form1->sOpenDialog1->Execute()){
	   Password->LoadFromFile(Form1->sOpenDialog1->FileName);
}
sLabel10->Visible=true;
sLabel10->Caption="Паролей: "+IntToStr(Password->Count);
   }
}
void __fastcall TForm1::sCheckBox7Click(TObject *Sender)
{
 if(Form1->sCheckBox7->State==cbChecked){
 Form1->sComboBox1->Enabled=true;
 }
 else{
 Form1->sComboBox1->Enabled=false;
 }
}

исходник

 

Посонтре, а блек лист когда-нибудь читают? Ато есть тут один кадр с репой 200+, кинул меня на 35 рублей :D

Пони учат добру и дружелюбомагии!

 

я через запускатор,иногда через стим...

 

На смотри, у них в батллоге своя темка http://battlelog.battlefield.com/bf3/ru/forum/threadview/2832654489894096593/
прошлая удалена, в ней около 200к сообщений было