WHITEPAPER
DigiLux E-trade - virtual exchange [of assets]
etrade.exe
[in Delphi use BDE]
assets: money / stock / etc.
add description ONLY as file name
each asset has
. signature
. control_number
signature changes, but the control_number doesn't
assets to be stored in database
LOCK (master)
1. generate random key
2. use it as a program in my_seq
3. find the output in my_seq, call my_out
5. add my_out to the e_string
6. form signature:
1. control_number
2. my_out
7. encrypt the signature by my_out
8. add -right this encrypted signature to the e_string
9. encrypt the asset by my_out - 'how to encrypt strings'
10. add asset info to the database, associating to this asset
; and the asset itself also
the conversion / update of an asset by the holder is tb. called "touch"
UNLOCK (slave)
1. get asset's my_out from holder (who emissed it)
2. decrypt the asset
3. compare my_out's (the one in asset and the one received)
4. decrypt the signature
5. compare my_out's (the one in signature and the one received)
6. accept / decline based on comparison
...
TOUCH
1. UNLOCK
2. change my_out by finding a new my_seq program (random)
3. in the database: label _old_ as used - cannot be used again
4. LOCK the _new_ e_string
connect to ip thru sockets
store ip's in a db table
SEND
- use socket
ON_RECEIVE - thru socket
use a 'watch' [Delphi component] timer
do MDI, not SDI [in Delphi]
use InstallShield to make a setup package
link to the author's sequence - COPY ORIGINAL
| login |
Year-end appeal! The OEIS, now in its 47th year, is free, but it costs money to maintain it. Please make a donation (tax-deductible in the US) to help keep the website running. Neil Sloane, President, OEIS Foundation.
| ||||||||||||||||||||||||||||||||||||||||||||||||
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.
copyright 2011 by Artem S. Shafraniuk
all rights reserved
Artem Serhiyovich Shafraniuk
to license, ONLY contact artem.shafraniuk@gmail.com / ashafraniuk@yahoo.com!
financial online (R)
"our mission is to develop an electronic online /infrastructure/ for a CONCEITUAL ECONOMY"
statement of purpose / whitepaper / project's proposal
we have ideas, and need sponsorship
contact Artem Serhiyovich Shafraniuk at
artem.shafraniuk@gmail.com, ashafraniuk@yahoo.com
Kiev, Ukraine 253-33-90, 253-43-43 after 20:00 Kiev time
invest!
. digital controlled money: a subject has a private key and public key, an electronic banknote has a crypto-id (public key), the e[lectronic] bank holds its secret-id (private key) - the bank that releases these banknotes online; secure transaction of money between ip-computers: subject A sends the banknote, encrypted by the recepient subject B's public key, then subject B decrypts it with her private key, and her software notifies the bank of the transfer, using the banknote's crypto-id
. electronic online exchange of digital money [above], stock, etc. - all you need is an on-server database with a secure web-interface, this may use our digital money
. online banking: electronic online-oriented banks operate on our digital money
. online-driven business: works thru online-based central, and may employ freelancers
. i-point, mobile devices -based incorporation: work together, wherever they are - your employees
. FINUS software - works on real or / and digital money BOTH -- see LOW BELOW on this webpage
--> insert, with screenshot; all-code
. online-client-side automation of online financial transactions - client-side robot software that works like a bug and automates one's requests; this can integrate with FINUS - AUTOTRADING
all projects are interconnected, and are
copyright 2011 by Artem S. Shafraniuk
all rights reserved
WE'RE NEW, and require <SPONSORSHIP> to develop our projects!
-----------------------------------------------------------------------
a new programming language "inCode"
example program: Lx.{x<0\print(x)[;...]}
where L - lambda expression
x<0 - condition
this language also has goto(label).
USEFUL NOTE: L-variable can be changed by operators in code during run-time!
copyright 2011 by Artem Serhiyovich Shafraniuk
-----------------------------------------------------------------------
Artem Serhiyovich Shafraniuk
pseudoquantum online transactions for internet money
17.09.2011
[x,y] - a cryptographically connected pair of numbers, generated crysptographically
conditions
HARD to find out from what number they were generated
EASY to find out that they are a such cryptographic pair
t(x,y) in {true, false} - test for that they (x,y) are a cryptographic pair
GENERATION
f(x,y)=g(r)
r - random number
x,y - a cryptographic pair of numbers
g - a cryptographic function
f - Euclid's pairing function from <x,y> = d(x+y)+x+2
recommended g(.): a chaotic function with a parameter [r]
NOW, this way we can authenticate an online transaction cryptographically to test for authenticity on both sides. just encrypt information by the x,y as keys for sides a,b correspondingly, and then use the numbers and test function t to test for "EPR" correlation without using quantum cryptography
copyright 2011 by Artem S. Shafraniuk. IF YOU WANT TO USE THIS ANYHOW, YOU'VE GOT TO CONTACT THE AUTHOR DIRECTLY OR BY EMAIL. THE AUTHOR FORBIDS ANY OTHER OPTIONS! (.)
--
project xenadu
estate - electronic (virtual) state / country with electronic governance and virtual money (economy)
emoney: virtual money with author's technology
author's wannabe idea: to establish an electronic state / virtual country
novelty: FULL - was never before!
--> law - this is up to politics
structural engine: interacting queue machines (a queue machine is a finite automaton with a queue, and is known to be computation-universal)
author's technology that gives a road to create a virtual state:
SECURE ONLINE TRANSACTIONS
big random number N
one-side function N-->(x_key, y_key)
so that there is a test function t(x_key,y_key)={true, false}
=true iff x_key,y_key are a valid pair from such an N number
SCHEME for a secure transaction
trusted authority with an online server
client computer sides A,B want to do a secure transaction which is exchanging messages R_A (A-->B), Q_B (B-->A)
they use (public) open key cryptography to encrypt R_A with x_key, Q_B with y_key.
ALGORITHM:
-trusted authority:
- generate N
- get x_key,y_key
- distribute keys to sides x_key-->A, y_key-->B
- sides encrypt each encrypted_R_A(x_key); encrypted_R_B(y_key)
- exchange messages by sides
- each side uses the test function t on the message to validate it
TRANSACTION COMPLETE SECURELY! q
copyright (2011) by Artem Serhiyovich Shafraniuk, artem.shafraniuk@gmail.com
P<>NP
proof 2: Algorithms in P either halt or not and algorithms in NP also either halt or not. The haltings of algorithms in both classes are bits in Chaitin's real number Omega. This number is authentically random. Suppose P=NP. Then there is an isomorphism in Omega. But if there is an isomorphism in Omega, it cannot be random. But Omega is random. Contradition. Then, P<>NP!
proof 1: The Bounded Halting Problem is in NP. Construct the Polynomial Bounded Halting Problem. (Bounded halting of polynomial-time algorithms.) In the limit of time, Bounded Halting Problem converges to the Halting Problem, but the Polynomial Bounded Problem cannot. Therefore, the two problems do not coincide. This can only be if P<>NP!
Riemann Hypothesis
proof 1: This is an equation with two sides. Do lim(<left-hand-side>)=lim(right-hand-side). Solve.
Financial Economy
There are agents with values and transactions between them. Transactions generally follow the principle of least resistance in terms of revenue. Therefore, financial economy is a dynamical multi-dimensional vector field with moving dots that denote the agents with temporal evolution. This is scalar field with dots in multi-dimensional euclidean space. Next, build a directed topos on this space. This will be a directed graph that evolves in time. Now, 2 things: use the theory of networks and flows and describe the evolution with equations from Concrete Mathematics.
(c) Artem Serhiyovich Shafraniuk, 2011
{I take cash only}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Spin, Series;
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Panel2: TPanel;
Label5: TLabel;
Label6: TLabel;
Memo1: TMemo;
GroupBox1: TGroupBox;
Memo2: TMemo;
Chart1: TChart;
SpinEdit1: TSpinEdit;
Label7: TLabel;
Series1: TLineSeries;
Series2: TLineSeries;
Button1: TButton;
Label8: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form1: TForm1;
Unit2;
var
I, C, N : Word;
begin
C := 0;
N := 0;
for I := 1 to Length(Input) do
begin
Inc(N);
if Input[I] = '1' then Inc(C);
end;
if C / N < 0.5 then Next := True else Next := False;
end;
var
I : Word;
T : String;
begin
for I := 1 to N do
begin
if Next(Input) then T := '1' else T := '0';
Input := Input + T;
Prediction := Prediction + T;
end;
end;
var
x1, x2, y1, y2 : Real;
k, I : Word;
b : Boolean;
begin
x1:= StrToFloat(Form1.Edit1.Text);
x2:= StrToFloat(Form1.Edit3.Text);
y1:= StrToFloat(Form1.Edit2.Text);
y2:= StrToFloat(Form1.Edit4.Text);
if y1 < y2 then
begin
k := Round((y2/(y2+y1))*20);
b := True;
end else
begin
k := Round((y1/(y1+y2))*20);
b := False;
end;
Pref := '';
for I := 1 to 20 do
begin
if b then
begin
if I <= k then Pref:=Pref+'0' else Pref:=Pref+'1';
end else
begin
if I >= k then Pref:=Pref+'0' else Pref:=Pref+'1';
end;
end;
procedure FillTicks(P, R:String);
var
I : Word;
K : LongInt;
U : Integer;
begin
U := 0;
with Form1 do
begin
Chart1.Series[1].Clear;
for I := 1 to SpinEdit1.Value + 20 do
begin
if P[I] = '0' then Dec(U) else Inc(U);
Chart1.Series[1].AddXY(I, U, '', clTeeColor);
end;
end;
with Form1 do
begin
Chart1.Series[0].Clear;
for I := 1 to Length(R) do
begin
if R[I] = '0' then Dec(U) else Inc(U);
Chart1.Series[0].AddXY(I, U, '', clTeeColor);
end;
end;
end;
var
P, R : String;
begin
BuildPref(P);
PredictN(P,SpinEdit1.Value,R);
FillTicks(P+R, P);
end;
begin
AboutBox.Show;
end;
// license cost $20000 per an individual person
// email me to get a license
//
// Copyright 2010 by Artem
// Serhiyovich Shafraniuk,
object Form1: TForm1
Left = 245
Top = 254
Width = 870
Height = 640
Caption = '_finus'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDefaultPosOnly
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 572
Width = 862
Height = 41
Align = alBottom
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 16
Width = 65
Height = 13
Caption = 'NATURAL x1'
end
object Label2: TLabel
Left = 208
Top = 16
Width = 42
Height = 13
Caption = 'REAL y1'
end
object Label3: TLabel
Left = 408
Top = 16
Width = 65
Height = 13
Caption = 'NATURAL x2'
end
object Label4: TLabel
Left = 608
Top = 16
Width = 42
Height = 13
Caption = 'REAL y2'
end
object Edit1: TEdit
Left = 80
Top = 8
Width = 121
Height = 21
TabOrder = 0
Text = '1'
end
object Edit2: TEdit
Left = 256
Top = 8
Width = 121
Height = 21
TabOrder = 1
Text = '8,2'
end
object Edit3: TEdit
Left = 480
Top = 8
Width = 121
Height = 21
TabOrder = 2
Text = '2'
end
object Edit4: TEdit
Left = 656
Top = 8
Width = 121
Height = 21
TabOrder = 3
Text = '9,8'
end
object Button1: TButton
Left = 784
Top = 8
Width = 67
Height = 25
Caption = 'Run'
TabOrder = 4
OnClick = Button1Click
end
end
object Panel2: TPanel
Left = 704
Top = 0
Width = 158
Height = 572
Align = alRight
TabOrder = 1
object Label5: TLabel
Left = 16
Top = 8
Width = 92
Height = 208
Caption =
'_finus is a financial predictor in public shareware. NO PROFIT U' +
'SE! (prohibited). For LICENSE $20000, buy with source code and use ' +
'it as you like, 1 person. to print, use Print Screen key on keyb' +
'oard and paste as a picture, then print. Extrapolates from two '
WordWrap = True
end
object Label6: TLabel
Left = 16
Top = 224
Width = 59
Height = 117
Caption =
'price tick points. x1,x2-days: x2,y2-prices. What plays a role i' +
's the period between points'
WordWrap = True
end
object Label7: TLabel
Left = 96
Top = 304
Width = 46
Height = 13
Caption = 'pr. TICKS'
end
object Label8: TLabel
Left = 88
Top = 216
Width = 65
Height = 81
Caption = 'Note: REAL NUMBERS HAVE , not . inside'
WordWrap = True
end
object Memo1: TMemo
Left = 0
Top = 464
Width = 153
Height = 105
Lines.Strings = (
'Copyright 2010 by Artem '
'Serhiyovich Shafraniuk,'
'artem.shafraniuk@gmail.com'
'ashafraniuk@yahoo.com'
'to license, email!')
TabOrder = 0
end
object GroupBox1: TGroupBox
Left = 8
Top = 352
Width = 145
Height = 105
Caption = 'IDEA'
TabOrder = 1
object Memo2: TMemo
Left = 8
Top = 32
Width = 129
Height = 65
Lines.Strings = (
'1. feedback servosystem'
'2. discrete wavelet'
'3. binary stability'
'4. digital extrapolation')
TabOrder = 0
end
object Button2: TButton
Left = 56
Top = 8
Width = 75
Height = 17
Caption = '<?source>'
TabOrder = 1
OnClick = Button2Click
end
end
object SpinEdit1: TSpinEdit
Left = 96
Top = 320
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 80
end
end
object Chart1: TChart
Left = 0
Top = 0
Width = 704
Height = 572
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
'price WALK')
Align = alClient
TabOrder = 2
object Series1: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clBlue
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = True
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series2: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clRed
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = True
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
end
end
end