Подскажите Generator листов

[sexba]

Нужен генератор который генерирует списки вида uin;uin ...

В гугле ничего не нашел... UiN PaSS GeN не предлогайте, он у меня виснет...

[alkos]

#include

#include

#include

#include

#include

#include

int uin=0;

int write()

{

FILE*file=fopen("out.txt","a");

char buff[1024]="";

sprintf(buff,"%i;%i\n",uin,uin);

fputs(buff,file);

fclose(file);

return1;

}

int getmassive(FILE*source)

{

char str[1024];

if (!fgets(str,1023,source))

{

return0;

}

else

{

uin=atoi(str);

}

write();

return1;

}

void main()

{

FILE*source=fopen("source.txt","r");

while (getmassive(source));

fclose(source);

}

[Unknown]

Open "source.txt" For Append As #1
For i = 100000 To 999999
Print #1, i & ";" & i
Next i
Close #1

сохранить с расширением .vbs и запустить.