program Project1;

{$APPTYPE CONSOLE}

uses
windows;

var
I: Integer;
q,z: int64;
pw: string;
begin
  SetConsoleTitle('#### I-C00L Generator ####');
  write('From UIN: ');
  readln(q);
  write('To UIN:   ');
  readln(z);
  write('Password: ');
  readln(pw);
  writeln('Start Generation...');
  AssignFile(output,'source.txt');
  Rewrite(Output);
  for i := (q) to (z) do
  begin
  writeln(i,';',pw);
  end;
end.

On Error resume next
Set objShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objOutFile = fso.CreateTextFile("source.txt")
Set objTextFile = fso.OpenTextFile("list.txt",1)
Set objOutFile = fso.OpenTextFile("source.txt",2)
password = InputBox("Введите пароль:")
Do Until objTextFile.AtEndOfStream
uin = objTextFile.Readline
objOutFile.WriteLine uin & ";" & password
Loop
objTextFile.close
objOutFile.close
msgbox "Generation Complete"