<!--- the purpose of this CFC is to build giant lists of keywords out of a few "seeds"
you have to give it a list of keywords (comma seperated), a list of "mixer" words, and how many phrases you want then it will do the rest.
--->

<cfcomponent output="no">
<cffunction name="init" access="public" returntype="string">
<cfargument name="Keys" type="string" required="yes">
<cfargument name="MixerList" type="string" required="yes">
<cfargument name="NumberToGen" type="numeric" required="yes">
<cfargument name="MaxWordsInKey-1" default="5" required="yes" type="numeric">

<cfset var NewKeys = "">

<cfscript>
//we want to use the original list first then mix new words in
origLen = Listlen(arguments.keys);
numToMix = 1; //start with one mix word then we will add more and more as needed
maxToMix = arguments.MaxWordsInKey; //this will tell the script how many mix words to use max.  afterwards it will start splitting up the original words
counter = 1; //start the counter for iterations
listPos = 1;

for(i = 1; i LTE arguments.NumberToGen; i = i + 1) {
useKey = ListGetAt(Keys,listPos);
MixedKey = MixKey(numToMix,arguments.MixerList,useKey);
if (NOT ListFindNoCase(NewKeys,MixedKey)){
NewKeys = ListAppend(NewKeys,MixedKey);
counter = counter + 1;
}

//end of the list?
if (listPos EQ origLen){
listPos = 1; //start again at the beginning

if (numToMix LT maxToMix){
numToMix = numToMix + 1;
}
}
listpos = listpos + 1;
}
</cfscript>

<cfreturn NewKeys>
</cffunction>

<cffunction name="MixKey" returntype="string">
<cfargument name="Mixers" type="numeric" default="1" required="yes">
<cfargument name="MixList" required="yes" type="string">
<cfargument name="keyToMix" required="yes">
<cfargument name="SplitKeys" required="no" default="0">

<cfset var Append = RandRange(0,1)>
<cfset var MixIn = "">

<cfloop from="1" to="#arguments.mixers#" index="x">
<cfset MixIn = MixIn & ' ' & ListGetAt(arguments.mixList,RandRange(1,ListLen(arguments.mixList)))>
</cfloop>

<cfif Append>
<cfset returnThis = MixIn & ' ' & arguments.keyToMix >
<cfelse>
<cfset returnThis =  arguments.keyToMix & ' ' & MixIn>
</cfif>
<!--- trim just in case --->
<cfset ReturnThis = TRIM(returnThis)>

<cfreturn returnThis>

</cffunction>
</cfcomponent>

<cfobject component="KeywordMaker"  name="KeywordMaker" />

<cfscript>
keywords = "beef, chicken, pork, mango, pie, monkey, idiot, perkiset, smells, like, burritos";
mixers = "the, big, small, orange, purple, nice, ugly, fat, hairy, smart, dumb, lost, stolen, found, hated";
keysToMake = 400;
maxWordsPerKey = 5;

NewKeyList = KeywordMaker.init(keywords,mixers,keysToMake,maxWordsPerKey);
</cfscript>

<cfoutput>#NewKeyList#</cfoutput>

lost beef,dumb chicken,nice pork,orange mango,lost pie,lost monkey,fat idiot,perkiset found,smells hated,dumb like,burritos fat,chicken lost lost,pork dumb lost,mango lost big,pie orange lost,monkey hairy nice,idiot found hairy,perkiset ugly orange,nice ugly smells,like nice ugly,hairy small burritos,chicken ugly nice hairy,nice stolen hated pork,smart purple fat mango,lost big dumb pie,monkey purple nice found,idiot dumb purple stolen,fat hated hated perkiset,purple nice found smells,stolen ugly purple like,burritos nice hated fat,chicken the dumb big smart,pork nice small hairy hairy,smart dumb fat hated mango,pie dumb ugly orange purple,hairy hated nice nice monkey,purple fat found dumb idiot,dumb hated dumb big perkiset,smells smart orange hated fat,like hated dumb dumb purple,burritos fat fat purple small,chicken found big lost found,small nice dumb stolen pork,mango small dumb fat small,pie nice hated dumb nice,small dumb nice stolen monkey,found fat hairy dumb idiot,perkiset nice big nice stolen,smells small small stolen hairy,hairy purple lost hairy like,burritos lost ugly hairy nice,stolen dumb the fat chicken,pork dumb orange hated found,orange orange big hated mango,pie nice hairy small nice,smart big big ugly monkey,idiot hairy found orange fat,smart ugly dumb purple perkiset,the ugly found the smells,like the stolen the purple,burritos nice fat found hairy,fat ugly lost big chicken,the stolen purple stolen pork,mango dumb purple smart nice,hairy hairy the fat pie,dumb fat stolen found monkey,small big smart hated idiot,small fat smart found perkiset,smells stolen big big fat,found big found nice like,the the smart hairy burritos,chicken big found big hairy,pork purple the fat ugly,mango nice purple nice stolen,pie small hated stolen hated,nice the found small monkey,idiot orange stolen lost big,perkiset found smart purple nice,smells big ugly hated found,like stolen purple orange big,burritos ugly fat big small,chicken purple hated small fat,pork small ugly smart big,nice orange big smart mango,lost hated hated fat pie,monkey the orange lost big,idiot purple ugly nice smart,ugly dumb big nice perkiset,smells hated smart ugly dumb,found fat found stolen like,burritos ugly purple big orange,dumb stolen orange the chicken,pork purple small the the,hairy orange hated found mango,ugly purple hated ugly pie,purple the nice lost monkey,big found smart stolen idiot,the small hairy nice perkiset,smells the dumb hated big,big found hairy lost like,burritos dumb ugly small found,found smart hairy the chicken,pork nice hairy nice lost,mango dumb stolen nice stolen,pie fat found lost hated,stolen hated smart hairy monkey