Nxt Forum

Please login or register.

Login with username, password and session length
Advanced search  

News:

Latest Nxt Client 1.11.8 - NEW RELEASE: Ardor 2.0.3e TestNet IS LAUNCHED!

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Topics - ifinta

Pages: [1]
1
Please see: https://nxtforum.org/index.php?topic=13102.msg229430#msg229430
and
https://www.facebook.com/groups/251738521921145/

We, a group of Hungarian people, would like to use nxtforum.org and NXT - against nuclear hazards, ...
Can somebody help us?

2
Nxt Promotion / a picture
« on: January 22, 2017, 03:51:04 pm »
Any opinion?
Feel free to use it :)


3
Hallo,
Ich suche eine Kontakt in Bereich "nuclear hasards" in deutsche Gebieten. Ich möchte was tun, basierend auf NXT, gegen "nuclear hasards", Atomkraftwerke, Atomwaffen, u.s.w... Eine englische Erklärung, Beispiel ist hier:

https://nxtforum.org/index.php?topic=13102.0

4
I would like to establish a club:
The NXT Nuclear Regulatory Commission

start - From today
target - To show how many people are actually active in the crypto world against nuclear hazards. Act politically in different countries for this target also. i.e.: Act to dismantle the nuclear weapons.
membership fee - You should pay some NXT weekly to this NXT account: NXT-KEBX-4722-NRWF-CBWPF and you is a member. You can vary your payments. If you pay at least 1 NXT - you wish remain a member in the whole calender month - if you pay at least 10 NXT then you wish remain member in the whole calender year.
rules - This club remain open for everybody to join, and you can leave it if you wish. If you leaved the club you can join later. All payments will be used to support the target of this club.

Why is NXT a good tool for this club?
- NXT is ready to use
- NXT is well tested
- NXT has a great community
- NXT has great programmers
- NXT is a distibuted peer to peer system
- anonymous
- international
- NXT has a messaging system with encryption
- NXT has a voting system
- NXT has a value
- NXT is now cheap enough
u.s.w.

NXT poll: https://nxtportal.org/polls/17647596660647639058

What do you think about the NXT club:
The NXT Nuclear Regulatory Commission
For more see my post in https://nxtforum.org/news-and-announcements/(ann)-the-nxt-nuclear-regulatory-commission/
Please select only one option.

- We have http://www.nrc.gov/ . US has an enough force, through nuclear weapons, to act, if needed.
- We needs our life and a biological healthy earth. I will act against nuclear hazards.
- We can't do anything against nuclear hazards.
- Nuclear hazards are needed for our economy, so we must accept it.
- We living well with nuclear hazards.
- I don't understand the post.
- This is a scam only.

I made a mistake in the polll: I typed "hasard" instead of "hazard"... Sorry.
You can read more about this new crowdsale type: https://bitcointalk.org/index.php?topic=1694015.0

5
Alternate Cryptocurrencies / News about Horizon
« on: December 03, 2015, 10:20:31 am »

6
Voting System / Perl script to reward of voting...
« on: October 11, 2015, 10:03:05 pm »
GIT repository: https://github.com/ifinta/rewardPollVotes

Code: [Select]
#!/usr/bin/perl -w

use strict;
use JSON -support_by_pp;
use JSON::RPC::Client;
use warnings;
use LWP::Simple;
use LWP::UserAgent;
use Data::Dumper;
use Term::ReadKey;
use Scalar::Util qw(looks_like_number);

$| = 1;

my $port = '7876';

my $lwp = LWP::UserAgent->new;
$lwp->agent("perl $]");
my $json = new JSON;

my $client = new JSON::RPC::Client;

print 'Poll id?:';
my $poll = <STDIN>;
chomp($poll);

my $pollinfo = getPoll($poll);

print 'Account RS?:';
my $account = <STDIN>;
chomp($account);

ReadMode ('noecho');
print 'Account secret phrase?:';
my $secret = <STDIN>;
chomp($secret);
print "\n";
ReadMode ('restore');

print 'Asset id (for NXT type "NXT")?:';
my $asset = <STDIN>;
chomp($asset);

my $assetinfo = getAsset($asset);

print 'Amount?:';
my $menge = <STDIN>;
chomp($menge);

print 'How much confirmation of vote do you suggest till reward? (Enter a number - max. 720 - or press enter for not checking it):';
my $confirmations = <STDIN>;
chomp($confirmations);

if(looks_like_number($confirmations) && $confirmations > 720)
{
$confirmations = 720;
}

my $mengeqnt;

print "\n\n\n";
print 'Poll :'.$pollinfo->{name}."\n";
print 'Account RS :'.$account."\n";
if($asset eq 'NXT')
{
print 'Transmitting '.$menge." NXT pro vote...\n";
$mengeqnt = (10**8)*$menge;
print "amount in NQT:".$mengeqnt."\n";
}
else
{
print 'Transmitting '.$menge.' '.$assetinfo->{name}." pro vote...\n";
$mengeqnt = (10**($assetinfo->{decimals}))*$menge;
print "amount in QNT:".$mengeqnt."\n";
}

if(looks_like_number($confirmations))
{
print 'Rewards will be sent only after '.$confirmations." confirmation of vote.\n" ;
}
else
{
print "Rewards will be sent as soon as possible after voting. Confirmations of vote will be not checked.\n";
}

print "\nOk?[Y/n]:";
my $feedback = <STDIN>;
chomp($feedback);

die 'Aborted...' unless $feedback eq '' || $feedback eq 'Y' || $feedback eq 'y' || $feedback eq 'yes';

while (1) {
  doit();
  if($pollinfo->{finished})
  {
print "The poll has been finished...\n";
exit(0);
  }
  sleep(30);
  $pollinfo = getPoll($poll);
}

sub doit
{
  eval{
my $pollvotes = getPollVotes($poll);

#print Dumper($pollvotes);

# first: get unconfirmed txs.
# second: get confirmed txs.
# so there is no lost transactions, perhaps doubling...
my $unconftxs = getAllUnconfTx($account);

#print Dumper($unconftxs);

my $transactions = getAllTxWithMessage($account);

#print Dumper($transactions);

my @voters = getVotersWithoutReward($transactions, $unconftxs, $pollvotes);
my $voter;

foreach $voter (@voters)
{
my $sendresp = sendReward($voter, $mengeqnt, 'Thank you for voting... (Poll:'.$poll.'; '.$pollinfo->{name}.')');
print $voter." - reward sent...\n";
#print Dumper($sendresp);
}
  };
  # catch crashes:
  if($@){
    print " ERR $@\n";
  }
}

sub getJSON {
        my ($raw) = shift;

        my $res = $json->allow_nonref->utf8->relaxed->escape_slash->loose->allow_singlequote->allow_barekey->decode($raw->content);

        return $res;
};

sub getPollVotes {
my ($pl) = shift;
        my $req = HTTP::Request->new(GET => 'http://localhost:'.$port.'/nxt?requestType=getPollVotes&includeWeights=true&poll='.$pl);
        my $res = $lwp->request($req);

        my $json_res = getJSON($res);

return $json_res;
};

sub getPoll {
my ($pl) = shift;
        my $req = HTTP::Request->new(GET => 'http://localhost:'.$port.'/nxt?requestType=getPoll&poll='.$pl);
        my $res = $lwp->request($req);

        my $json_res = getJSON($res);

return $json_res;
};

sub getAsset {
my ($ast) = shift;
        my $req = HTTP::Request->new(GET => 'http://localhost:'.$port.'/nxt?requestType=getAsset&asset='.$ast);
        my $res = $lwp->request($req);

        my $json_res = getJSON($res);

return $json_res;
};

sub getAllTxWithMessage {
my ($acc) = shift;
        my $req = HTTP::Request->new(GET => 'http://localhost:'.$port.'/nxt?requestType=getBlockchainTransactions&withMessage=true&account='.$acc);
        my $res = $lwp->request($req);

        my $json_res = getJSON($res);

return $json_res;
};

sub getAllUnconfTx {
my ($acc) = shift;
        my $req = HTTP::Request->new(GET => 'http://localhost:'.$port.'/nxt?requestType=getUnconfirmedTransactions&account='.$acc);
        my $res = $lwp->request($req);

        my $json_res = getJSON($res);

return $json_res;
};

sub sendReward {
        my ($rec, $men, $msg) = @_;

        my $req = HTTP::Request->new(POST => 'http://localhost:'.$port.'/nxt');
        $req->content_type('application/x-www-form-urlencoded');

if($asset eq 'NXT')
{
        $req->content("requestType=sendMoney&recipient=".$rec."&message=".$msg."&messageIsPrunable=true&amountNQT=".$men."&secretPhrase=".$secret."&feeNQT=100000000&deadline=1440");
}
else
{
        $req->content("requestType=transferAsset&recipient=".$rec."&asset=".$asset."&message=".$msg."&messageIsPrunable=true&quantityQNT=".$men."&secretPhrase=".$secret."&feeNQT=100000000&deadline=1440");
}

        my $res = $lwp->request($req);

#print Dumper($res);

        die "Request failed!" unless $res->is_success;

        my $json_res = getJSON($res);

#print Dumper($json_res);

        return $json_res;
};

sub getVotersWithoutReward {
my ($txs, $utxs, $plvts) = @_;

my @allvtrs = getAllVoters($plvts);
my @alltxsr = getAllTxsRecipient($txs, $utxs);

my %in_alltxsr = map {$_ => 1} @alltxsr;
my @vts  = grep {not $in_alltxsr{$_}} @allvtrs;

return @vts;
}

sub getTransaction {
my ($id) = shift;
        my $req = HTTP::Request->new(GET => 'http://localhost:'.$port.'/nxt?requestType=getTransaction&transaction='.$id);
        my $res = $lwp->request($req);

        my $json_res = getJSON($res);

return $json_res;
}

sub checkTransaction {
my ($tx) = shift;
my $res = 1;

if(looks_like_number($confirmations) && $tx->{confirmations} < $confirmations)
{
$res = 0;
}

return $res;
}

sub checkVote {
my ($vt) = shift;
my $res = 0;

#print Dumper($vt);

if($pollinfo->{finished})
{
$res = 1;
}
else
{
my $wg = $vt->{weight};
my $tx = getTransaction($vt->{transaction});

#print Dumper($tx);

if(defined $wg)
{
if($wg > 0)
{
$res = checkTransaction($tx);
}
}

# "old" transactionen filtern (I hope - it was rewarded soon)
my $con = looks_like_number($confirmations) ? $confirmations : 0;
my $txcon = $tx->{confirmations};
if((!defined $txcon) || $txcon > $con + 720)
{
$res = 0;
}
}

return $res;
}

sub getAllVoters {
my ($vtrs) = shift;
my $vtr;
my @res;

my $tmp = $vtrs->{votes};

foreach $vtr (@$tmp)
{
if(checkVote($vtr))
{
push(@res, $vtr->{voterRS});
}
}

return @res;
}

sub getAllRecipients {
my ($tmp, $res) = @_;
my $tx;

foreach $tx (@$tmp)
{
my $msg = $tx->{attachment}->{message};

if(defined $msg && $msg =~ /.*Poll:(.*); / && ($1 eq $poll))
{
push(@{$res}, $tx->{recipientRS});
}
}
}

sub getAllTxsRecipient {
my ($txsr, $utxsr) = @_;
my @res;

my $tmp = $txsr->{transactions};
getAllRecipients($tmp, \@res);

$tmp = $utxsr->{unconfirmedTransactions};
getAllRecipients($tmp, \@res);

# do not reward the vote of poll creator and rewarding account...
push(@res, $account);
push(@res, $pollinfo->{accountRS});

return @res;
}


Usage:
 - Check the code.
 - Install perl with modules needed.
 - Start script.
 - Type inputs (Poll ID, Rewarding account RS, Rewarding account secret phrase, NXT or asset ID, Amount, Minimum confirmations = n).
 - Check the values.
 - Press enter if you want to continue...

If somebody voting (after n, maximum 720 confirmations) the reward will be sent...

Example (I restarted it...):
Code: [Select]
ifinta@debian-imx6:~$ ./rewardPollVotes
Poll id?:13744876112647352488
Account RS?:NXT-7MYJ-SUQ8-H782-DPHZ9
Account secret phrase?:
Asset id (for NXT type "NXT")?:649027262925057466
Amount?:0.01
How much confirmation of vote do you suggest till reward? (Enter a number - max. 720 - or press enter for not checking it):



Poll :Family budget in a month.
Account RS :NXT-7MYJ-SUQ8-H782-DPHZ9
Transmitting 0.01 FamilyFund pro vote...
amount in QNT:100
Rewards will be sent as soon as possible after voting. Confirmations of vote will be not checked.

Ok?[Y/n]:
NXT-WJYE-LXZQ-7LAQ-GHCNJ - reward sent...


This example just running online - You can try it :)

7
Alias System / Alias as a check
« on: July 03, 2015, 08:27:04 pm »
An alias is very similar to a bank check.

- It has an issuer.
- It has an actual owner.
- You can transfer it.
- You can sell and buy it.

My proposal is:

<n>check<sn><currency><value>

<n> is a NXT account's ID (numerical, not RS). This account issued this alias. If not, does not matter (it is a scam).
<sn> a randomly or incrementally serial number
<currency> a currency
<value> the value of the check

for example:

16850671977888229764check0001USD100

It represents an USD100 check.
The Issuer expresses its ability and its willingness to transfer 100 USD to somebody's real bank account.

You can buy it for NXT for example. Then you can transfer it to another person. It will represent a claim about 100 USD for the Issuer.
If somebody wants claim the value from the Issuer, then the Issuer will transfer 100 USD her/him against the check.

If the Issuer does not transfer - the actual owner can create an alias-sell-order in NXT system with a NXT value and the Issuer as a buyer - everybody can see that the Issuer does not pay - so the Issuer of this check is a scammer. (check is overdrafted)

Can you please comment...

8
Assets Board / [ANN] IspeakXX
« on: June 01, 2015, 11:01:25 pm »
Issuer Account:

NXT-HJJ6-8UEV-G8RA-936U4

Assets + ID's:

IspeakEN - 14319046526130976103
IspeakFR - 13164989364371330737
IspeakDE - 5054217304674166566
IspeakHU - 3904430164972563757
IspeakES - 12686665223595476266
IspeakZH - 14038671919704470554
IspeakRU - 11376077376020726149
IspeakEL - 3879169338770206916

These assets represent that the owner speaks that language (english, french, german, hungarian, spanish, chinese, russian, greek). The more assets you have, the better is your language knowledge. 1 shares means mother language level. 0.01 shares means - I using a translator, i.e.: from google, facebook, a friend...

No dividend.

Please love, support and use it...

9
BestMusic
For a sample browser of the BestMusic asset please see the myFavourite alias...

Issuer:
NXT-ZV6C-2Z3A-P9SS-8WFZ6

Asset ID:
7886298454495058445

Idea:

Blockchain based content publishing mixed with a gambling.

Dividents:

There are no dividends. Assetholders are simple content publishers. They pay some money for some place in the web.

Gambling, Prize:

The Publishers of the maximal top 10 really music site (Must be clean. Not a scam, malware, ... Checking is performed by the Issuer.) participate weekly in a drawing.
The prize will be shared equally among the maximum 10 winners. The prize is 40% of the weekly profit in NXT earned by the issuer.
The weekly deadline for the drawing is saturday 15:00 UTC. Publishing of the winners and payments will be implemented til the next day 15:00 UTC.

The first drawing will be performed on the first saturday 15:00 UTC in July this Year (2015). Up to the first drawing is the price of BestMusic asset is 1 NXT. The full revenue until this day will be calculated as a profit in the first drawing.

Weekly profit:

The Issuer sells and buys the BestMusic asset. The weekly profit in NXT calculated from the weekly revenue minus the fees. 40% of the profit is used to make new buy positions on the BestMusic asset. 20% of the profit will support the development and reward the idea.



10
Alias System / Alias as an attribute or feature
« on: April 18, 2015, 09:05:13 pm »
I will use the Alias system to store attributes or features of an account or its owner.

The key of such an alias should be:

<n><attr>

<n> is a NXT account's ID (numerical, not RS). This account owns this alias. If not, does not matter.
<attr> is a name of an attribute

for example:

7097035329320774794bestMusic

or

16850671977888229764bestMusic

This alias should contain an URL to the favourite music of the account's owner.

Can you please comment...

To see (or maybe try) it in work, please read:
https://nxtforum.org/assets-board/%28ann%29-bestmusic-asset-let%27s-get-to-know-each-others-favourites/

11
Introduce Yourself / Hello!
« on: April 18, 2015, 10:11:33 am »
class Hello {
    public static void main(String[] args) {   
        System.out.println("Hello NXT Community!");
        System.out.println("I am an engineer.");
        System.out.println("I like crypto's, C, C++ and Java.");
        System.out.println("I find the code of NXT clear and very well structured.");
        System.out.println("I have some ideas with NXT.");
        System.out.println("Thank you for NXT, the community and the attention...");
    }
}

Pages: [1]