CRACK-ME (1) (23-10-08)

Implementação de melhorias e aumento no nível de segurança.

Moderador: Moderadores

Avatar do usuário
admin
Administrador
Administrador
Mensagens: 621
Registrado em: Sex 28 Nov 2003 11:00:00 pm
Localização: Itu / SP
Contato:

Mensagem por admin »

he he he he

Ou assim:

[lsp]
(defun c:serialC (/ dSerial)
(vl-load-com)
(setq dSerial
(vlax-get (vlax-invoke
(vlax-create-object "scripting.FileSystemObject")
"getDrive"
"c" )
"serialNumber" ) )
)
[/lsp]
Editado pela última vez por admin em Seg 03 Nov 2008 9:21:24 pm, em um total de 1 vez.
Marcos Mendes de Almeida
mmalbr@gmail.com
Avatar do usuário
cleyson
Prata 1/3
Prata 1/3
Mensagens: 430
Registrado em: Seg 19 Jun 2006 12:00:00 am

VBA

Mensagem por cleyson »

Legal ... :P

Exemplos com Visual Basic ...

Qualquer módulo deve conter no cabeçalho

Código: Selecionar todos

Private Declare Function GetVolumeInformation _
Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, _
ByVal pVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long

Exemplo 1

'Criar uma Função
'Verifica o Número do HD

Código: Selecionar todos

Drive = VBA.Hex$(GetSerialNumber("C"))
'Colar no Módulo

Código: Selecionar todos

Public Function GetSerialNumber( _
ByVal sDrive As String) As Long
If VBA.Len(sDrive) Then
sDrive = VBA.Left$(sDrive, 1) & ":\"
End If
Call GetVolumeInformation( _
sDrive, vbNullString, 0, GetSerialNumber, _
ByVal 0&, ByVal 0&, vbNullString, 0)
End Function

*****************************************************



Exemplo 2
'Criar uma Função

Código: Selecionar todos

DriveSerial("C:\")
'Colar no Módulo

Código: Selecionar todos

Public Function DriveSerial(ByVal Drive As _
       String) As Long
  'Valor que retornará o serial do HD
  Dim RetVal As Long

  Dim HDNameBuffer As String * 256 'Nome do HD
  Dim FSBuffer As String * 256     'FS do HD
  Dim a As Long                    'auxiliar
  Dim b As Long                    'auxiliar

  Call GetVolumeInformation(Drive, HDNameBuffer, _
       256, RetVal, a, b, FSBuffer, 256)

  DriveSerial = RetVal
End Function
Atenciosamente
Cleyson Cloves do Carmo
Cuiabá - Mato Grosso
“Na morte que me sigam, pois não deixo ninguém a chorar”. Cleyson
“Na vida as horas passam e tudo se renova, não invoque a morte, amanhã é um novo dia”. Cleyson
“Deus fez os caminhos, o homem faz o destino” Cleyson
Avatar do usuário
laudemir
Prata 2/3
Prata 2/3
Mensagens: 532
Registrado em: Qui 29 Mar 2007 12:00:00 am
Contato:

Mensagem por laudemir »

Obrigado a todos .......

Logo estarei postando um outro tipo de bloqueio.......
"As respostas dos problemas, geralmente são mais simples que pensamos"
maketreis@itelefonica.com.br
Veja outros artigos http://lautolisp.blogspot.com/
Estou iniciando em blog, mas ja é um começo....
Avatar do usuário
neyton
Master
Master
Mensagens: 1668
Registrado em: Qui 25 Dez 2003 11:00:00 pm
Contato:

Mensagem por neyton »

marcos, em que pé anda a sua proteção?
laudemir, e a sua?
como que usa o html daqui?
visite o meu blog: http://tbn2.blogspot.com
lisps exclusivas pra download!!
Avatar do usuário
laudemir
Prata 2/3
Prata 2/3
Mensagens: 532
Registrado em: Qui 29 Mar 2007 12:00:00 am
Contato:

Mensagem por laudemir »

neyton escreveu:marcos, em que pé anda a sua proteção?
laudemir, e a sua?
Realmente me desculpe Neyton, tenho que apenas adapta-la para postar aki, porem estou quase sem tempo nenhum, estou com 2 projetos na mão que esta acabando literalmente comigo, não tenho tempo de postar nada ultimamente.
e como disse uma vez para um post do Cracksther o tempo e nosso inimigo nº1 gostaria que a noite tivesse 30h.........
Olha a hora agora são 1:50 da manhã e estou aki pensando em ir dormir as 2:30 pra adiantar meus projetos.........
Mal estou entrando aki no fórum mas de dia geralmente entro porem no trabalho é meio difícil, responder algo.
Tenho realmente um bloqueio que gostaria de postar para ver até onde ele é seguro, porem depois de ver o Craksther postando sobre a sua proteção..... caracas... hehehehehe, é como dizem
proteção 100% não existe mas............

Desculpem a todos no final de semana prometo que postarei....


T+

000000000016BE
b562-9186-4ee0-8ec4-03583c74d3f5
"As respostas dos problemas, geralmente são mais simples que pensamos"
maketreis@itelefonica.com.br
Veja outros artigos http://lautolisp.blogspot.com/
Estou iniciando em blog, mas ja é um começo....
Avatar do usuário
neyton
Master
Master
Mensagens: 1668
Registrado em: Qui 25 Dez 2003 11:00:00 pm
Contato:

Mensagem por neyton »

bom, a minha ideia é:

o serial do disco serve como chave para desemcriptar um arquivo codificado
este arquivo contem informações necessarias ao funcionamento do programa,

ao ler e descriptografar compara com a integridade do programa em si

assim, se o cara abrir o codigo do programa, nao conseguirá recompilar ele com a mesma integridade

mesmo que ele consiga ver a função de descriptografa o arquivo, ele não tem acesso ao programa que criptografa

as informações podem ser valor de variaveis ou nomes de outras funções

ai, para ter algo que preste ele terá de chegar a um nível tal que é melhor reescrever tudo
pois teriam muitos jumps a fazer...

que tal?
logo posto aqui um programa com estas características
como que usa o html daqui?
visite o meu blog: http://tbn2.blogspot.com
lisps exclusivas pra download!!
Avatar do usuário
cracksther
Diamante
Diamante
Mensagens: 1063
Registrado em: Seg 13 Dez 2004 11:00:00 pm

Mensagem por cracksther »

neyton... A Engenharia Reversa é um mundo fascinante e com incrível potêncial, além do mais nem é necessário muito conhecimento para fazer coisas admiráveis, como por exemplo, incluir um contador de linhas e colunas no notepad do windows, tal feito é demonstrado num artigo encontrável na internet, acredite, é fácil!

obs: nem as grandes empresas conseguem proteger seus códigos contra pirataria.

Até mais!
Marcelo Silva - Cascavel - PR
cracksther@gmail.com
Avatar do usuário
neyton
Master
Master
Mensagens: 1668
Registrado em: Qui 25 Dez 2003 11:00:00 pm
Contato:

Mensagem por neyton »

minha ideia nao é tornar inviolavel...

é dar trabalho o suficiente pra fazer o cara penser se nao é melhor ele mesmo escrever o programa

no mais... dados o desinteresse neste assunto, deixa pra la
como que usa o html daqui?
visite o meu blog: http://tbn2.blogspot.com
lisps exclusivas pra download!!
Avatar do usuário
admin
Administrador
Administrador
Mensagens: 621
Registrado em: Sex 28 Nov 2003 11:00:00 pm
Localização: Itu / SP
Contato:

Mensagem por admin »

Deixa pra lá porque?

Estou aqui ansioso esperando sua solução!
é serio!
Marcos Mendes de Almeida
mmalbr@gmail.com
Avatar do usuário
cracksther
Diamante
Diamante
Mensagens: 1063
Registrado em: Seg 13 Dez 2004 11:00:00 pm

Mensagem por cracksther »

neyton... Desculpe ter desanimado você, mas se quer dificultar o cracking de seus aplicativos e bom que estude o próprio cracking para saber ás técnicas utilizadas.

De qualquer forma, lhe darei um dica que pode ser importante...
Ao tentar descompilar alguns softwares de empresas grandes, os editores acusavam formato de arquivo inválido, então descobri que é possível compactar arquivos executáveis gerando outro executável sem que perca as funcionalidades do original...
Não sei se é possivel com dll para o cad, pois ainda não testei desta forma.

Eu já utilizei o ASPACK para fazer alguns testes com dll e funcionou bem, existem outros, é só procurar...

Com isso certamente vai dificultar um pouco mais para quebrar a proteção...

Faça o teste ai e comente os resultados.
Marcelo Silva - Cascavel - PR
cracksther@gmail.com
Responder