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!!
ENCRYPTION TEST Encrypt0012
<!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>
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