hyvä joo mninkälainen ohjelmakoodi on joka tekee noita

No äkkiäkös tuota sampkan muodostaa. Vaikka

"sam" + "aska".replace("as", "p")

jos joku itse haluaa kokeilla mitä tuollainen tekee ohjelmakoodi joka tekee omia nimiä lähdenimistä, pastean pätkän, siis käyttää tietokantana jotain joista muodostaa uusia arpomalla:

... koodipätkä

int _tmain(int argc, _TCHAR* argv[])
{
int x,y,z;
FILE *f;
char line[256];
char line_parsed[256];


srand(time(0));

tavuja=0;

f=fopen("klingon_planet_names_tavutettu.txt","rb");

for (y=0;y<195;y++) {
if (!fgets(line,1024-1,f)) break; else {

z=0;
for (x=0;x<strlen(line);x++) {

if (line[x]<'\n') goto ohita;
/*
58...126
127 delete
128..168
*/
// uusi tavu

if ((line[x]=='-') || (line[x]==' ') || (line[x]==',') || (line[x]=='\n')
|| (line[x]=='\n')
|| ( (line[x]>='0') && (line[x]<='9') )) {

line_parsed[z]=0;
if (strlen(line_parsed)>0) {

// isoin eka kirj
int t,tt;
strlwr(line_parsed);
//line_parsed[0]=toupper(line_parsed[0]);
for (t=1;t<strlen(line_parsed);t++) {
tt=line_parsed[t];
//if (tt<'a') {

// tt=tolower(line_parsed[t]);
// tt=toupper(line_parsed[t]);
//tt=tolower((unsigned int)line_parsed[t]);

line_parsed[t]=tt;
//}
}

strcpy(tavut[tavuja],line_parsed);
//tavut[tavuja][0]=toupper(tavut[tavuja][0]);
tavuja++;
}
z=0;line_parsed[z]=0;
} else {
if (((line[x]>='A') && (line[x]<='z')) || (line[x]==39) ) {
line_parsed[z]=line[x];
z++;
}
}

}
ohita:;

}
}
fclose(f);

printf("\n\n");

for (y=0;y<tavuja;y++) {
printf("%s\r\n",tavut[y]);
}

printf("\n\n");


//delete(("nimet2.txt");
f=fopen("nimet2.txt","wb");

char kokosana[234];

for (x=0;x<17;x++) {
kokosana[0]=0;

int yy=(2+rand()%2);

for (y=0;y<yy;y++) {
//eka tavu isolla
int r=rand()%tavuja;
if (y==0) {
// jos klingon, lisää - aluksi kaikkiin jos ei '-lopussa
if ((tavut[r][strlen(tavut[r])-1]!=39) && (tavut[r][strlen(tavut[r])-1]!=45))
sprintf(kokosana,"%s%c%s-",kokosana,toupper(tavut[r][0]),&tavut[r][1]);
else
sprintf(kokosana,"%s%c%s",kokosana,toupper(tavut[r][0]),&tavut[r][1]);


} else {
// jos klingon, lisää - aluksi kaikkiin
if ((tavut[r][strlen(tavut[r])-1]!=39) && (tavut[r][strlen(tavut[r])-1]!=45) && (y<(yy-1)))
sprintf(kokosana,"%s%s-",kokosana,tavut[r]);
else
sprintf(kokosana,"%s%s",kokosana,tavut[r]);
}

//printf("\n");
// fprintf(f,"\r\n");
}
// ylimääräiset viivat pois ja tulosta koko sana
printf("%s\n",kokosana);
fprintf(f,"%s\r\n",kokosana);
//printf("\n\n");
}

fclose(f);

getch();


return 0;
}

"Ketjusta on poistettu 1 sääntöjenvastaista viestiä."

LOL.