Topic: Suche SMS Gateway, welches sich mit Bitcoin aufladen lässt? (Read 256 times)

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

cd bitcoin-sniffer

nano sniffer.py -c

MY_VERSION = 31800

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=&apikey=&text=&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=&apikey=&text=$out&number=");
   fi
fi

echo "$out"
echo "$info"

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

/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=&apikey=&text=&number=");
   echo "ok"
else
   #info=$(wget -qO- "http://api.lima-city.de/sms?user_id=&apikey=&text=&number=");
   echo "data differs";
fi

echo "$info"