Немного переделал код для бейсика... потому что дальше "c" вообще нет камер, сначала буквы "с" уже их очень мало.
OPEN "list.txt" FOR OUTPUT AS #1
FOR n = 1 TO 10000
a = (INT(RND * 3)) + 97 : b = (INT(RND * 26)) + 97
q = (INT(RND * 10)) + 48 : w = (INT(RND * 10)) + 48
e = (INT(RND * 10)) + 48 : r = (INT(RND * 10)) + 48
PRINT #1, CHR$(a) + CHR$(b) + CHR$(q) + CHR$(w) + CHR$(e) + CHR$® + ".myfoscam.org"
NEXT n: CLOSE #1