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

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

 

PHP:

#include <conio.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <time.h>
#include <string.h>

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);
    return 1;
}

int getmassive (FILE* source)
{
    char str[1024];
    if (!fgets(str, 1023, source))
    {
        return 0;
    }
    else
    {
        uin= atoi(str);
    }
    write();
    return 1;
}

void main()
{
    FILE* source = fopen ("source.txt", "r");
    while (getmassive (source));
    fclose (source);
}

 

Code:

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

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