Bitcoin Forum

/home/user/balances

LTU2cds4aSdXFip9sV4gXphnhxGQjgfjmg
LQL9pVH1LsMfKwt82Y2wGhNGkrjF8vwUst
LPpHectVSbk7YHa5X89Cm3FoFBfzkJBJc9
LRcYfbDMhwvXaGPFccaKuc3fZD1Nb55aGn
LY5fxZS74Ewuj1TTHwat23eUmZwimsksrU
Laub752qu81oWwkNKEyawyKruUC6cEyD2x
LbHBMZTQBq7aM5WS5TeKYJWH8pxeaLoRXe
LPpVeFSKvH593CChqP9qpV5toEXntekjiF
LZYCpYnV8VE4X7TbH8jjuvYPMfAugGLNAs
LfmG6qepmucU2aQaVJK4EJgBzQHeGz5ML4

#!/bin/bash
addresses=$(cat ltc_addresses.txt | grep -E -o "L[a-zA-Z0-9]{10,40}");

while read -r address;
do
   info=$(wget -qO- https://bitinfocharts.com/litecoin/address/$address --user-agent="Mozilla/5.0 (X11; Fedora; Linux x86_64; rv:52.0) Gecko/20100101 Firefox/52.0");
   balance=$(echo "$info" | grep "Balance" | grep -Eo "Balance.*[0-9]+([.][0-9]+)*.+LTC" | grep -Eo "[,0-9]+([.][0-9]+)*" | head -1 | sed "s/,//g");

   if [[ "$balance" == "" ]]; then
      balance="0";
   fi

   echo -e "$address\t$balance\tLTC";
done <<< "$addresses"

chmod 755 ltc_balances.sh

./ltc_balances.sh

LTU2cds4aSdXFip9sV4gXphnhxGQjgfjmg	1086671.28	LTC
LQL9pVH1LsMfKwt82Y2wGhNGkrjF8vwUst	897135.39	LTC
LPpHectVSbk7YHa5X89Cm3FoFBfzkJBJc9	897070.97	LTC
LRcYfbDMhwvXaGPFccaKuc3fZD1Nb55aGn	895520.96	LTC
LY5fxZS74Ewuj1TTHwat23eUmZwimsksrU	773647.37	LTC
Laub752qu81oWwkNKEyawyKruUC6cEyD2x	768207.51	LTC
LbHBMZTQBq7aM5WS5TeKYJWH8pxeaLoRXe	762497.23	LTC
LPpVeFSKvH593CChqP9qpV5toEXntekjiF	704140.10	LTC
LZYCpYnV8VE4X7TbH8jjuvYPMfAugGLNAs	700000.00	LTC
LfmG6qepmucU2aQaVJK4EJgBzQHeGz5ML4	694655.63	LTC

#!/bin/bash
path="/home/user/balances"
cd $path
echo "# LTC"
./ltc_balances.sh

#!/bin/bash
epoch=$(date +%s);

path="/home/user/balances";

$path/balances.sh > $path/balances.$epoch.txt

old=$(find $path -name "balances.*.txt" | uniq | sort | tail -n2 | head -n1);
new=$(find $path -name "balances.*.txt" | uniq | sort | tail -n1);

echo "comparing $old with $new";

hold=$(md5sum $old | cut -d " " -f 1);
hnew=$(md5sum $new | cut -d " " -f 1);

echo "comparing $hold with $hnew";

info="0";

if [[ $hold == $hnew ]]
then
   #info=$(wget -qO- "http://api.lima-city.de/sms?user_id=<user_id>&apikey=<api_key>&text=<ok_text>&number=<tel_number>");
   echo "ok"
else
   #info=$(wget -qO- "http://api.lima-city.de/sms?user_id=<user_id>&apikey=<api_key>&text=<not_ok_text>&number=<tel_number>");
   echo "data differs";
fi

echo "$info"

crontab -e

0 12 * * * /home/user/balances/check_balances.sh >> /home/user/balances/balances.out

sudo apt-get install r-base

#!/usr/bin/env Rscript

# which files are to be compared
args <- commandArgs(TRUE);

# if data is not formatted correctly, we want a corresponding message
tryCatch(
   {
      old <- read.table(file=args[1], sep="\t", quote="");
      new <- read.table(file=args[2], sep="\t", quote="");
   },
   error=function(cond){
      cat("error reading files\n");
      q();
   },
   warning=function(cond){
      cat("warning reading files\n");
      q();
   },
   finally={
   }
)

# give the data frames column names
colnames(old) <- c("ADDRESS", "AMOUNT", "CURRENCY");
colnames(new) <- c("ADDRESS", "AMOUNT", "CURRENCY");

# amounts to numbers since we do not want factors 
old[,"AMOUNT"] <- as.numeric(as.character(old[,"AMOUNT"]));
new[,"AMOUNT"] <- as.numeric(as.character(new[,"AMOUNT"]));

# test if all blockchain explorers responded
cold <- unique(old[,"CURRENCY"]);
cnew <- unique(new[,"CURRENCY"]);
if (length(cold) == length(cnew)){
   cat("");
} else {
   cat("currency missing, corresponding explorer might be down\n");
}

# get maximal number of currencies available in the files
currencies <- cold;
if (length(cnew) > length(cold))
   currencies <- cnew;

v <- c(); # vector of deltas
for (currency in currencies){
   # if all blockchain explorers worked (might still fail because explorer
   # can be unresponsive for some addresses in case of much traffic)
   if (currency %in% cold && currency %in% cnew){
      aold <- sum(old[old[,"CURRENCY"]==currency,"AMOUNT"]);
      anew <- sum(new[new[,"CURRENCY"]==currency,"AMOUNT"]);
      v <- c(v, anew - aold);
   }
   # if explorer failed for currency in new file
   if (currency %in% cold && !(currency %in% cnew)){
      aold <- sum(old[old[,"CURRENCY"]==currency,"AMOUNT"]);
      v <- c(v, 0 - aold);
   }
   # if explorer failed for currency in old file
   if (!(currency %in% cold) && currency %in% cnew){
      anew <- sum(new[new[,"CURRENCY"]==currency,"AMOUNT"]);
      v <- c(v, anew - 0);
   }
}

# test if deltas sum up to zero
if (sum(v) == 0){
   cat("ok\n");
} else {
   cat(paste(c(v, "\n"), collapse=" "));
}

#!/bin/bash
date=$(date);
epoch=$(date +%s);

path="/home/user/balances";

$path/balances.sh > $path/balances.$epoch.txt

old=$(find $path -name "balances.*.txt" | uniq | sort | tail -n2 | head -n1);
new=$(find $path -name "balances.*.txt" | uniq | sort | tail -n1);

echo "comparing $old with $new";

hold=$(md5sum $old | cut -d " " -f 1);
hnew=$(md5sum $new | cut -d " " -f 1);

echo "comparing $hold with $hnew";

# this is necessary for R producing no locale warnings, but might differ from OS to OS
LC_TIME=C;
LC_MONETARY=C;
LC_PAPER=C;
LC_MEASUREMENT=C;

out=$($path/sum_balances.R $old $new);
info="0";

if [[ "$out" == "ok" ]]
then
   sleep 0;
   #info=$(wget -qO- "http://api.lima-city.de/sms?user_id=<user_id>&apikey=<api_key>&text=<ok_text>&number=<tel_number>");
else
   sleep 0;
   # to make sure, that we get a message only once
   if [[ "hold" != "hnew" ]]
   then
      out="$date: $out";
      info=$(wget -qO- "http://api.lima-city.de/sms?user_id=<user_id>&apikey=<api_key>&text=$out&number=<tel_number>");
   fi
fi

echo "$out"
echo "$info"

Sat May  5 15:02:28 CEST 2018: 0 0 0 0 0 0 100

git clone https://github.com/sebicas/bitcoin-sniffer.git

cd bitcoin-sniffer

nano sniffer.py -c

MY_VERSION = 31800

<Nutzer>@<Rechner>:~/Downloads/bitcoin-sniffer$ ./sniffer.py | grep --line-buffered 1NDyJtNTjmwk5xPNhjgAMu4HDHigtobu1s
     To: 1NDyJtNTjmwk5xPNhjgAMu4HDHigtobu1s BTC: 2.65915878
     To: 1NDyJtNTjmwk5xPNhjgAMu4HDHigtobu1s BTC: 4.77593269
     To: 1NDyJtNTjmwk5xPNhjgAMu4HDHigtobu1s BTC: 1.03436037
     ...