[Pedido]Script Senha - Printable Version
+- SA-MP Forums Archive (https://sampforum.blast.hk)
+-- Forum: Non-English (https://sampforum.blast.hk/forumdisplay.php?fid=9)
+--- Forum: Languages (https://sampforum.blast.hk/forumdisplay.php?fid=33)
+---- Forum: Português/Portuguese (https://sampforum.blast.hk/forumdisplay.php?fid=34)
+---- Thread: [Pedido]Script Senha (/showthread.php?tid=340333)
+- SA-MP Forums Archive (https://sampforum.blast.hk)
+-- Forum: Non-English (https://sampforum.blast.hk/forumdisplay.php?fid=9)
+--- Forum: Languages (https://sampforum.blast.hk/forumdisplay.php?fid=33)
+---- Forum: Português/Portuguese (https://sampforum.blast.hk/forumdisplay.php?fid=34)
+---- Thread: [Pedido]Script Senha (/showthread.php?tid=340333)
[Pedido]Script Senha - Tiu_DaColombia - 06.05.2012
Boa tarde gostaria de um Script Senha para tipo camuflar as senhas das contas do serve. agradeзo
Re: [Pedido]Script Senha - humildadeforever - 06.05.2012
Isso que vocк quer? https://sampforum.blast.hk/showthread.php?tid=249057
Re: [Pedido]Script Senha - Tiu_DaColombia - 06.05.2012
sim sу que eu nгo entendi nada tem como ajuda ?
Re: [Pedido]Script Senha - Dr_Pawno - 06.05.2012
Tenta esse aqui.
Re: [Pedido]Script Senha - Tiu_DaColombia - 06.05.2012
Pow gostaria de uma base entende.
Re: [Pedido]Script Senha - CidadeNovaRP - 06.05.2012
Ta ae:
https://sampforum.blast.hk/showthread.php?tid=249057
Re: [Pedido]Script Senha - humildadeforever - 06.05.2012
Quote:
|
Originally Posted by CidadeNovaRP
 |
Re: [Pedido]Script Senha - Tiu_DaColombia - 06.05.2012
stock ini_GetKey( line[] )
{
new keyRes[256];
keyRes[0] = 0;
if ( strfind( line , "=" , true ) == -1 ) return keyRes;
strmid( keyRes , line , 0 , strfind( line , "=" , true ) , sizeof( keyRes) );
return keyRes;
}
Re: [Pedido]Script Senha - Hiuship - 06.05.2012
stock Encriptar(texto[])//Cуdigo irб pegar a senha normal, encriptar, e retornar em forma de texto
{
new SenhaEncriptada[100];
for(new x = 0; x <= strlen(texto); x++)
{
SenhaEncriptada[x] = (texto[x] * 4 / 5);//Cada caractere da senha Encriptada vai ser igual ao da original multiplicado por 2
}
return SenhaEncriptada;
}
stock Desencriptar(texto[])//Cуdigo irб pegar a senha encriptada, desencriptar, e retornar em forma de texto
{
new Senha[100];
for(new x = 0; x <= strlen(texto); x++)
{
Senha[x] = (texto[x] / 4 * 5);//Cada caractere da senha normal vai ser o da encriptada divido pra 2 (pois divisгo й o processo inverso da multiplicaзгo).
}
return Senha;
}
Re: [Pedido]Script Senha - steeldark - 06.05.2012
Vocк pode usar isso:
pawn Code:
forward Encrypt(string[]);
public Encrypt(string[])
{
for(new x=0; x < strlen(string); x++)
{
string[x] += (3^x) * (x % 15);
if(string[x] > (0xff))
{
string[x] -= 256;
}
}
return 1;
}
pawn Code:
if (strcmp("/enc", cmdtext, true, 4) == 0)
{
new str[126], str2[126]; // cria as vars..
format(str2,sizeof str2,"%s",cmdtext[5]); // captura o q foi digitado antes de encriptar.
Encrypt(cmdtext[5]); // encripta a string digitada, pode ser numeros tbm..
format(str,sizeof str, "VocК digitou: %s, e depois de Encriptar: %s", str2,cmdtext[5]), SendClientMessage(playerid, -1, str); // envia a msg contendo o q foi digitado, sem encriptar e encriptado
return 1;
}
depois quando o kra logar, vc enviar a senha d novo pro encript e compara o resultado com a senha salva.
Re: [Pedido]Script Senha - humildadeforever - 06.05.2012
Aqui, um outro exemplo com o code que o steeldark postou
pawn Code:
CMD:registrar(playerid, params[])
{
new senha[30],file[70],str[30];
format(file,sizeof(file),"%s.ini", PlayerName(playerid));
if(DOF2_FileExists(file)) return SendClientMessage(playerid,-1,"Conta jб registrada!");
if(sscanf(params,"s", senha)) return SendClientMessage(playerid,-1,"Use: /registrar [Senha]");
format(str, 30,"%s", senha);
DOF2_CreateFile(file);
Encrypt(senha);
DOF2_SetString(file,"Senha", senha);
DOF2_SaveFile();
new string[100];
format(string, sizeof string,"Conta registrada com sucesso! Senha normal: %s. Senha encryptada: %s", str, senha);
SendClientMessage(playerid,-1, string);
return 1;
}
CMD:logar(playerid, params[])
{
new senha[30],file[70];
format(file,sizeof file,"%s.ini", PlayerName(playerid));
if(!DOF2_FileExists(file)) return SendClientMessage(playerid,-1,"Vocк ainda nгo й registrado, use: /registrar.");
if(sscanf(params,"s", senha)) return SendClientMessage(playerid,-1,"Use: /logar [senha]");
Encrypt(senha);
if(strcmp(DOF2_GetString(file, "Senha"), senha, true) == 0)
{
SendClientMessage(playerid,-1,"Logado com sucesso!");
}
else return SendClientMessage(playerid,-1,"Senha incorreta, tente novamente!");
return 1;
}
forward Encrypt(string[]);
public Encrypt(string[])
{
for(new x=0; x < strlen(string); x++)
{
string[x] += (3^x) * (x % 15);
if(string[x] > (0xff))
{
string[x] -= 256;
}
}
return 1;
}
Testado =D
Re: [Pedido]Script Senha - Tiu_DaColombia - 06.05.2012
CMD:registrar(playerid, params[])
{
new senha[30],file[70],str[30];
format(file,sizeof(file),"%s.ini", PlayerName(playerid));
if(DOF2_FileExists(file)) return SendClientMessage(playerid,-1,"Conta jб registrada!");
if(sscanf(params,"s", senha)) return SendClientMessage(playerid,-1,"Use: /registrar [Senha]");
format(str, 30,"%s", senha);
DOF2_CreateFile(file);
Encrypt(senha);
DOF2_SetString(file,"Senha", senha);
DOF2_SaveFile();
new string[100];
format(string, sizeof string,"Conta registrada com sucesso! Senha normal: %s. Senha encryptada: %s", str, senha);
SendClientMessage(playerid,-1, string);
return 1;
}
CMD:logar(playerid, params[])
{
new senha[30],file[70];
format(file,sizeof file,"%s.ini", PlayerName(playerid));
if(!DOF2_FileExists(file)) return SendClientMessage(playerid,-1,"Vocк ainda nгo й registrado, use: /registrar.");
if(sscanf(params,"s", senha)) return SendClientMessage(playerid,-1,"Use: /logar [senha]");
Encrypt(senha);
if(strcmp(DOF2_GetString(file, "Senha"), senha, true) == 0)
{
SendClientMessage(playerid,-1,"Logado com sucesso!");
}
else return SendClientMessage(playerid,-1,"Senha incorreta, tente novamente!");
return 1;
}
forward Encrypt(string[]);
public Encrypt(string[])
{
for(new x=0; x < strlen(string); x++)
{
string[x] += (3^x) * (x % 15);
if(string[x] > (0xff))
{
string[x] -= 256;
}
}
return 1;
}
vou testa esse
Re: [Pedido]Script Senha - humildadeforever - 06.05.2012
Quote:
|
Originally Posted by Tiu_DaColombia
pawn Code:
|
Re: [Pedido]Script Senha - Tiu_DaColombia - 06.05.2012
C:\Users\Didi\Desktop\Arquivos do pc\[ BRASIL GAME MASTER..]\gamemodes\GameMaster.pwn(18285) : error 017: undefined symbol "senha"
C:\Users\Didi\Desktop\Arquivos do pc\[ BRASIL GAME MASTER..]\gamemodes\GameMaster.pwn(18309) : error 017: undefined symbol "senha"
Pawn compiler 3.2.3664 Copyright © 1997-2006, ITB CompuPhase
2 Errors.
Re: [Pedido]Script Senha - humildadeforever - 06.05.2012
Vocк deve estar colocando errado pois fiz no new.pwn e nгo deu nenhum erro.
Poste as linhas dos erros.
Re: [Pedido]Script Senha - Tiu_DaColombia - 06.05.2012
/-------------------------------[Login]--------------------------------------------------------------------------
pawn Code:
if (strcmp(cmd, "/logar", true) ==0 )
{
if(IsPlayerConnected(playerid) && !IsPlayerNPC(playerid))
{
new tmppass[64];
if(gPlayerLogged[playerid] == 1)
{
SendClientMessage(playerid, COLOR_GREY, " Vocк jб estб logado.");
return true;
}
Encrypt(password);
tmp = strtok(cmdtext, idx);
if(!strlen(tmp))
{
SendClientMessage(playerid, COLOR_GRAD1, "USE: /logar [Senha]");
ShowPlayerDialog(playerid, 1, DIALOG_STYLE_PASSWORD, "Fazendo Seu Login:", "{FFFFFF}Seja Bem Vindo(a)\n {00EE00}Bxxxx{FFD700}xxxx {00B2EE}xxxx{FFFFFF}.\n{FFFFFF}\nStatus da Conta: {00FF00}Registrada\n{FFFFFF}\nPor Favor Digite Sua Senha Para Logar !", "Logar", "Sair");
return true;
}
strmid(tmppass, tmp, 0, strlen(cmdtext), 255);
//Encrypt(tmppass);
OnPlayerLogin(playerid,tmppass);
}
return true;
}
if (strcmp(cmd, "/registrar", true) ==0 )
{
if(IsPlayerConnected(playerid))
{
if(gPlayerLogged[playerid] == 1)
{
SendClientMessage(playerid, COLOR_GREY, " Vocк jб estб logado.");
return true;
}
GetPlayerName(playerid, sendername, sizeof(sendername));
Encrypt(password);
format(string, 64, "Contas/%s.ini", sendername);
new File: hFile = fopen(string, io_read);
if (hFile)
{
SendClientMessage(playerid, COLOR_YELLOW, "O Nick que vocк estб usando jб existe, use outro por favor.");
fclose(hFile);
ShowPlayerDialog(playerid, 2, DIALOG_STYLE_PASSWORD, "Fazendo Seu Login:", "{FFFFFF}Seja Bem Vindo(a)\n {00EE00}xxxx {FFD700}xxxx {00B2EE}xxxx{FFFFFF}.\n{FFFFFF}\nStatus da Conta: {00FF00}Registrada\n{FFFFFF}\nPor Favor Digite Sua Senha Para Logar !", "Logar", "Sair");
return true;
}
new tmppass[64];
tmp = strtok(cmdtext, idx);
if(!strlen(tmp))
{
SendClientMessage(playerid, COLOR_GRAD1, "Por favor, USE: /registrar [Senha]");
//SendClientMessage(playerid, COR_TRIADS, "{FF8C00}---<> Use Nome_Sobrenome ( Ex: {00FF00}xxxx{FF8C00} ) <>---");
ShowPlayerDialog(playerid, 2, DIALOG_STYLE_PASSWORD, "Fazendo Seu Registro:", "{FFFFFF}Seja Bem Vindo(a)\n{00EE00}xxxx {FFD700}xxxx{00B2EE}xxxx{FFFFFF}.\nStatus da Conta: {FF0000}Nгo Registrada\n{FFFFFF}Use: {00FF00}Nome_Sobrenome\n\n{FFFFFF}Exemplo: {ffff00}Diogo_Silva{FFFFFF}\n{FFFFFF}Digite Sua Senha Para Registrar !", "Registrar", "Cancelar");
return true;
}
strmid(tmppass, tmp, 0, strlen(cmdtext), 255);
// Encrypt(tmppass);
OnPlayerRegister(playerid,tmppass);
}
return true;
}
Re: [Pedido]Script Senha - Tiu_DaColombia - 07.05.2012
Ow consegui jб.
mas man tipo o a senha do cara e 123.
vai para 147 eu queria deixa mais dificil.
Re: [Pedido]Script Senha - paulor - 07.05.2012
Use esse aki. Essa й impossivel fazer um unhash do hash. para comparaзгo vocк precisa dar hash na senha digitada e comparar as duas senhas com hash.
pawn Code:
stock udb_hash(buf[]) {
new length=strlen(buf);
new s1 = 1;
new s2 = 0;
new n;
for (n=0; n<length; n++)
{
s1 = (s1 + buf[n]) % 65521;
s2 = (s2 + s1) % 65521;
}
return (s2 << 16) + s1;
}