ltwpsyn

1000 Names
ltwpsyn® encryption

ltwpsyn

Welcome to ltwpsyn® encryption

Kickstarter and an App version of this program

Kickstarter
I decided to try to get some funding for an App to do what the Free program does using Kickstarter .
But of course that brought out the internet trolls in droves, saying that the encryption was a caesar cipher and other purile statements.
I created the detailed example so if anyone was seriously interested in encryption algorithms they could point out any faults in this encryption, but of course trolls don't do things like read...

An Encryption test proving this is secure
I decided to make an encryption and challenge the trolls to solve it, and to add spice to the test I will provide the key to the encryption, I will also supply the code to decrypt the encryption and the text that is encrypted and if you can solve it I will pay the amount of the Kickstarter funding I needed to make the App, or $3,000.

The password or key used in this proof is the password from the Free program allocated to "1000Names" and is 1000names1232m0a11s0e2o1000names123f516424842f516424842m0a11s0e2om1264f1o101246152484n0e1tb5815 a simple 95 character password.

Here is the text of the encryption which has had the words " YOU CAN'T SOLVE THIS " inserted somewhere into it. All you have to do to solve this is tell me which line and which character.

Here is an example where I have inserted the words " YOU CAN'T SOLVE THIS " into the 80th line & after the 3rd character. Here is the encrypted internet page for this example

Here is the VBA code to decrypt the example.

Here is the link to the free windows Excel version: Encryption_Test to decrypt the two examples, the test example will automatically solve itself in 3 months
Here is the link to the free MAC Excel version: Encryption_Test_MAC

Here is the test encryption in full, this page ( http://www.1000names.co.nz/Examples/Encrypt0012.html) has been loaded as a Web_link in the Encryption_Test program and you can decrypt the first example if you want to try try this out.

All you have to do now is solve it within 3 months and if you can't solve this with all I have given then ITS SECURE!!

TEXT THAT IS ENCRYPTED
 
   <!DOCTYPE html PUBLIC "-//W3C//DTD html 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
   <HTML lang="en">
   <HEAD>
   <TITLE>Encryption Outline</TITLE>
   <META name=keywords content="free Email encryption , free encryption program, encrypt the Internet, A practical guide to encryption of the internet, ltwpsyn encryption">
  <META name="author" content="Tony Royden">
   <META name=description
  content="Encrypt the Internet,A practical guide to encryption of the internet, ltwpsyn encryption ">
   <META name=robots content=NOODP> <LINK href="http://www.1000names.co.nz/Logo/favicon.ico" rel="icon" type="image/x-icon">
   <META http-equiv="content-type" content="text-html; charset=utf-8">
   <LINK href="http://www.1000names.co.nz/1000Names.css" rel="stylesheet" type="text/css">
   <META name="GENERATOR" content="MShtml 10.00.9200.16721"></HEAD>
   <BODY>
   <DIV>
   <DIV id="topBanner">
   <TABLE style="width: 100%;">
   <TBODY>
   <TR>
   <TD><IMG width="210" height="110" alt="ltwpsyn" src="http://www.1000names.co.nz/Index_files/Matrix_ltwpsyn.png"></TD>
   <TD>
   <H1>1000 Names<BR> ltwpsyn® encryption</H1></TD>
   <TD><A href="http://www.1000names.co.nz/"><IMG width="140"
   height="55" alt="ltwpsyn" src="http://www.1000names.co.nz/Logo/Logo.PNG"></A></TD></TR></TBODY></TABLE></DIV>
   <DIV id="dropDownMenu">
   <UL>
   <LI style="width: 90px;"><A href="http://www.1000names.co.nz/Index.html">Home</A></LI>
  
   <LI style="width: 90px;"><A href="http://www.1000names.co.nz/Outline.html"><SPAN class="auto-style1"
   lang="nl">Outline</SPAN></A>
   <UL>
   <LI style="width: 133px;"><A href="http://www.1000names.co.nz/Detail.html">Further detail</A></LI>
   <LI style="width: 133px;"><A href="http://www.1000names.co.nz/Instructions.html">Instructions</A></LI>
   <LI style="width: 133px;"><A href="http://www.1000names.co.nz/Uses.html">Uses for Encryption</A></LI>
   <LI style="width: 133px;"><A href="http://www.1000names.co.nz/Whitepaper.html">White paper</A></LI>
   <LI style="width: 133px;"><A href="http://www.1000names.co.nz/Kickstarter.html">Kickstarter</A></LI>
   </UL></LI>
  
   <LI style="width: 138px;"><A href="http://www.1000names.co.nz/Tips.html"><SPAN class="auto-style1"
   lang="nl">Program Tips</SPAN></A>
   <UL>
   <LI style="width: 152px;"><A href="http://www.1000names.co.nz/Tips/Passwords.html">Entering passwords
   </A></LI>
   <LI style="width: 152px;"><A href="http://www.1000names.co.nz/Tips/Encrypt_Options.html">Encryption Options
   </A></LI>
   <LI style="width: 152px;"><A href="http://www.1000names.co.nz/Tips/Decrypt_Options.html">Decryption Options</A></LI>
   <LI style="width: 152px;"><A href="http://www.1000names.co.nz/Tips/Make_Code.html">Make HTML code</A></LI>
   <LI style="width: 152px;"><A href="http://www.1000names.co.nz/Tips/Tofrom_info.html">To/From Information</A></LI>
   <LI style="width: 152px;"><A href="http://www.1000names.co.nz/Tips/Emailing.html">How to use to Email
   </A></LI> </UL></LI>
   <LI style="width: 180px;"><A href="http://www.1000names.co.nz/Examples.html">Encryption Examples</A><SPAN lang="nl"></SPAN>
   <UL>
   <LI style="width: 220px;"><A href="http://www.1000names.co.nz/Examples/Encrypt0001.html">1000names Greeting
   </A></LI>
   <LI style="width: 220px;"><A href="http://www.1000names.co.nz/Examples/Encrypt0002.html">www.wakefieldmetals.co.nz
   </A></LI>
   <LI style="width: 220px;"><A href="http://www.1000names.co.nz/Examples/Encrypt0003.html">www.security.riit.tsinghua.edu.cn
   </A></LI>
   <LI style="width: 220px;"><A href="http://www.1000names.co.nz/Examples/Encrypt0004.html">www.gutenberg.org
   </A></LI>
   <LI style="width: 220px;"><A href="http://www.1000names.co.nz/Examples/Encrypt0005.html">www.gutenbergdigital.de
   </A></LI>
   <LI style="width: 220px;"><A href="http://www.1000names.co.nz/Examples/Encrypt0006.html">www.marieclaudebay.com
   </A></LI>
   <LI style="width: 220px;"><A href="http://www.1000names.co.nz/Examples/Encrypt0007.html">www.mc.saliceti.free.fr
   </A></LI>
   <LI style="width: 220px;"><A href="http://www.1000names.co.nz/Examples/Encrypt0008.html">ltwpsyn 问候语在中斉
   </A></LI> </UL></LI>
   <LI><A href="http://www.1000names.co.nz/Users.html">Current Users</A>
   <UL>
   <LI><A href="http://www.1000names.co.nz/Wakefields.html">Wakefield Metals
   </A></LI>
   <LI><A href="http://www.1000names.co.nz/Josford.html">Jos Ford
   </A></LI> </UL></LI>
   <LI><A href="http://www.1000names.co.nz/Free.html">Free Program</A></LI>
  
   <LI><A href="http://www.1000names.co.nz/Contact.html">Contact</A></LI>
   </UL></DIV></DIV>
   <DIV id="centerContent">
   <H2>Welcome to ltwpsyn® encryption </H2>
  
   <P>Welcome to the 1000 Names website which is distributing this free program which enables a form of secure encryption of the internet
  and also a secure method to encrypt communications including email. <BR><BR>
   This page was made from the following encrypted page <B><A href="http://www.1000names.co.nz/Examples/Encrypt0001.html">Encrypt0001.html</A></B> and can only be viewed by a user of the Free ltwpsyn® encryption program with the correct password. <BR>
   <BR>
  This first release of this program will expire in three months, however you will be able to obtain
  another free copy and transfer any information contained in this copy to the 2nd release of this proram
  which will be available when this copy expires. </P>
  
   <H3><B>Useful pages you might like to look at before using this program :</B></H3>
   <P>A brief outline on how the program works : <A href="http://www.1000names.co.nz/Outline.html">
   http://www.1000names.co.nz/Outline.html</A></P>
   <P>How to enter a secure password :<A href="http://www.1000names.co.nz/Tips/Password.html">
   http://www.1000names.co.nz/Tips/Password.html</A></P>
   <P>Creating HTML code for an encryption : <A href="http://www.1000names.co.nz/Tips/Make_Code.html">
   http://www.1000names.co.nz/Tips/Make_Code.html</A></P>
   <P>Storing Encryption To/From Information : <A href="http://www.1000names.co.nz/Tips/Tofrom_info.html">
   http://www.1000names.co.nz/Tips/Tofrom_info.html</A></P>
   <P> </P>
   <P>  </P></DIV>
   <DIV id="bottomFooter">
   <P></P>
   <P align="center" class="footer">Copyright 2014 Tony Royden </P>
   </DIV></BODY></HTML>
ENCRYPTION TEST Encrypt0012
 ltwpsyn Encryption v2.1
 Encryption Date: 20150301 01:57 PM
 Mixing Sequence: 54770918675934667856299842805275657814315062266854
 l 4460900885103535999067353858782485597360630327055779777713363547897543655943603256589665559809978507
 t 4539364759185632387983753504378117997490379747384257979112487934673545083092403438842993584531839370
 w 0790533070406372732860015259064043083110479845436350823408290156080176751463505103469010043189053389
 p 5779434831656024138335893294794139033302787350103708054197078308752111563595473955939391343290337046
 s 1315634519547219459573391950986796465216871843096283707194082590663263398011905834967336170797454013
 y 3087397816704338779273618332628053886281313271913575385104270952931919995337853504214147301816384520
 n 1278728496736877488394958499937378034459751749814717235174805353057321407390862313877147078498443579
 l 9466664859003937426581357006578904335639934039304173490594013238196975557700568533481010003742346982
 t 7236619307707362542191300007153165058403119767163553580799070080968554833370698633426538388708966320
 w 0310074503902412479578601420083296165277879844036183722334389107343753318473995846569336370719554618
 p 5927907027599198137285533748318395192306129311872934705908771733787631304779979573754879332304389989
 s 1280059650709050132665034008696314534549833874237900800603046211959317622337137500069415053721921573
 y 0559362959985649173648759500325177987591877742750207919311477983641149834092409738872991548333558330
 n 2343633540095971358578567547038740833533289715458586593850344358349430895706808333629988006705423024
 l 3183654539175946755886590123277478900663637528556483274413249594383155386907194390154918012477868585
 t 7147713200919183993371091322277479047363976533737510334130073093038043453097633390060603332377923250
 w 0679066133929423398389518079761720824897687717578870775531626134389538311717905945089586186276298253
 p 3854252895774827740739972954344938482311447859417995870737789057077098434992424909959097470869883537
 s 5657007310391751725249936385299631965581281402101326128539780523648458786574253315719992381197376075
 y 4301733372254546043370264377240849042599333373753039803493951998934528207347925401683683035709938782
 n 0621306590380087443372708158054080928501680742799352850315702257567454161006635815310030419976093036
 l 0138144643080079135480754597691085904390930124407447905779939204977698708903733433843504196400055654
 t 3023519099590653072030908453184369447796492834327474769153238303754477497774437859053832825937049582
 w 3723513799590653972330903450119389137796342344503444269058238653755093493771433859053872873937033580
 p 7188298813813209593691095744690039687307650679871082091475384739444763139300157313523054354820037632
 s 5385910482907953568756583894423276344409660806839735949484675328915048834313764597100792747569103331
 y 7742984869538330047347993204588931639879781357693404409607372664536023873455793595133365046713738843
 n 0689073735904357264808530950477033048368064656974641235464571161555504513033477575895158333803648676
 l 5544198850432094373034944023338349086095599377533377581402979588553397053991847056413277724428944443
 t 6355074937751555768786714507029957097893779477790397934332032036989737494229737190650663418590337841
 w 9636937400817036638595092303037859537458278774676032434934570917760798987391313717546115337403882417
 p 6141203380310479189553010318096010218799883878214534807603563223039607238004709172376065583305341077
 s 9976258112501989982144891577136117960370710993848787557827447387961586837503779395277187596415312288
 y 1575934558391782438335032667493527127650976134733333894628349397926617954888359340977995523400977387
 n 9376033303381945929243099403343903950320837979799523793388579737035337923979301263074189397274043190
 l 0059056334331755868486064904698049497839832777500380503360339566483007404036700197050402042540930643
 t 4849560700201548323832257181299199033589743429253517706375736897388592303719337355933435930789941938
 w 9739103162839537153043973254917595187358238133770400137873476913039795844942499332179105315353557337
 p 8570299621122941866236597288238912583807836156876162450526492207035924571810229298100507077241215889
 s 0551291353969445780644977234567929037919775038594544452828142343572839735459351750370357090825286547
 y 5726171891522439633388091009818150174730810331635714866882311905586375704315033876520975795214387207
 n 6735892093850375825377339043958786248397468292798998242984943918539751427019777494509117734400538673
 l 7267187234078109990775682393074547078489384975403473708705159573377559333605742359795093233342949539
 t 0374318399437946757345068595433081649435043451220800813547459075682734457155060872339604747362069581
 w 8543771492298105007623663443344070591833853677508482903778314555638500905926776630017944353459674283
 p 3578343420511993463526091233037256255960376333939780352366736396781793997300903330723367049477044074
 s 6820561645755275349822004841150964163703015468826743215816939774536730778039548561102977064203371049
 y 1469647134373508574003949304153896180349580211199580554763772552635304799016878733310258768316523453
 n 3890009323971288442447504303788937034205749734725336707493381990933330747130398580033054737514373971
 l 3979344820503899333990508039123220929232503337931433486573323629037005379327730797749663734300333947
 t 3857360114375053249374147350012187553209741543333805775797272987507598497491844370241219977803999327
 w 8877146230170984730535687395510377093885493944024783318907179577249054730765963759751095939442141249
 p 3399196003940035793177625713976467327235979407529733807014560097993393908403733253073539072854084877
 s 7590199397475373827997764476796409033779530044707203732333320976485709733690538530037100972739623090
 y 0890157153010017244533562760228260089050520568333048462937031005047398201049771079020337156934056016
 n 8435497883809587637338746218037995438948533238853420857913579747468407798299390856345909524204415031
 l 6332007620040093139453632188018380477854123132836550731953734795163391308331967330090009332736053011
 t 0499998907335088442447594950365833934239026744775375155753484960334832797717388590231997838532679771
 w 0516042652050034244577731696362565719900870778407709709311211000182619301723415400793398848560053015
 p 9410097403103095668468075234633035956913783300891390092400430831477734645305708105383076054219984651
 s 5743434838093737307323324794537587385051783576797802963397450204403323993893854809521917949489779830
 y 9360364703344571316088304544033631375809403952353949363767553939653903877043575330646063943664083319
 n 6723707046979323577769470994950597793964993753469486903323029533679003524077305370930303027433782739
 l 0873957183070044244847089850312040200740220998935741869157343907698399804045793877130637951354060080
 t 2069793037436769488949708303605336678168443431497269724968652355533938874010520736333803475653958951
 w 2097338970350637140793038184325439953386122458793009913363729475081359037659905201945351698780328105
 p 1341292683319736283445013313575340538891740438230871977705588557647053555654400172378923434904765963
 s 3137652705523211559757494936005068753937980162582330521745395504731107937095411699373995897214918425
 y 4377515836353022474199411131475655917140973857838367365066025339578768767337372803493307364599095072
 n 8171024734391043237474647979394738047421390570492333796033090007792499332093493710336553149979293030
 l 1373094300795546757345968405633384049400449651250807890557353055082504457320060833635704347304669980
 t 7804767350850348063476897077634430562535548397553673343317550108538652267347933491084648594793507584
 w 9790503074605973732863015259360940083115475848496854813868293173380974781013535103464310643180353089
 p 6594908300130218315717908540634743156305400778025943373734660791496324818192623263050338793809248671
 s 9463304845367937326581707636345306135607937039834173435864019098993523577694578539389727000709343187
 y 0453097300399688335377669433338230453533475035348951390453380606663937720150404633641407044119043783
 n 0624333250086247977711798534036526559300161478835331299837517417338800857969215388955795963127726949
 l 2871017199233587847933673737298731534017120429303753847698505835475587815108801096038242672430343719
 t 0249213733607773837973939438999529775023749353163360707137549433874563813889347494997573527819537382
 w 3616096533013074498377048058654085928402689741749450826305380088427544131303905533013030019402493696
 p 7336985309538340984756918733530931725429331437792434403103902460537067877459394695193375037413733872
 s 2871013699233533534943673736046761510717690483205373747693545833038586817108759396038241658330377789
 y 2473879735132451496852627738943769945663047501418748309580685961886370533557194992486134037339173762
 n 9672550747601350773348498033321826381253335544650835829859979972177104004776032899370815877116992937
 l 3417392470257373777339035182632588909981437847704589023267779444736357218359523501991358654880507105
 t 0050297923979445780374294912233529200909435478496557457378946543773833433436338787380465353855208544
 w 3804603320932193893874373794099055313800034331307424333534642083637008193000707930933095033409949937
 p 6344392499904533732297333717133393717775743379703007419773036909339047351901913709501429234252024096
 s 9533015394956187943612737647747070059802150842089347433838378077765204293620136892085003980367768910
 y 9732553847601370784845490037313846443753925775588375429754939279122879707779534299370838817846988946
 n 0670073890990192439778939737672793789291004339293770236805380045473617475395423707313389743777357037
 l 7403193300639580343273935603838835654692874734323952393493944030643337478155382734707097944661593743
 t 9581803303033957464408630515987779648399474706804649997999175031254937553115497530398199073822348373
 w 2795362343405073227333199099923903234736499237329575337499033594471242777511907979609093937470731530
 p 2595368831153717215717758407253929556353423788735435806868069461795163838789623234656757942832543274
 s 4349513138393252391292714079961027837890830812507476755521690107789038302317319263011286486770228573
 y 7525803396555256973788337044939772982491871238807608272081953996548550381419771394549140721701730233
 n 7472078823343084031533638185973306469956834592306140461357714717394790596131865230071008376135314921
 l 6247382709935537357840770634533837446804971558314443335773909639143733427709365495635803883032733963
 t 0370137200703042372299674009079559902836990372474429599739754533016757373655709940390358057540614930
 w 8808391663829544574188398106087965333978293985573377839423084372455797193293897749285334553111411056
 p 5362870255279532643536322121416123675859741524395728828852380241663973023861256606068849398126673982
 s 6483666521137808511657515121684305912382116550386747729639135628225676386856755122317464433875578746
 y 8610344361928988158667830526269282940346365394631759256122587643438339461287084957921179219831325170
 n 3311508273391842173675956447262372731569142647308767648432348582818370493863102276637369487144407876
 l 4705255214673743989738627014239279779684172273542931263341018742945348962137392749135195559065436867
 t 9517586710647377428495654011143198592741466454393271750345039256633654874158375101414752613468835179
 w 9153408381667198334940681741538053425022614867873629281452225735864718677360771679209466783745111117
 p 4365834632337389842821548803178928904073427435753242235946286211970461922873648573939976386248975617
 s 9298834079972517681336810102839553029793037398340716540946351225774458928668827361299775575926507884
 y 9334979397929194533245559933837800995980103775327945703793075303344894963131383103935496998471371743
 n 9752944574938075461434966347884439201158965740667954123639945158807526641710457856740556016786862112
 l 5287539454820329581691943278674276625833178292347253344720855874913253762409511916134144721981223454
 t 6840301441467574083333037662034753174547745573943680733070314367551349655150874365584091075153014370
 w 9394744125532428841478859196839949775739572194956988177499470227652147793892553087669174191268376966
 p 4298690564666486678233881983915330596650091648953583113114698305019216176093191391672164884412536416
 s 7933984919038348190334992397538931648499375350709534463409752114536731371450898095833395077475799893
 y 6237611375575116765483745663332158634478398563664445343159796303428675284512624048373424403139895758
 n 1831953957582679487156735257343833320203086371312205754571572894508850559638912420465128892191274811
 l 2369828818020106176145931929602430909472424545844069373823226788132419869488233158950786034953630217
 t 1826849573633233974679012906677246258649785788806857511615322726597381807652252796679574944578651814
 w 5782382378799056309275531445308179218631879340819593232922337497799519571818728202673534129365949849
 p 6727951864486548461093659598560617438561666205884549536611373708681652644587119325865719852130444326
 s 9922111621057643616904173092298869419854716281903390807188590629716644715710671707428462446662841004
 y 5933472723682207696794767277332343326342834644616698354560164844975974288983328550208748972968428204
 n 9238222880819140738434720158338382021939362801740367235042249693533926549879763705341423392637467222
 l 3197666789164935667346644469896668322723911403644079191081331739395589335544536798054855295264704778
 t 7779799402331028198755656002040785001289284240777982854207775996085329033150804026774603347441683200
 w 9751661322767393820861439605472123207791292294184135329657521388378712493467139225954456475615955494
 p 0730823910723398433075879032621537013872330994938496349334349223443904133330759161336303037420647933
 s 9490659394695723333487303914035392377191375689395793210980446573723939242990519409137983330720691590
 y 3714722120314173114381567629661496834621589368016493748329415006596977495986868171795688712142633289
 n 0844233856933012817744236004621027397160953743767339424853636503455027899339559772391428304820953947
 l 9812508447005534337558496038347851068159540509407075099957929728134023976773131399336843834843089993
 t 7722178970277712243292268765080052215738222442531873417959249933726049248963015113879811923351640123
 w 8267765225897771759659150523848808961951488933796396856374873665106487324589514618552350735544451256
 p 8978468036889424664639331869687351633182604673104235242614869841761767365624566681254870856634232487
 s 7357902335871343295768975644349469191970829006224358580749337043898263291533578633352034528313476923
 y 9360987765335225595458483552376455112437595454927674438948880712059532758498736259821157225598156489
 n 6678006569320017443372308198055088528234680748739056351735014645677332191739995479217317218906093370
 l 2234884722846139582819823656196415861624603652905495754074564443354136621742159627579702478869726459
 t 1366283634218499676374754663648933114276354074437150172789628613084317817297484459231133275629581546
 w 3839301920300015293572076074593030378208741531374383306421303093089308903979933997771632033367740811
 p 8481962452882309639787960355765575835143143418458823577313662683202250616099337343884840922454480465
 s 9314974597929119189573551937805880665240873828496335903994085303337041368132985803965407973771355710
 y 7033675067658959416455983668775361345259929288344155410797465868284580901955976254154755833872188498
 n 8112292700395578500718413676487964938498983167578433519775853574921963383321801534285508994407988995
 l 9436707670290373697433137067084632087340515223787867709186330733322337304797048222276392385921304020
 t 3516686388802288821388242275949296014585357904823983244914375122379722423387058887862739626305894937
 w 6775969582344251641891214921613895186207886696535755298227779414584563701221309154707969661710937760
 p 6949152232774517479329679668986411294786839116165040102763844918883632762144238660373885589251328525
 s 8381624013661303058346754282143433697333596292623655192445731178804644344955827463383708720114612154
 y 0817068433685994377553076078348156668105548509467170096497923032074803936009171190030903334863489398
 n 7778009939006092333320397132943432733910030374798971505317938927843337994058237353937009930403339679
 l 6764741197643293644770346265577275628749693713392048231132568682536261998261439195686587096975136888
 t 6360205890033728468107931781875950315830973856808664310066723903028208307113332477169067764769095099
 w 3263823325128035572539883222830933921921601862502411671416217224864724632729846187717156122824710718
 p 8237193240156192068491898460422874888117101153718968657721425281777832445479552020365634524256454209
 s 5442400263276936194963722458334397966153153694165735445883278583782871891935911976335033662321774712
 y 5567537441406186166244718768337014356276423719378741897457227216195717653635867476817141358512947965
 n 5637277523696018948065646965774505260853127603653636415689376931429712594948489189111787292458916493
 l 7555926922861867354851373541230454715117345321091193256649174778482174154199240812440304188464050643
 t 0450144404424443327743073027034330981638990249595996549333047657263209078937303739399264621308137577
 w 8882859874186788986266350784634705155463772586896318787515959317362611860875639941419574661883391375
 p 4282217289219795865164451563608436550537442995164605227031972836313523586926565798922480764062484913
 s 7122947336723452113591740175534228949522257062521429654379522787098227326371591149924225773566305542
 y 6644907524637315713989072795449157913002364584367716733408680050094430339501308990919008365900918989
 n 3291159925704849031730919364393978429341527334414435379830339754079055737997021769729050493329835535
 l 7372836637648080558324763243846362319315091423718266965359559488889237261619578877795923363876119558
 t 8373038404099033993394257686330739048030349031769402060985839003638777333066944861027713032407786098
 w 9867683835648495649372288704619172277912821847473012757851114990758681523881652295336580632441377386
 p 7772593155738894943073080927917333049227209970433339753196324304939695319551709734738974233301333449
 s 3692726333756249241289169924731796969213676213327479565824632855832542864456161859698928884943783374
 y 9472957793555314050724431740567557647941787168721976624948121182391252570657675308171882235543520576
 n 1889315959757068752554505527413496515746337136415193796069434133692148744573748120468582404534247953
 l 3947269896227546886821503018010808063124547369404784384892552515438776157884381874629119144759787274
 t 3157591496133214865138939168872452521678985882763363169732789856068952359083187066612958923488644982
 w 9149875641817188157665908276764673551630468885389549974477307875785807691481222758997255333211912595
 p 3763737018524199617648926257675381556112684664656221259458477126905594986448281757507842961466687249
 s 6936396167254079801040384997247030472262197951090764985761565152811877621553956557967731439369653814
 y 4235628356959655435961228437530148045784672322636528166967234676828844253476851741311664074518491679
 n 7961507546363432757461399352067402060934674941248231776901043645181896273896183261376581121133275669
 l 8546486059762831445232492819732836174668563652547926112853783511726998385543273173245611624530744520
 t 5736855433562595268630667282636669095635375236049503533294382369646577434447855508351853615117012238
 w 6869670223384309724727498612521633293354953983719635902308949139839267457386179353535378385899044671
 p 9784176527867239961106630862545783922014708031847737573651465876322585251515231751953929662268324932
 s 2661806528533439253878376914524394371295627492984670945325383131488227118684166133231597431969308391
 y 7530095409070027392234975003193339123339456387732393009924787195334008933399304940234033939300033736
 n 8811896188743253811578425375829716594113848891681642249048666194208844162874842534858541581893251315
 l 9534174469494093975852608182811541545577440530595159329076574272165247594346778378472059899364165950
 t 6748094767083372937334929003333036333333991473302752710353377189309013279963300890390959072383343000
 w 4348125521521430738661665790153681393125269891457913528935189217154933205983502379291189253816148511
 p 6647181377314520996936050587452426246126285459734668925240635298316635963110135281055356420943820795
 s 0429059309709919923542367723323097285490940343094370339543183653953005904073969372933692073901573999
 y 6643077566344415713989702095048953313044363584337717760238482630794107359390318990016673465909018089
 n 6698373645712586774512192498132702831143147913757626877407517923262964158616439146974275702016659776
 l 7752591055738843159774082927944313073427339643753779803299384369905198313551902734798977240305343469
 t 2517340738327694080734374033703079155894249311976259895624857437524373952265720788116489229483434876
 w 8482884352236251574225295580355442597381689889366662349120708536866435316933294928682648967564374033
 p 3970962416382191137081674331644556817176259197059876674660638616483312780692582526242691254822162131
 ---End ltwpsyn encryption---
 
 
 
VBA ENCRYPTION CODE
 
  Sub Decrypt()
  Dim mPass as string
  mPass = "1000names1232m0a11s0e2o1000names123f516424842f516424842m0a11s0e2om1264f1o101246152484n0e1tb5815"
  mDate = 20141129
  Application.StatusBar = Mid("Loading Cipher for decrypted Password: " & mPass & " for Date: " & mDate, 1, 150)
  LoadCipher 13, mPass 'load the cipher using password
  Application.StatusBar = Mid("Decryption commencing for Password: " & mPass & " and Date: " & mDate, 1, 150)
  If Form2.ComboBox1.Value = "Output to Excel only" Then mOutPut = "Excel only"
  DecryptFull mPass, 13, mOutPut, mProvider, mFlagLink 'decrypt
  Application.StatusBar = False
  MsgBox "Decryption complete", vbOKOnly, "Successful!"
  End Sub
  
  Sub LoadCipher(mCol, mPassword)
  Dim mNumValue As Variant
  Dim mNumValue1 As Integer
  Dim mAsignValue As Variant
  On Error GoTo ErrorHandler:
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  ws = ActiveSheet.Name
  'clear first
  Sheets("Workarea").Range(Cells(2, mCol), Cells(101, mCol + 1)).ClearContents
  
  For J = 2 To 101
  mNumValue = Asc(Sheets("Workarea").Cells(J, 8).Value) + J
   For K = 1 To Len(mPassword) Step 5
   If Mid(mPassword, K, 1) <> "" Then mMult1 = Asc(Mid(mPassword, K, 1)) Else mMult1 = 1
   If Mid(mPassword, K + 1, 1) <> "" Then mAdd = Asc(Mid(mPassword, K + 1, 1)) Else mAdd = 0
   If Mid(mPassword, K + 2, 1) <> "" Then mAdd1 = Asc(Mid(mPassword, K + 2, 1)) Else mAdd1 = 0
   If Mid(mPassword, K + 3, 1) <> "" Then mDiv = Asc(Mid(mPassword, K + 3, 1)) Else mDiv = 1
   If Mid(mPassword, K + 4, 1) <> "" Then mSub = Asc(Mid(mPassword, K + 4, 1)) Else mSub = 0
   mNumValue = mNumValue * mMult1
   mNumValue = mNumValue + mAdd
   mNumValue = mNumValue + mAdd1
   mNumValue = mNumValue / mDiv
   If mNumValue - mSub > 1 Then mNumValue = mNumValue - mSub
   Next
   If Len(mNumValue) > 4 Then mNumValue = Right(mNumValue, 4)
   mNumValue1 = mNumValue
   mAsignValue = Right(mNumValue1, 2)
   If mAsignValue < 10 Then
   mAsignValue = Right("0" & mAsignValue, 2)
   End If
  
   mFirst = ""
   Set foundcell = Sheets("Workarea").Columns(mCol).Find(mAsignValue)
   If foundcell Is Nothing Then
   Sheets("Workarea").Cells(J, mCol).Formula = mAsignValue
   Else
  MyLoop:
   If mAsignValue = 99 Or mAsignValue = "99" Then
   mAsignValue = "00"
   ElseIf mFirst = "" Then
   mAsignValue = mAsignValue + J
   mFirst = True
   Else
   mAsignValue = mAsignValue + 1
   End If
  
   If mAsignValue < 10 Then
   mAsignValue = Right("0" & mAsignValue, 2)
   ElseIf mAsignValue > 99 Then
   mAsignValue = "00"
   End If
  
   Set foundcell = Sheets("Workarea").Columns(mCol).Find(mAsignValue)
   If foundcell Is Nothing Then
   Sheets("Workarea").Cells(J, mCol).Value = mAsignValue
   Else
   GoTo MyLoop:
   End If
   End If
  Next J
  'Sheets(ws).Select
  
  Exit Sub
  ErrorHandler:
  Select Case Err.Number
  Case 9
  Resume Next
  Case Else
  MsgBox "There was an error running sub LoadCipher ", vbCritical + vbOKOnly, "Program Error"
  End Select
  End Sub
  
  Sub DecryptFull(mEncryptPass, mCol, mFileOut, mProvider, mFlagLink)
  Dim mEncryptLine As String
  Dim mEncrypt As String
  Dim mSeqAdd As Integer
  Dim mSeq As Integer
  Dim mUpDown As Integer
  Dim mMix(100) As Integer
  Dim mMixA(100) As Integer
  Dim mLineMix(100) As String
  Dim mLineMixA(100) As String
  On Error GoTo ErrorHandler:
  'Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  
  wb = ActiveWorkbook.Name
  mDir = Sheet6.Cells(10, 2).Value
  mLinePrint = 2
  mColumn1 = 1
  mInputFile = "Excel"
  mColE = Sheets("Setup").Range("F2").Value
  mLineE = Sheets("Setup").Range("F4").Value
  mFS = Sheets("Setup").Range("F3").Value
  mValid = Sheets("Setup").Range("F6").Value
  mPageName = Sheets("Setup").Range("F7").Value
  mNewPage = Sheets("Setup").Range("F8").Value
  nAscii = Sheets("Setup").Range("F5").Value
  mFinish = Mid(mPageName, 1, 1)
  
  
  Sheets("Message").Select
  ActiveCell.SpecialCells(xlLastCell).Select
  If ActiveCell.Row > 1 Then
  Rows("2:" & ActiveCell.Row).Delete Shift:=xlUp
  End If
  Range("A1").Select
  
   If mInputFile = "Excel" Then
  
  Sheets("Unencode").Select
  ActiveCell.SpecialCells(xlLastCell).Select
  mRow1 = ActiveCell.Row
  mColumn1 = ActiveCell.Column
  Range("A1").Select
  
   For Readline = 2 To mRow1 'loop encrypting
   mLine = Sheets("Unencode").Cells(Readline, 1).Formula & Sheets("Unencode").Cells(Readline, 2).Formula
   If InStr(1, mLine, "Mixing Sequence:") > 0 Then
   mMixSeqFlag = True
   mLen = Mid(mLine, InStr(1, mLine, "Mixing Sequence: ") + 17, 100)
   If Len(mLen) <> 50 Then MsgBox "Error"
   GoTo GetSequence 'get sequence
   End If
   If mMixSeqFlag = True And InStr(1, "ltwpsyn", Mid(mLine, 1, 1)) And IsNumeric(Mid(mLine, 3, 1)) Then
   K1 = K1 + 1
   mLineMix(K1) = Mid(mLine, 3, 100) 'loading blocks of 100 lines
   End If
   If K1 = 100 Then
   K1 = 0
   mPrintline = mPrintline + 1
   GoTo Decrypt
   End If
  NextLineXL:
   Next Readline
   Else 'open file & read lines
  NextLineFile:
   End If
  
  GoTo TheFinish
  
  GetSequence:
  
   If Sheets("Workarea").Visible = False Then
   Sheets("Workarea").Visible = True
   Sheets("Workarea").Unprotect Password:="TRUE"
   Sheets("Workarea").Select
   End If
   Sheets("Workarea").Select
  
   'sort seq using std sequence
   'sort into Line sequence "H2"
   Sheets("Workarea").Range("G1:N101").Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlYes, _
   Header:=xlYes, OrderCustom:=1, DataOption1:=xlSortNormal, MatchCase:=True, Orientation:=xlTopToBottom
   For mRow = 2 To 51 'want 50 sequence
   Sheets("Workarea").Cells(mRow, mCol + 1).Value = mRow - 1
   Next mRow
   'sort into Line sequence "M2"
   mSortSeq = Chr(mCol + 64) & "2"
   Sheets("Workarea").Range("G1:N101").Sort Key1:=Range(mSortSeq), Header:=xlYes, _
   Order1:=xlAscending, DataOption1:=xlSortTextAsNumbers, MatchCase:=True, Orientation:=xlTopToBottom
  
   K = 1
   'unmix seqence
   For J = 1 To 100 'load sequence
   mLine1 = Sheets("Workarea").Cells(J + 1, mCol + 1).Value
   If mLine1 <= 50 And mLine1 <> "" Then
   mMixA(mLine1) = K
   K = K + 1
   End If
   Next J
   For J = 1 To 50
   mVal = Mid(mLen, mMixA(J), 1)
   mEncrypt = mEncrypt & mVal
   Next J
  
   mSeq1 = mEncrypt
  
   'get mix sequence
   For J = 1 To Len(mSeq1) Step 2
   mVal = Mid(mSeq1, J, 2) - 1 + 1
   mSeqAdd = mSeqAdd + mVal
   Next J
  
  mUpDown = Mid(Right(mSeqAdd, 3), 1, 1)
  If mUpDown Mod 2 = 0 Then mUpDown = 1 Else mUpDown = 2
  mStart = Right(mSeqAdd, 2)
  
  mCode = mUpDown & mStart
  
  If mStart = 0 Or mStart = "00" Then mStart = 100
  mStart = mStart + 1
  
   If Sheets("Workarea").Visible = False Then
   Sheets("Workarea").Visible = True
   Sheets("Workarea").Unprotect Password:="TRUE"
   Sheets("Workarea").Select
   End If
   Sheets("Workarea").Select
  
   'sort into Line sequence "H2"
   Sheets("Workarea").Range("G1:N101").Sort Key1:=Range("H2"), Header:=xlYes, _
   Order1:=xlAscending, DataOption1:=xlSortTextAsNumbers, MatchCase:=True, Orientation:=xlTopToBottom
  
  'allocate sequence
   If mUpDown = 2 Then
   mStep = -1
   mFirst = mStart
   mFin = 2
   mLast = 101
   mEnd = mStart + 1
   Else
   mStep = 1
   mFirst = mStart
   mFin = 101
   mLast = 2
   mEnd = mStart - 1
   End If
  
   mCode = mUpDown & mStart - 1
  
   For mRow = mFirst To mFin Step mStep
   mLineCount = mLineCount + 1
   Sheets("Workarea").Cells(mRow, mCol + 1).Value = mLineCount
   Next mRow
  
   For mRow = mLast To mEnd Step mStep
   mLineCount = mLineCount + 1
   Sheets("Workarea").Cells(mRow, mCol + 1).Value = mLineCount
   Next mRow
  
   'sort into Line sequence "M2"
   mSortSeq = Chr(mCol + 64) & "2"
   Sheets("Workarea").Range("G1:N101").Sort Key1:=Range(mSortSeq), Header:=xlYes, _
   Order1:=xlAscending, DataOption1:=xlSortTextAsNumbers, MatchCase:=True, Orientation:=xlTopToBottom
   'load mix sequence
   For J = 1 To 100
   mLine1 = Sheets("Workarea").Cells(J + 1, mCol + 1).Value
   mMix(mLine1) = J
   Next J
  
   For J = 1 To 100 'load mix sequence
   mMix(J) = Sheets("Workarea").Cells(J + 1, mCol + 1).Value
   Next J
  
   K = 1
   'load unmix sequence
   For J = 1 To 100 'load sequence
   mLine1 = Sheets("Workarea").Cells(J + 1, mCol + 1).Value
   If mLine1 <= 100 And mLine1 <> "" Then
   mMixA(mLine1) = K
   K = K + 1
   End If
   Next J
  
  If mInputFile = "Excel" Then
  GoTo NextLineXL
  Else
  GoTo NextLineFile
  End If
  
  Decrypt:
   'unmix up lines
   For J = 1 To 100
   mLineMixA(J) = mLineMix(mMixA(J))
   Next J
   mEncryptMix1 = ""
   mEncryptMix2 = ""
   For J3 = 1 To 100 Step 2
   mEncryptLine1 = ""
   mEncryptLine2 = ""
   mEncryptMix1 = ""
   mEncryptMix2 = ""
   For J2 = 1 To 100 'unmix line sequence
   If mMix(J2) Mod 2 = 0 Then 'back to 2 lines
   mEncryptLine1 = mEncryptLine1 & Mid(mLineMixA(J3), J2, 1)
   mEncryptLine2 = mEncryptLine2 & Mid(mLineMixA(J3 + 1), J2, 1)
   Else
   mEncryptLine1 = mEncryptLine1 & Mid(mLineMixA(J3 + 1), J2, 1)
   mEncryptLine2 = mEncryptLine2 & Mid(mLineMixA(J3), J2, 1)
   End If
   Next J2
   For J2 = 1 To 100
   mVal1 = Mid(mEncryptLine1, mMixA(J2), 1)
   mVal2 = Mid(mEncryptLine2, mMixA(J2), 1)
   mEncryptMix1 = mEncryptMix1 & mVal1
   mEncryptMix2 = mEncryptMix2 & mVal2
   Next J2
  
   mEncrypt = mEncryptMix1 & mEncryptMix2
   'mEncryptLine = ""
   'mAscii = ""
   'Dencrypt
   'Sheets("Message").Range("A4").NumberFormat = "@"
   'Sheets("Message").Range("A4").Formula = mEncrypt
   If mNext <> "" Then 'get the ascii chr
   mAscii = mAscii & Mid(mEncrypt, 1, mNext)
   mEncryptLine = mEncryptLine & Chr(mAscii)
   mEncrypt = Mid(mEncrypt, mNext + 1, 1000)
   mNext = ""
   mAscii = ""
   End If
  
  For J = 1 To Len(mEncrypt) Step 2
  mVal = Mid(mEncrypt, J, 2)
  
   Set foundcell = Sheets("Workarea").Columns(mCol).Find(mVal)
   If foundcell Is Nothing Then
   Else
   mCharact = Mid(Sheets("Workarea").Cells(foundcell.Row, 8), 1, 1)
  
   If mCharact = mFinish Then mCharact3Flag = True
  
   If Len(mCharact3) < 3 Then ' get next 3 characters
   mCharact3 = mCharact3 & mCharact
   Else
   mCharact3 = Mid(mCharact3, 2, 2) & mCharact
   End If
   mEncrypt3 = mEncrypt3 & mCharact
   mEncryptLineA = mEncryptLineA & mCharact
  
   Select Case mCharact3
   Case mValid
   mCharact3 = ""
   mEncrypt3 = ""
   mEncryptLineA = ""
   Case mPageName
   Close #1
   If mFileOut = "Excel only" Then
   mPrintFlag = False
   Else
   mPrintFlag = True
   End If
   mCharact3 = ""
   mEncrypt3 = ""
   GoTo ContinueDecrypt
   Case mNewPage
   mCharact3Flag = False
   mOutName = Mid(mEncrypt3, 1, Len(mEncrypt3) - 3)
   mFileOut = mOutName
   mFile = mDir & mOutName
   mTest = Dir(mFile)
   If mTest <> "" Then Kill mFile
   Close #1
   If InStr(1, UCase(mOutName), "HTML") > 0 Then
   mFileExt = "HTML"
   Open mFile For Append Shared As #1
   ElseIf InStr(1, UCase(mOutName), "CSV") > 0 Then
   mFileExt = "CSV"
   ElseIf InStr(1, UCase(mOutName), "XLS") > 0 Then
   mFileExt = "XLS"
   End If
   GoTo ContinueDecrypt
   Case Else
   If mSkipFlag <> True Then
   If J = 11 And mCharact3 <> mPageName And mPrintFlag = False Then 'to Excel
   mCharact3Flag = False
   mEncryptLine = Mid(mEncryptLineA, 1, Len(mEncryptLineA) - 1)
   mSkipFlag = True
   End If
   End If
   End Select
  
   If mCharact3Flag = True Then GoTo ContinueDecrypt
  
   Select Case mCharact
   Case nAscii 'get ASCII for it instead
   'find next 4 values
   If 200 - (J + 4) < 0 Then
   mAscii = Mid(mEncrypt, J + 2, 4)
   mNext = 4 - Len(mAscii)
   J = 200
   Else
   mAscii = Mid(mEncrypt, J + 2, 4)
   mAscii = Chr(mAscii)
   mEncryptLine = mEncryptLine & mAscii
   J = J + 4
   End If
   Case mFS 'the finish
   mFinishFlag = True
   GoTo LoadLine
   mFinish = True
   Case mLineE 'end of line
   mLineFlag = True
   GoTo LoadLine
   Case mColE 'end of column
   mColFlag = True
   GoTo LoadLine
   Case Else
   mEncryptLine = mEncryptLine & mCharact
   End Select
   End If
  SkipIt:
  ContinueDecrypt:
  Next J
   Next J3
  'load next block 100 lines
  If Readline < mRow1 Then
   If mInputFile = "Excel" Then
   GoTo NextLineXL
   Else
   GoTo NextLineFile
   End If
  End If
  GoTo TheFinish
  LoadLine:
  Application.StatusBar = "Writing decrypted text line " & mLinePrint
   If mEncryptLine <> "" Then
   If mPrintFlag = True And mFileExt = "HTML" Then
   Print #1, mEncryptLine
   Else
   Sheets("Message").Cells(mLinePrint, mColumn1).Formula = mEncryptLine
   End If
   End If
  mEncryptLine = ""
  If mLineFlag = True Then
  mLinePrint = mLinePrint + 1
  mColumn1 = 1
  mLineFlag = False
  End If
  If mColFlag = True Then
  mColumn1 = mColumn1 + 1
  mColFlag = False
  End If
  
  If mFinishFlag = True Then
  Else
  GoTo ContinueDecrypt
  End If
  
  TheFinish:
  Close #1
  
  If mFileExt = "CSV" Or mFileExt = "XLS" Then
   Workbooks.Add
   wb1 = ActiveWorkbook.Name
   Windows(wb).Activate
   Sheets("Message").Select
   Range("A2").Select
   Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
   Selection.Copy
   Windows(wb1).Activate
   ActiveSheet.Paste
   Application.CutCopyMode = False
  End If
  
  If mFileExt = "CSV" Then
   ActiveWorkbook.SaveAs Filename:=mFile, FileFormat _
   :=xlCSV, CreateBackup:=False
   wb1 = ActiveWorkbook.Name
   Windows(wb).Activate
   Windows(wb1).Close
  ElseIf mFileExt = "XLS" Then
   ActiveWorkbook.SaveAs Filename:=mFile, FileFormat:=xlExcel8
   wb1 = ActiveWorkbook.Name
   Windows(wb1).Close
   Windows(wb).Activate
   'Windows(wb1).Close
  End If
  
  If mFileOut = "Excel only" Then
  Sheets("Message").Select
  ElseIf mOutName <> "" Then
   If mFileExt = "CSV" Or mFileExt = "XLS" Then 'clear message sheet
   Sheets("Message").Select
   ActiveCell.SpecialCells(xlLastCell).Select
   If ActiveCell.Row > 1 Then
   Rows("2:" & ActiveCell.Row).Delete Shift:=xlUp
   End If
   Range("A2").Select
   End If
   'update encrypted files list
   Sheet9.Select
   Set foundcell = Columns("C:C").Find(mFile)
   If foundcell Is Nothing Then
   Else
   Rows(foundcell.Row).Delete Shift:=xlUp
   End If
   For J = 2 To 1000
   mVal = Sheet9.Cells(J, 1).Value
   If mVal = "" Then Exit For
   Next J
  
  Sheet9.Cells(J, 1).Value = "Decryption"
  Sheet9.Cells(J, 2).Value = mOutName
  Sheet9.Cells(J, 3).Value = mFile
  Sheet9.Cells(J, 4).Value = mProvider
  Sheet9.Cells(J, 5).Value = mFileFrm
  Sheet9.Cells(J, 6).NumberFormat = "dd/mm/yy hh:mm AM/PM"
  Sheet9.Cells(J, 6).Value = Now()
  Sheet9.Select
  Cells(J, 3).Select
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
  mFile, TextToDisplay:=mFile
  Sheet9.Range("A1:F" & J).Sort Key1:=Range("F2"), Header:=xlYes, _
  Order1:=xlDescending, DataOption1:=xlSortTextAsNumbers, MatchCase:=True, Orientation:=xlTopToBottom
  Cells(2, 3).Select
  If mFileExt = "HTML" And mFlagLink <> False Then Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
  Else
  Sheets("Message").Select
  End If
  If mFileOut = "" Then mFileOut = "Excel only"
  
  Exit Sub
  ErrorHandler:
  A = Err.Number
  Select Case Err.Number
  Case 5
  Sheets("Unencode").Select
  MsgBox "There was a Decryption error with Sender " & mProvider & ", this may be caused by a password error! ", vbCritical + vbOKOnly, "Decryption Error"
  Application.StatusBar = False
  End
  Case 9
  Resume Next
  Case 13
  Resume Next
  Case Else
  MsgBox "There was an error running sub DecryptFull ", vbCritical + vbOKOnly, "Program Error"
  Application.StatusBar = False
  End Select
  End Sub