jueves, 20 de diciembre de 2018

Codigo Del Keygen Del Crackme1 Alfa Reformado

Hola amigos he decidido hacer los keygenes en html para mayor seguridad y para que no halla desconfianza de dejarles un ejecutable y me ahorro el trabajo de hacer un Exe.

bueno este sera mi primer keygen en html y es para el crackme 1 de alfa, para probarlo solo hay que copiar el siguiente código y guardarlo como archivo .hta


Codigo


<html>
<head>
<title>Keygen Crackme 1 De alfa   ...:::By Flamer:::...</title>
</head>
<body>
<center>
<h1>Keygen Crackme 1 De alfa   ...:::By Flamer:::...</h1>
Nombre:&nbsp&nbsp&nbsp <input type="text" id="100" size='50' style="text-align:center;"><input type="button" value="Copy" onclick="copiar1()"><br><br>
Serial:&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp <input type="text" id="101" size='50' style="text-align:center;"><input type="button" value="Copy" onclick="copiar2()"><br><br>
<input type="button" id="102" value="Manual" onclick="manual()">
<input type="button" id="103" value="Automatico" onclick="auto()">
<input type="button" id="104" value="Limpiar" onclick="limpia()">
</center>
<script language="vbscript">
option explicit
dim nom,tim

function limpia
   document.getElementById("100").value=""
   document.getElementById("101").value=""
end function

function copiar2()
   dim c
   c = document.getElementById("101").value
   window.clipboardData.setData "text",c
end function

function copiar1()
   dim c
   c = document.getElementById("100").value
   window.clipboardData.setData "text",c
end function

function genera
  dim x,suma,res1,res2
 
   res1=len(nom)

   for x=1 to res1
      suma = suma + asc(mid(nom,x,1))
   next

   res1 = res1 * 5
   res2 = res1 * 5

   res2 = cstr(res1) & cstr(res2)

   res1 = res2 * 5
   res2 = cstr(res2) & cstr(res1)

   res2 = res2 - suma
   document.getElementById("100").value=nom 
   document.getElementById("101").value=res2

end function

function manual
  if document.getElementById("103").disabled then
  document.getElementById("103").disabled = false
     document.getElementById("102").value = "Manual"
  else
     nom=document.getElementById("100").value
     genera()
  end if  
  
end function

function auto
   document.getElementById("103").disabled=true
   document.getElementById("102").value="Stop"
   ciclo()
end function

function ciclo
  randomize
  dim largo,x,cadena,l,y
    
  cadena="abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789"
  l=len(cadena)
  
  largo=cint((25 - 1 + 1) * rnd + 1)
  nom="" 
  
  for x=1 to largo
 y = cint((l - 1 + 1)* rnd + 1)
    nom = nom & mid(cadena,y,1)     
  next
     
  genera()
  if document.getElementById("103").disabled then
     tim=window.setTimeout("ciclo()",10)
  else
  tim=window.clearInterval(ciclo())
  end if  
   
end function
</script>
</body>
</html>




si quieren descargar el crackme para practicar: Descargar Aqui



Saludos Flamer

viernes, 14 de diciembre de 2018

Codigo Fuente De Vbs a Exe

Hola amigos aquí les dejare este código fuente en vb.net que sirve para convertir un archivo vbscript a Exe, otra cosa el stup esta en c++




1- Agregamos 2 TextBox el primero llamado txt_filevbs y el segundo txt_fileexe

2- Agregamos 4 TextBox llamados Button1, Button2, Button3 y Button4....el Button1 con el valor X en la Text, el Button2 y Button3 con el valor Examinar en la propiedad Text, por ultimo Button4 con el valor Convert



Código en vb.net


Option Explicit On
Public Class Form1

    Const WM_NCLBUTTONDOWN = &HA1
    Const HTCAPTION = 2
    Private Declare Function ReleaseCapture Lib "user32" () As Long
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As IntPtr, ByVal wParam As IntPtr, lParam As IntPtr) As Long

    Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Int32, ByVal hwndCallback As Int32) As Long
    Dim tem As String = Environ("temp") & "\musika.mp3"
    Dim tiempo As Integer = 0
    Function cancion(tem)
        Dim mciret As Long

        mciSendString("close all", "", 0, 0)
        mciret = mciSendString("open " & tem & " type MPEGVideo Alias MP3", "", 0, 0)
        mciExecute("Play MP3")
        Return Nothing
    End Function
    Private Sub Form1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Call ReleaseCapture()
        Call SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim bites() As Byte = My.Resources.Keygen

        FileOpen(1, tem, OpenMode.Binary, OpenAccess.Write)
        FilePut(1, bites)
        FileClose(1)

        Timer1.Interval = 1000
        cancion(tem)
        Timer1.Start()
    End Sub
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Randomize()
        Dim bites() As Byte = My.Resources.stup
        Dim code As String
        Dim r As String = "OBDCMYTMM"

        If txt_filevbs.Text = "Abrir Archivo VBScript" Or txt_fileexe.Text = "Guardar Archivo Exe" Then
            MsgBox("Error Campos Vacios...", MsgBoxStyle.Exclamation, "Error")
        Else
            code = r & leer(txt_filevbs.Text)

            FileOpen(2, txt_fileexe.Text, OpenMode.Binary, OpenAccess.Write)
            FilePut(2, bites)
            FilePut(2, code)
            FileClose(2)

            MsgBox("Compilacion Exitosa...", MsgBoxStyle.Information, "Correcto")
        End If
        
    End Sub
    Function leer(file) As String
        Dim code As String
        Dim largo As Integer = FileLen(file)
        Dim x As Integer
        Dim codi As String = ""

        code = Space(largo)

        FileOpen(3, file, OpenMode.Binary, OpenAccess.Read)
        FileGet(3, code)
        FileClose(3)

        For x = 1 To Len(code)
            codi = codi & Chr(Asc(Mid(code, x, 1)) Xor 150)
        Next

        leer = codi
    End Function

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If tiempo < 325 Then
            tiempo = tiempo + 1
        Else
            cancion(tem)
            tiempo = 0
        End If
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim o As New OpenFileDialog
        Dim s As String = Environ("userprofile")

        o.InitialDirectory = s & "\desktop"
        o.Filter = "VBscript Files (*.vbs)|*.vbs"
        o.ShowDialog()
        txt_filevbs.Text = o.FileName
    End Sub
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim o As New SaveFileDialog
        Dim s As String = Environ("userfile")

        o.InitialDirectory = s & "\desktop"
        o.Filter = "Exe File (*.exe)|*.exe"
        o.ShowDialog()
        txt_fileexe.Text = o.FileName
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        On Error Resume Next

        mciSendString("close MP3", "", 0, 0)
        Kill(tem)
        End
    End Sub
End Class



Código Del Stup en c++


#include<iostream> 
#include <windows.h>
#include <string>
#include <fstream>
using namespace std; 
    
main()
{
   int digi;
   string script="";
   ifstream archi;
   ofstream file;
   
   char path[MAX_PATH];
   GetModuleFileName(NULL, path, MAX_PATH);
  
   HWND h = GetConsoleWindow();
   ShowWindow( h,SW_HIDE);    
 
   archi.open(path,ios::binary);  
    archi.seekg(0,ios::end);
    long largo=archi.tellg();
    char bite[largo];
    archi.seekg(0) ;
    archi.read(bite,largo);
   archi.close();
   
   int a,b=0;
  for(a=0;a<=largo;a++)
  {
   if(bite[a]=='O' && bite[a+1]=='B' && bite[a+2]=='D' && bite[a+3]=='C' && bite[a+4]=='M' && bite[a+5]=='Y' && bite[a+6]=='T' && bite[a+7]=='M' && bite[a+8]=='M')
   {
      b = a + 9;
      break;
    }
  }
  
  if(b==0)
  {  
     MessageBox(NULL, "No Se Encontro El Archivo VBscript", "Error",64);
  }
  else
  {
    for(int x=b;x<=largo-1;x++)
    {
     digi = (int)bite[x];
  digi = digi xor 150;
     script+= (char)digi;
  }
  string tmp=getenv("temp");
  tmp+="\\temp.vbs";  
     
     file.open(tmp.c_str(),ios::out);  
     file.write(script.c_str(),script.length()); 
     file.close(); 
     system(tmp.c_str());
    
  }
  return 0;
}



Link del video donde se muestra su uso: https://www.youtube.com/watch?v=5iUmRQWM6Ew

Link del ejecutable por si lo quieren probar:Descargar



Bueno Saludos Flamer