GotAI.NET

Форум: Проблемы искусственного интеллекта

 

Регистрация | Вход

 Все темы | Новая тема Стр.2 (2)<< < Пред.   Поиск:  
 Автор Тема: На: Алгоритмы и примеры кода
PavelZX
Сообщений: 730
На: Алгоритмы и примеры кода
Добавлено: 21 июн 19 7:14
Цитата:
Автор: гость

с этими файлообменниками постоянно засада. Умеете base64 читать?
И зачем такие сложности? Зачем нужен скомпилированный в exe файл, без исходников? Вирус что ли?
[Ответ][Цитата]
гость
23.129.64.*
На: Алгоритмы и примеры кода
Добавлено: 21 июн 19 7:57
Цитата:
Автор: PavelZX

И зачем такие сложности? Зачем нужен скомпилированный в exe файл, без исходников? Вирус что ли?
Ну, скомпилировать тоже нужно уметь, вот Вам исходник:

main.c

#define _CRT_SECURE_NO_WARNINGS
#include <stdio.h>
#include <stdlib.h>

#define _WINSOCK_DEPRECATED_NO_WARNINGS

#include <winsock2.h>
#include <windows.h>
#include <ws2tcpip.h>
#pragma comment(lib, "Ws2_32.lib")


// "api.bittrex.com" "/api/v1.1/public/getticker?market=USD-BTC"
char* WebRequest(const char* h, const char* s)
{
char get_http[1000];
sprintf(get_http, "GET %s HTTP/1.1\r\nHost: %s\r\nConnection: close\r\n\r\n", s, h);

WSADATA wsaData;
WSAStartup(MAKEWORD(2, 2), &wsaData);

SOCKET Socket = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
struct hostent *host = gethostbyname(h);

SOCKADDR_IN SockAddr;
SockAddr.sin_port = htons(80);
SockAddr.sin_family = AF_INET;
SockAddr.sin_addr.s_addr = *((unsigned long*)host->h_addr);

connect(Socket, (SOCKADDR*)(&SockAddr), sizeof(SockAddr));
send(Socket, get_http, strlen(get_http), 0);

const int length = 1000;
char buffer[1000];
char* tmp = malloc(1000000);
char* text = tmp;

int l = 0;
while ((l = recv(Socket, buffer, length, 0)) > 0)
for (int i = 0; i < l; ++i) *tmp++ = buffer[i];

*tmp = 0;

closesocket(Socket);

WSACleanup();

return text;

}


char* find(char* text, const char* word)
{
char* p = text;

while (*p++)
{
char b = 1;
char* pp = p;
const char* w = word;
while (*w) if (*w++ != *pp++) { b = 0; break; }

if (b) return p;
}
return 0;
}


int main(int argc, char* argv[])
{
char* text = WebRequest("api.bittrex.com", "/api/v1.1/public/getticker?market=USD-BTC");

char* f = find(text, "Bid");
char* l = find(f, "}}");

for (char* p = f; p != l; p++) printf("%c", *p);

getchar();
}
[Ответ][Цитата]
гость
188.170.81.*
На: Алгоритмы и примеры кода
Добавлено: 22 июн 19 1:14
L.> Я Вас сюда не звал.

нельзя не отметить, что ляльку с ее обычными кучами помета ('гнать программистов') никто не звал в ветку, посвященную - внимание - алгоритмам и примерам кода.. хоть в одной ветке кодеры и алгоритмисты имеют право поговорить без идиотских фийлолохий и истерик..
[Ответ][Цитата]
PavelZX
Сообщений: 730
На: Алгоритмы и примеры кода
Добавлено: 22 июн 19 1:56
Изменено: 22 июн 19 8:17
Цитата:
Автор: гость

L.> Я Вас сюда не звал.

нельзя не отметить, что ляльку с ее обычными кучами помета ('гнать программистов') никто не звал в ветку, посвященную - внимание - алгоритмам и примерам кода.. хоть в одной ветке кодеры и алгоритмисты имеют право поговорить без идиотских фийлолохий и истерик..
Почищу потом тему.

Очень неудобный форум для модерации. Настоятельно рекомендую поддержать идею создания нового ресурса, для более приятной и комфортной работы над решением проблем ИИ...
[Ответ][Цитата]
PavelZX
Сообщений: 730
На: Алгоритмы и примеры кода
Добавлено: 22 июн 19 8:45

defmodule NeuralNetwork do
@moduledoc """
Код, который иллюстрирует, как рассчитать выход нейрона, используя несколько
   Передаточных функций. Ниже вы увидите реализацию на основе эликсира
   из этих различных функций активации.
   Тут также имеется код, который вычисляет ошибки вывода нейронов.
   Локальная ошибка и формулы глобальной ошибки также можно увидеть в этом файле.
"""
defmodule Neuron do
defstruct [inputs: [], weights: [], bias: nil]
end
def calculate_output(:linear, neuron) when is_map(neuron) do
summation(neuron.inputs, neuron.weights)
|> add_bias(neuron)
|> linear
end
def calculate_output(:saturating_linear, neuron) when is_map(neuron) do
summation(neuron.inputs, neuron.weights)
|> add_bias(neuron)
|> saturating_linear
end
def calculate_output(:symmetric_saturating_linear, neuron) when is_map(neuron) do
summation(neuron.inputs, neuron.weights)
|> add_bias(neuron)
|> symmetric_saturating_linear
end
def calculate_output(:hard_limit, neuron) when is_map(neuron) do
summation(neuron.inputs, neuron.weights)
|> add_bias(neuron)
|> hard_limit
end
def calculate_output(:positive_linear, neuron) when is_map(neuron) do
summation(neuron.inputs, neuron.weights)
|> add_bias(neuron)
|> positive_linear
end
def calculate_output(:sigmoid, neuron) when is_map(neuron) do
summation(neuron.inputs, neuron.weights)
|> add_bias(neuron)
|> sigmoid
end
def calculate_output(:symmetrical_hard_limit, neuron) when is_map(neuron) do
summation(neuron.inputs, neuron.weights)
|> add_bias(neuron)
|> symmetrical_hard_limit
end
def calculate_output(:hyperbolic_tangent, neuron) when is_map(neuron) do
summation(neuron.inputs, neuron.weights)
|> add_bias(neuron)
|> :math.tanh
end
@doc """
Линейная функция ошибок, используемая для расчета ошибки для одного нейрона.
"""
def calculate_local_error(actual, ideal), do: ideal - actual
@doc """
Функция глобальной ошибки, используемая для расчета ошибки всей
     Нейронной сети.
     `MSE`, также известная как среднеквадратическая ошибка, наиболее часто используемая в
нейронных сетях.
"""
def calculate_global_error(:mse, error_calculations) when is_list(error_calculations) do
actual =
Enum.map(error_calculations, &:math.pow(&1, 2))
|> Enum.sum
error = actual / length(error_calculations)
"MSE ERROR: #{error}%"
end
@doc """
Функция глобальной ошибки, используемая для расчета ошибки всей
    Нейронной сети. Это обычно используется в архитектуре нейронной сети LMA.
    ESS - это сокращение от суммы квадратов ошибок.
"""
def calculate_global_error(:ess, error_calculations) when is_list(error_calculations) do
errors =
Enum.map(error_calculations, &:math.pow(&1, 2))
|> Enum.sum
total_errors = errors / 2
"ESS ERROR TOTAL: #{total_errors}"
end
def summation([], []), do: 0
def summation(inputs, weights) when is_list(inputs) and is_list(weights) do
[i1 | i_tail] = inputs
[w1 | w_tail] = weights
(i1 * w1) + summation(i_tail, w_tail)
end
def add_bias(calc, neuron), do: calc + neuron.bias
defp sigmoid(calculation), do: 1 / (1 + :math.exp(-calculation))
defp positive_linear(calc) when calc < 0 , do: 0
defp positive_linear(calc) when 0 <= calc, do: calc
defp hard_limit(calc) when calc < 0, do: 0
defp hard_limit(calc) when calc >= 0, do: 1
defp symmetrical_hard_limit(calc) when calc < 0, do: -1
defp symmetrical_hard_limit(calc) when calc >= 0, do: 1
defp symmetric_saturating_linear(calc) when calc < -1, do: -1
defp symmetric_saturating_linear(calc) when -1 <= calc and calc <= 1, do: calc
defp symmetric_saturating_linear(calc) when calc > 1, do: 1
defp saturating_linear(calc) when calc < 0, do: 0
defp saturating_linear(calc) when calc <= 0 and calc <= 1, do: calc
defp saturating_linear(calc) when calc > 1, do: 1
defp linear(calc) when is_float(calc), do: calc
end
[Ответ][Цитата]
гость
199.249.230.*
На: Алгоритмы и примеры кода
Добавлено: 22 июн 19 13:40
Какой ещё нахуй эликсир?

// The contents of this file are in the public domain. See LICENSE_FOR_EXAMPLE_PROGRAMS.txt
/*

This is an example illustrating the use of the multilayer perceptron
from the dlib C++ Library.

This example creates a simple set of data to train on and shows
you how to train a mlp object on that data.


The data used in this example will be 2 dimensional data and will
come from a distribution where points with a distance less than 10
from the origin are labeled 1 and all other points are labeled
as 0.

*/


#include <iostream>
#include <dlib/mlp.h>

using namespace std;
using namespace dlib;


int main()
{
// The mlp takes column vectors as input and gives column vectors as output. The dlib::matrix
// object is used to represent the column vectors. So the first thing we do here is declare
// a convenient typedef for the matrix object we will be using.

// This typedef declares a matrix with 2 rows and 1 column. It will be the
// object that contains each of our 2 dimensional samples. (Note that if you wanted
// more than 2 features in this vector you can simply change the 2 to something else)
typedef matrix<double, 2, 1> sample_type;


// make an instance of a sample matrix so we can use it below
sample_type sample;

// Create a multi-layer perceptron network. This network has 2 nodes on the input layer
// (which means it takes column vectors of length 2 as input) and 5 nodes in the first
// hidden layer. Note that the other 4 variables in the mlp's constructor are left at
// their default values.
mlp::kernel_1a_c net(2,5);

// Now let's put some data into our sample and train on it. We do this
// by looping over 41*41 points and labeling them according to their
// distance from the origin.
for (int i = 0; i < 1000; ++i)
{
for (int r = -20; r <= 20; ++r)
{
for (int c = -20; c <= 20; ++c)
{
sample(0) = r;
sample(1) = c;

// if this point is less than 10 from the origin
if (sqrt((double)r*r + c*c) <= 10)
net.train(sample,1);
else
net.train(sample,0);
}
}
}

// Now we have trained our mlp. Let's see how well it did.
// Note that if you run this program multiple times you will get different results. This
// is because the mlp network is randomly initialized.

// each of these statements prints out the output of the network given a particular sample.

sample(0) = 3.123;
sample(1) = 4;
cout << "This sample should be close to 1 and it is classified as a " << net(sample) << endl;

sample(0) = 13.123;
sample(1) = 9.3545;
cout << "This sample should be close to 0 and it is classified as a " << net(sample) << endl;

sample(0) = 13.123;
sample(1) = 0;
cout << "This sample should be close to 0 and it is classified as a " << net(sample) << endl;
}

[Ответ][Цитата]
IvanVlaskin1976
Сообщений: 566
На: Алгоритмы и примеры кода
Добавлено: 24 июн 19 2:52
Ссылки виртуального диска проэкта Универсальной Экспертной Системы (УЭС, UES)
https://hdd.tomsk.ru/desk/stdttswa - для чтения
[Ответ][Цитата]
IvanVlaskin1976
Сообщений: 566
На: Алгоритмы и примеры кода
Добавлено: 24 июн 19 3:52
компилировать в Linux
$ c++ -o UES_v_3_33 UES_v_3_33.cpp

запускать
$ ./UES_v_3_33

это для чайников информация

вообще там много отладочной информации и пункты меню не доделаны все
[Ответ][Цитата]
гость
79.164.138.*
На: Алгоритмы и примеры кода
Добавлено: 28 июн 19 2:48
Цитата:
Автор: Egg


Две причины: производительность и данные... Первого катастрофически нехватает, а вторые неправильно представляют...


У меня очень простой вопрос. Представим, что у Вас есть необходимый ресурс "производительности и данных", что Вы начнёте создавать? ИИ? Вопрос: что он будет делать, какая цель, Что такое ИИ? Ответ "Всё" не проходит. Прошу конкретики.
[Ответ][Цитата]
Luarvik.
Сообщений: 15993
На: Алгоритмы и примеры кода
+1
Добавлено: 28 июн 19 6:48
Я все чаще подумываю - а не свалить ли отсюда вообще ?
Какая-то здесь совсем уж патологическая безнадега.
[Ответ][Цитата]
sma63
Сообщений: 708
На: Алгоритмы и примеры кода
Добавлено: 28 июн 19 7:04
Ничего не поделаешь. Очередной кризис жанра ИИ. Вернетесь при очередной его реинкарнации.
[Ответ][Цитата]
sma63
Сообщений: 708
На: Алгоритмы и примеры кода
Добавлено: 28 июн 19 7:19
Изменено: 28 июн 19 7:20
Фантазеры посрамлены, победили скептики, в который уже раз. Хотя, кто-то возразит: Критиковать легко. На что придется ответить что: фантазировать - еще легче.
[Ответ][Цитата]
PavelZX
Сообщений: 730
На: Алгоритмы и примеры кода
Добавлено: 03 июл 19 1:06
Цитата:
Автор: sma63

Фантазеры посрамлены, победили скептики, в который уже раз. Хотя, кто-то возразит: Критиковать легко. На что придется ответить что: фантазировать - еще легче.



import java.io.File; import java.io.FileInputStream; import java.io.FileNotFoundException; import java.io.IOException; import java.io.InputStream; import java.io.PrintStream; import java.util.logging.Level; import java.util.logging.Logger; public class FileToHexExample {     private static final String FILENAME = "c:\Projects\J4Web.Ru\Src\"             + "JavaIO\FileToHexExample\file.txt";     public static void main(String[] args) {         try {             // Пepeвoдиm cихoдный фaйл в Hex-пpeдcтaвлeниe и пeчaтaem             // peзyльтaт нa cтaндapтный вывoд             convertToHex(System.out, new File(FILENAME));             // Пepeвoдиm cихoдный фaйл в Hex-пpeдcтaвлeниe и oтпpaвляem             // peзyльтaт в фaйл             convertToHex(new PrintStream(FILENAME + ".hex"),                     new File(FILENAME));         } catch (FileNotFoundException ex) {             Logger.getLogger(FileToHexExample.class.getName())                     .log(Level.SEVERE, null, ex);         } catch (IOException ex) {             Logger.getLogger(FileToHexExample.class.getName())                     .log(Level.SEVERE, null, ex);         }     }     /**      * Читaeт дaнныe из фaйлa, пepeвoдит их в Hex-фopmaт и вывoдит в пoтok.      *      * @param out kyдa вывoдить peзyльтaт      * @param file oтkyдa бpaть дaнныe      * @throws FileNotFoundException      * @throws IOException      */     private static void convertToHex(final PrintStream out,             final File file) throws FileNotFoundException, IOException {         InputStream is = new FileInputStream(file);         // Oчepeднoe пpoчитaннoe из фaйлa знaчeниe         int value;         // Cчeтчиk чиcлa пpoчитaнных бaйт. Нyжeн тoльko для фopmaтиpoвaния         // peзyльтaтoв paбoты пpoгpammы         int bytesCounter = 0;         // Здecь mы бyдem нakaпливaть иcхoдныe дaнныe         StringBuilder sbText = new StringBuilder();         // Здecь mы бyдem нakaпливaть дaнныe в Hex-фopmaтe         StringBuilder sbHex = new StringBuilder();         // Здecь mы бyдem нakaпливaть peзyльтaт paбoты пpoгpammы         StringBuilder sbRes = new StringBuilder();         // Пepeбиpaem вce cиmвoлы иcхoднoгo фaйлa         while ((value = is.read()) != -1) {             // Пepeвoдиm знaчeниe в Hex-пpeдcтaвлeниe             sbHex.append(String.format("%02X ", value));             // Ecли mы нe moжem нaпeчaтaть иcхoдный cиmвoл, тo вmecтo нeгo             // пeчaтaem тoчky (".")             if (!Character.isISOControl(value)) {                 sbText.append((char) value);             } else {                 sbText.append(".");             }             // Ecли mы пpoчитaли 16 cиmвoлoв, тo:             // - oтпpaвляem в sbRes peзyльтaты нaшeй paбoты             // - oчищaem sbText и sbHex для нakoплeния нoвых дaнных             if (bytesCounter == 15) {                 sbRes.append(sbHex.toString()).append("      ")                         .append(sbText).append("n");                 sbText.setLength(0);                 sbHex.setLength(0);                 bytesCounter = 0;             } else {                 bytesCounter++;             }         }         // Пpoвepяem пocлeднюю cтpoky         if (bytesCounter != 0) {             // Mы eщe нe нaпeчaтaли пocлeднюю cтpoky - дaнныe хpaнятcя в             // oбъekтaх sbText и sbHex             for (; bytesCounter < 16; bytesCounter++) {                 // Нa kaждый иcхoдный cиmвoл "pacхoдyeтcя" 3 нoвых cиmвoлa:                 // 2 - нa Hex-пpeдcтaвлeниe и 1 - нa пpoбeл                 sbHex.append("   ");             }             sbRes.append(sbHex).append("      ").append(sbText).append("n");         }                  // Пeчaтaem peзyльтaт         out.print(sbRes);         is.close();     } }

Иcтoчниk: https://j4web.ru/java-io/preobrazovanie-fajla-v-hex-kod-shestnadtsaterichnyj-kod.html
[Ответ][Цитата]
гость
185.220.101.*
На: Алгоритмы и примеры кода
Добавлено: 03 июл 19 9:02

hmac_sha512.cpp чтобы не подключать всякую ебанатень типа openssl

#include "pch.h"
#define _CRT_SECURE_NO_WARNINGS
#include <string.h>
#include <stdio.h>

#define SHA512_DIGEST_SIZE 64
#define SHA512_BLOCK_SIZE 128

typedef struct {
unsigned int tot_len;
unsigned int len;
unsigned char block[2 * SHA512_BLOCK_SIZE];
unsigned long long h[8];
} sha512_ctx;

typedef struct {
sha512_ctx ctx_inside;
sha512_ctx ctx_outside;

/* for hmac_reinit */
sha512_ctx ctx_inside_reinit;
sha512_ctx ctx_outside_reinit;

unsigned char block_ipad[SHA512_BLOCK_SIZE];
unsigned char block_opad[SHA512_BLOCK_SIZE];
} hmac_sha512_ctx;

#define SHFR(x, n) (x >> n)
#define ROTR(x, n) ((x >> n) | (x << ((sizeof(x) << 3) - n)))
#define CH(x, y, z) ((x & y) ^ (~x & z))
#define MAJ(x, y, z) ((x & y) ^ (x & z) ^ (y & z))

#define SHA512_F1(x) (ROTR(x, 28) ^ ROTR(x, 34) ^ ROTR(x, 39))
#define SHA512_F2(x) (ROTR(x, 14) ^ ROTR(x, 18) ^ ROTR(x, 41))
#define SHA512_F3(x) (ROTR(x, 1) ^ ROTR(x, 8) ^ SHFR(x, 7))
#define SHA512_F4(x) (ROTR(x, 19) ^ ROTR(x, 61) ^ SHFR(x, 6))

#define UNPACK32(x, str) { \
*((str) + 3) = (unsigned char) ((x) ); \
*((str) + 2) = (unsigned char) ((x) >> 8); \
*((str) + 1) = (unsigned char) ((x) >> 16); \
*((str) + 0) = (unsigned char) ((x) >> 24); }

#define UNPACK64(x, str) { \
*((str) + 7) = (unsigned char) ((x) ); \
*((str) + 6) = (unsigned char) ((x) >> 8); \
*((str) + 5) = (unsigned char) ((x) >> 16); \
*((str) + 4) = (unsigned char) ((x) >> 24); \
*((str) + 3) = (unsigned char) ((x) >> 32); \
*((str) + 2) = (unsigned char) ((x) >> 40); \
*((str) + 1) = (unsigned char) ((x) >> 48); \
*((str) + 0) = (unsigned char) ((x) >> 56); }

#define PACK64(str, x) { \
*(x) = ((unsigned long long) *((str) + 7) ) | ((unsigned long long) *((str) + 6) << 8) \
| ((unsigned long long) *((str) + 5) << 16) | ((unsigned long long) *((str) + 4) << 24) \
| ((unsigned long long) *((str) + 3) << 32) | ((unsigned long long) *((str) + 2) << 40) \
| ((unsigned long long) *((str) + 1) << 48) | ((unsigned long long) *((str) + 0) << 56); }

/* Macros used for loops unrolling */

#define SHA512_SCR(i) { w[i] = SHA512_F4(w[i-2]) + w[i-7] + SHA512_F3(w[i-15]) + w[i-16]; }

#define SHA512_EXP(a, b, c, d, e, f, g ,h, j) { \
t1 = wv[h] + SHA512_F2(wv[e]) + CH(wv[e], wv[f], wv[g]) + sha512_k[j] + w[j]; \
t2 = SHA512_F1(wv[a]) + MAJ(wv[a], wv[b], wv[c]); \
wv[d] += t1; \
wv[h] = t1 + t2; }

static unsigned long long sha512_h0[8] = { // первые биты дробных частей квадратных корней первых восьми простых чисел
0x6a09e667f3bcc908ULL, 0xbb67ae8584caa73bULL, 0x3c6ef372fe94f82bULL, 0xa54ff53a5f1d36f1ULL,
0x510e527fade682d1ULL, 0x9b05688c2b3e6c1fULL, 0x1f83d9abfb41bd6bULL, 0x5be0cd19137e2179ULL };

static unsigned long long sha512_k[80] = { // первые биты дробных частей кубических корней первых 80-х простых чисел
0x428a2f98d728ae22ULL, 0x7137449123ef65cdULL, 0xb5c0fbcfec4d3b2fULL, 0xe9b5dba58189dbbcULL,
0x3956c25bf348b538ULL, 0x59f111f1b605d019ULL, 0x923f82a4af194f9bULL, 0xab1c5ed5da6d8118ULL,
0xd807aa98a3030242ULL, 0x12835b0145706fbeULL, 0x243185be4ee4b28cULL, 0x550c7dc3d5ffb4e2ULL,
0x72be5d74f27b896fULL, 0x80deb1fe3b1696b1ULL, 0x9bdc06a725c71235ULL, 0xc19bf174cf692694ULL,
0xe49b69c19ef14ad2ULL, 0xefbe4786384f25e3ULL, 0x0fc19dc68b8cd5b5ULL, 0x240ca1cc77ac9c65ULL,
0x2de92c6f592b0275ULL, 0x4a7484aa6ea6e483ULL, 0x5cb0a9dcbd41fbd4ULL, 0x76f988da831153b5ULL,
0x983e5152ee66dfabULL, 0xa831c66d2db43210ULL, 0xb00327c898fb213fULL, 0xbf597fc7beef0ee4ULL,
0xc6e00bf33da88fc2ULL, 0xd5a79147930aa725ULL, 0x06ca6351e003826fULL, 0x142929670a0e6e70ULL,
0x27b70a8546d22ffcULL, 0x2e1b21385c26c926ULL, 0x4d2c6dfc5ac42aedULL, 0x53380d139d95b3dfULL,
0x650a73548baf63deULL, 0x766a0abb3c77b2a8ULL, 0x81c2c92e47edaee6ULL, 0x92722c851482353bULL,
0xa2bfe8a14cf10364ULL, 0xa81a664bbc423001ULL, 0xc24b8b70d0f89791ULL, 0xc76c51a30654be30ULL,
0xd192e819d6ef5218ULL, 0xd69906245565a910ULL, 0xf40e35855771202aULL, 0x106aa07032bbd1b8ULL,
0x19a4c116b8d2d0c8ULL, 0x1e376c085141ab53ULL, 0x2748774cdf8eeb99ULL, 0x34b0bcb5e19b48a8ULL,
0x391c0cb3c5c95a63ULL, 0x4ed8aa4ae3418acbULL, 0x5b9cca4f7763e373ULL, 0x682e6ff3d6b2b8a3ULL,
0x748f82ee5defb2fcULL, 0x78a5636f43172f60ULL, 0x84c87814a1f0ab72ULL, 0x8cc702081a6439ecULL,
0x90befffa23631e28ULL, 0xa4506cebde82bde9ULL, 0xbef9a3f7b2c67915ULL, 0xc67178f2e372532bULL,
0xca273eceea26619cULL, 0xd186b8c721c0c207ULL, 0xeada7dd6cde0eb1eULL, 0xf57d4f7fee6ed178ULL,
0x06f067aa72176fbaULL, 0x0a637dc5a2c898a6ULL, 0x113f9804bef90daeULL, 0x1b710b35131c471bULL,
0x28db77f523047d84ULL, 0x32caab7b40c72493ULL, 0x3c9ebe0a15c9bebcULL, 0x431d67c49c100d4cULL,
0x4cc5d4becb3e42b6ULL, 0x597f299cfc657e2aULL, 0x5fcb6fab3ad6faecULL, 0x6c44198c4a475817ULL };

static void sha512_transf(sha512_ctx * ctx, const unsigned char *message, unsigned int block_nb) {
unsigned long long w[80];
unsigned long long wv[8];
unsigned long long t1, t2;
const unsigned char *sub_block;

for (int i = 0; i < (int)block_nb; i++) {
sub_block = message + (i << 7);

PACK64(&sub_block[0], &w[0]);
PACK64(&sub_block[8], &w[1]);
PACK64(&sub_block[16], &w[2]);
PACK64(&sub_block[24], &w[3]);
PACK64(&sub_block[32], &w[4]);
PACK64(&sub_block[40], &w[5]);
PACK64(&sub_block[48], &w[6]);
PACK64(&sub_block[56], &w[7]);
PACK64(&sub_block[64], &w[8]);
PACK64(&sub_block[72], &w[9]);
PACK64(&sub_block[80], &w[10]);
PACK64(&sub_block[88], &w[11]);
PACK64(&sub_block[96], &w[12]);
PACK64(&sub_block[104], &w[13]);
PACK64(&sub_block[112], &w[14]);
PACK64(&sub_block[120], &w[15]);

SHA512_SCR(16);
SHA512_SCR(17);
SHA512_SCR(18);
SHA512_SCR(19);
SHA512_SCR(20);
SHA512_SCR(21);
SHA512_SCR(22);
SHA512_SCR(23);
SHA512_SCR(24);
SHA512_SCR(25);
SHA512_SCR(26);
SHA512_SCR(27);
SHA512_SCR(28);
SHA512_SCR(29);
SHA512_SCR(30);
SHA512_SCR(31);
SHA512_SCR(32);
SHA512_SCR(33);
SHA512_SCR(34);
SHA512_SCR(35);
SHA512_SCR(36);
SHA512_SCR(37);
SHA512_SCR(38);
SHA512_SCR(39);
SHA512_SCR(40);
SHA512_SCR(41);
SHA512_SCR(42);
SHA512_SCR(43);
SHA512_SCR(44);
SHA512_SCR(45);
SHA512_SCR(46);
SHA512_SCR(47);
SHA512_SCR(48);
SHA512_SCR(49);
SHA512_SCR(50);
SHA512_SCR(51);
SHA512_SCR(52);
SHA512_SCR(53);
SHA512_SCR(54);
SHA512_SCR(55);
SHA512_SCR(56);
SHA512_SCR(57);
SHA512_SCR(58);
SHA512_SCR(59);
SHA512_SCR(60);
SHA512_SCR(61);
SHA512_SCR(62);
SHA512_SCR(63);
SHA512_SCR(64);
SHA512_SCR(65);
SHA512_SCR(66);
SHA512_SCR(67);
SHA512_SCR(68);
SHA512_SCR(69);
SHA512_SCR(70);
SHA512_SCR(71);
SHA512_SCR(72);
SHA512_SCR(73);
SHA512_SCR(74);
SHA512_SCR(75);
SHA512_SCR(76);
SHA512_SCR(77);
SHA512_SCR(78);
SHA512_SCR(79);

wv[0] = ctx->h[0];
wv[1] = ctx->h[1];
wv[2] = ctx->h[2];
wv[3] = ctx->h[3];
wv[4] = ctx->h[4];
wv[5] = ctx->h[5];
wv[6] = ctx->h[6];
wv[7] = ctx->h[7];

int j = 0;
do {
SHA512_EXP(0, 1, 2, 3, 4, 5, 6, 7, j);
j++;
SHA512_EXP(7, 0, 1, 2, 3, 4, 5, 6, j);
j++;
SHA512_EXP(6, 7, 0, 1, 2, 3, 4, 5, j);
j++;
SHA512_EXP(5, 6, 7, 0, 1, 2, 3, 4, j);
j++;
SHA512_EXP(4, 5, 6, 7, 0, 1, 2, 3, j);
j++;
SHA512_EXP(3, 4, 5, 6, 7, 0, 1, 2, j);
j++;
SHA512_EXP(2, 3, 4, 5, 6, 7, 0, 1, j);
j++;
SHA512_EXP(1, 2, 3, 4, 5, 6, 7, 0, j);
j++;
}

while (j < 80);

ctx->h[0] += wv[0];
ctx->h[1] += wv[1];
ctx->h[2] += wv[2];
ctx->h[3] += wv[3];
ctx->h[4] += wv[4];
ctx->h[5] += wv[5];
ctx->h[6] += wv[6];
ctx->h[7] += wv[7];
}
}


static void sha512_init(sha512_ctx * ctx) {
ctx->h[0] = sha512_h0[0];
ctx->h[1] = sha512_h0[1];
ctx->h[2] = sha512_h0[2];
ctx->h[3] = sha512_h0[3];
ctx->h[4] = sha512_h0[4];
ctx->h[5] = sha512_h0[5];
ctx->h[6] = sha512_h0[6];
ctx->h[7] = sha512_h0[7];
ctx->len = 0;
ctx->tot_len = 0;
}

static void sha512_update(sha512_ctx * ctx, const unsigned char *message, unsigned int len) {
unsigned int block_nb;
unsigned int new_len, rem_len, tmp_len;
const unsigned char *shifted_message;

tmp_len = SHA512_BLOCK_SIZE - ctx->len;
rem_len = len < tmp_len ? len : tmp_len;

memcpy(&ctx->block[ctx->len], message, rem_len);

if (ctx->len + len < SHA512_BLOCK_SIZE) {
ctx->len += len;
return;
}

new_len = len - rem_len;
block_nb = new_len / SHA512_BLOCK_SIZE;

shifted_message = message + rem_len;

sha512_transf(ctx, ctx->block, 1);
sha512_transf(ctx, shifted_message, block_nb);

rem_len = new_len % SHA512_BLOCK_SIZE;

memcpy(ctx->block, &shifted_message[block_nb << 7], rem_len);

ctx->len = rem_len;
ctx->tot_len += (block_nb + 1) << 7;
}

static void sha512_final(sha512_ctx * ctx, unsigned char *digest) {
unsigned int block_nb;
unsigned int pm_len;
unsigned int len_b;

block_nb = 1 + ((SHA512_BLOCK_SIZE - 17) < (ctx->len % SHA512_BLOCK_SIZE));

len_b = (ctx->tot_len + ctx->len) << 3;
pm_len = block_nb << 7;

memset(ctx->block + ctx->len, 0, pm_len - ctx->len);
ctx->block[ctx->len] = 0x80;
UNPACK32(len_b, ctx->block + pm_len - 4);

sha512_transf(ctx, ctx->block, block_nb);

UNPACK64(ctx->h[0], &digest[0]);
UNPACK64(ctx->h[1], &digest[8]);
UNPACK64(ctx->h[2], &digest[16]);
UNPACK64(ctx->h[3], &digest[24]);
UNPACK64(ctx->h[4], &digest[32]);
UNPACK64(ctx->h[5], &digest[40]);
UNPACK64(ctx->h[6], &digest[48]);
UNPACK64(ctx->h[7], &digest[56]);
}

static void sha512(const unsigned char *message, unsigned int len, unsigned char *digest) {
sha512_ctx ctx;
sha512_init(&ctx);
sha512_update(&ctx, message, len);
sha512_final(&ctx, digest);
}


static void hmac_sha512_init(hmac_sha512_ctx * ctx, const unsigned char *key, unsigned int key_size) {
unsigned int fill, num;

const unsigned char *key_used;
unsigned char key_temp[SHA512_DIGEST_SIZE];

if (key_size == SHA512_BLOCK_SIZE) {
key_used = key;
num = SHA512_BLOCK_SIZE;
}

else {
if (key_size > SHA512_BLOCK_SIZE) {
num = SHA512_DIGEST_SIZE;
sha512(key, key_size, key_temp);
key_used = key_temp;
}
else { // key_size > SHA512_BLOCK_SIZE
key_used = key;
num = key_size;
}

fill = SHA512_BLOCK_SIZE - num;
memset(ctx->block_ipad + num, 0x36, fill);
memset(ctx->block_opad + num, 0x5c, fill);
}

for (int i = 0; i < (int)num; i++) {
ctx->block_ipad[i] = key_used[i] ^ 0x36;
ctx->block_opad[i] = key_used[i] ^ 0x5c;
}

sha512_init(&ctx->ctx_inside);
sha512_update(&ctx->ctx_inside, ctx->block_ipad, SHA512_BLOCK_SIZE);

sha512_init(&ctx->ctx_outside);
sha512_update(&ctx->ctx_outside, ctx->block_opad, SHA512_BLOCK_SIZE);

/* for hmac_reinit */
memcpy(&ctx->ctx_inside_reinit, &ctx->ctx_inside, sizeof(sha512_ctx));
memcpy(&ctx->ctx_outside_reinit, &ctx->ctx_outside, sizeof(sha512_ctx));
}

static void hmac_sha512_update(hmac_sha512_ctx * ctx, const unsigned char *message, unsigned int message_len) {
sha512_update(&ctx->ctx_inside, message, message_len);
}

static void hmac_sha512_final(hmac_sha512_ctx * ctx, unsigned char *mac, unsigned int mac_size) {
unsigned char digest_inside[SHA512_DIGEST_SIZE], mac_temp[SHA512_DIGEST_SIZE];

sha512_final(&ctx->ctx_inside, digest_inside);
sha512_update(&ctx->ctx_outside, digest_inside, SHA512_DIGEST_SIZE);
sha512_final(&ctx->ctx_outside, mac_temp);
memcpy(mac, mac_temp, mac_size);
}

void hmac_sha512(const unsigned char *key, unsigned int key_size, const unsigned char *message, unsigned int message_len, unsigned char *mac, unsigned mac_size) {
hmac_sha512_ctx ctx;
hmac_sha512_init(&ctx, key, key_size);
hmac_sha512_update(&ctx, message, message_len);
hmac_sha512_final(&ctx, mac, mac_size);
}

char *hmac_sha512_str(const char *key, unsigned int key_size, const char *message) {
static char sign[SHA512_DIGEST_SIZE * 2 + 1];
unsigned char mac[SHA512_DIGEST_SIZE];
hmac_sha512((const unsigned char *)key, key_size, (const unsigned char *)message, strlen(message), mac, SHA512_DIGEST_SIZE);
for (int i = 0; i < SHA512_DIGEST_SIZE; i++) { sprintf(&sign[i * 2], "%02x", mac[i]); }
// добавлять ли конец строки?
sign[2 * SHA512_DIGEST_SIZE] = '\0';
return sign;
}

int main(int argc, char* argv[])
{
const char* key = "fuck";
const char* mesage = "you fuckin fogot";

printf(hmac_sha512_str(key, strlen(key), mesage));

getchar();
}

[Ответ][Цитата]
 Стр.2 (2)1  [2]<< < Пред.