String Encrypt

Posts 115 of 23 · Page 1 of 2
String Encrypt
Bom.. Estava programando em Delphi porém é difícil achar referências em Delphi para fazer hacks então comecei a brincar com c++..
Estou refazendo minha base que era em Delphi em C++ e tive que recriar minha função para encriptar strings então vai ae..

Code:
#include <string.h>

int chrpos(char *s, char c)
{
	int i = 0;
	do
	{
		if (s[i] == c) return i;
		i++;
	} while (s[i]);

	return -1;
}

void ZeroString(char *s, int len)
{
	for (int i = 0; i < len; i++) s[i] = 0x0;
}

char *StringEncrypt(char *str, char *pattern, char *key)
{
	char *temp;

	if ((strlen(str) > 0) && (strlen(pattern) > 0) && (strlen(key) > 0))
	{
		int i;
		int k = 0;
		int offset = 0;
		int pos = 0;

		temp = (char *)malloc(strlen(str) + 1);
		ZeroString(temp, strlen(str) + 1);

		for (i = 0; i < (int) strlen(str); i++)
		{
			pos = chrpos(pattern, str[i]);
			
			if (pos != -1)
			{
				offset = (int) (pos + key[k]);
				offset = offset % strlen(pattern);
				temp[i] = pattern[offset];
			}
			else
			{
				temp[i] = str[i];
			}

			k++;
			if (k >= (int) strlen(key)) k = 0;
		}
	}

	return temp;
}

char *StringDecrypt(char *str, char *pattern, char *key)
{
	char *temp;

	if ((strlen(str) > 0) && (strlen(pattern) > 0) && (strlen(key) > 0))
	{
		int i;
		int k = 0;
		int offset = 0;
		int pos = 0;

		temp = (char *)malloc(strlen(str) + 1);
		ZeroString(temp, strlen(str) + 1);

		for (i = 0; i < (int) strlen(str); i++)
		{
			pos = chrpos(pattern, str[i]);
			
			if (pos != -1)
			{
				offset = key[k] % strlen(pattern);
				offset = (int) (pos - offset);
				if (offset < 0) offset = strlen(pattern) + offset;
				temp[i] = pattern[offset];
			}
			else
			{
				temp[i] = str[i];
			}

			k++;
			if (k >= (int) strlen(key)) k = 0;
		}
	}

	return temp;
}
Pra usar pode fazer assim:

Code:
#define STRCRYPT_PATTERN "abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789/+-.,;?!@#$%&*()_=|<> "
#define STRCRYPT_KEY "k7&%$##Gm.<pS> (=_=)"

char *strptr = StringDecrypt(";*+OSVZ$R.(Ls-T2#B!P2Jr", STRCRYPT_PATTERN, STRCRYPT_KEY);
Eu recomendo ou deixar essa variável como uma constante ou então usar a função free() para liberar a memória... pra não ficar acumulando memória...
/Em análise, porém eu já vi essa função na base que o Tokoloco me passou no ano passado! !
Não viu.. porque eu fiz... se viu foi outra! Eu programo... diferentemente dos 99% dos users q tem aqui...
@BACKD00R
vai lá pegar a base pra ver se é..
Delphi pra hack em CABR, quase nimguém programa..
Motivo: Object Pascal é pra programinhas mesmo =/

C++ é que é usado, apesar de ainda ser um newbie em visual basic, boa sorte ai! =)
Quote Originally Posted by MrLionBr View Post
Delphi pra hack em CABR, quase nimguém programa..
Motivo: Object Pascal é pra programinhas mesmo =/

C++ é que é usado, apesar de ainda ser um newbie em visual basic, boa sorte ai! =)
Eu acho que Pascal não serve para hacks! Na seção NA tem uma base em delphi para CA!


---------- Post added at 09:18 PM ---------- Previous post was at 09:16 PM ----------

Quote Originally Posted by Code64 View Post
Sim, sei.
A dica é que vocês estão fazendo errado.
Ele não estão fazendo errado, eles estão fazendo do lado oposto do lado correto! !
Quote Originally Posted by BACKD00R View Post
Ele não estão fazendo errado, eles estão fazendo do lado oposto do lado correto! !
rsrsrs, pois é
é.. o único que programa Delphi e mexe com hack é o @Departure que eu já conheço de outro fórum... utilizei a base dele mas os sdks.. são todos em c++ daí fica complicado.. devagar eu tô pegando as manhas.. o ruim tb eh q uso win7 64 e não consigo fazer umas engenharia reversa no CA.. mas vamo q vamo..
Quote Originally Posted by Psychlo View Post
é.. o único que programa Delphi e mexe com hack é o @Departure que eu já conheço de outro fórum... utilizei a base dele mas os sdks.. são todos em c++ daí fica complicado.. devagar eu tô pegando as manhas.. o ruim tb eh q uso win7 64 e não consigo fazer umas engenharia reversa no CA.. mas vamo q vamo..
ae cara sabe oque ta detectando no telekill ?
@Code64 -> Alguma Ajuda, ou Dica.
Quote Originally Posted by luizimloko View Post
ae cara sabe oque ta detectando no telekill ?
@Code64 -> Alguma Ajuda, ou Dica.
Sim, sei.
A dica é que vocês estão fazendo errado.
só se for igual o rapidfire..
meu tele kill ta funfando normal
@Psychlo, o @Departure postou a base dele em delphi... Quando eu utilizava ela, modifiquei 100%, teve uns que pensou que era em c++ \
Eu me lembro disso @Turbulence, ficou foda aquela edição...
I seen my nickname mentioned, Anyway why do you think Delphi is not for hacks? Delphi is just like any other programming language and can use the directx sdk just like C++ and the windows API's just like C++ or any other win32 native language.
yeah.. it does.. but the problem is that just few people use delphi.. and for example the jupiter sdk is easier to use in C++.. There is no "__thiscall" support in delphi also.. and it's difficult to use C classes in delphi... I'm not saying it's not possible.. just that it's a lot more difficult... and creating hacks is already difficult... so maybe I should start learning c++ a little bit more and use the "easier way" to hack in games...
Posts 115 of 23 · Page 1 of 2
This thread is closed for replies.

Similar Threads

Tags for this Thread

None

Need help?