random codes

Subject: random codes Sat Oct 23, 2010 9:52 am

My first school project 2 years ago :

Code:: import java.awt.Dimension;

import java.awt.Font;
import java.awt.Rectangle;

import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;

import javax.swing.JButton;
import javax.swing.JFrame;
import javax.swing.JLabel;
import javax.swing.JTextArea;
import javax.swing.JTextField;

public class Frame1 extends JFrame {
private JLabel jLabel1 = new JLabel();
private JTextField jTextField1 = new JTextField();
private JButton jButton1 = new JButton();
private JButton jButton2 = new JButton();
private JTextArea jTextArea1 = new JTextArea();

public Frame1() {
try {
jbInit();
} catch (Exception e) {
e.printStackTrace();
}
}

private void jbInit() throws Exception {
this.getContentPane().setLayout( null );
this.setSize(new Dimension(667, 300));
this.setTitle( "VALIDER VOS MOTS DE PASSE" );
jLabel1.setText("Entrez un mot de passe à valider");
jLabel1.setBounds(new Rectangle(15, 25, 225, 15));
jLabel1.setFont(new Font("Tahoma", 1, 14));
jTextField1.setBounds(new Rectangle(15, 50, 255, 30));
jTextField1.setFont(new Font("Tahoma", 0, 13));
jButton1.setText("Valider");
jButton1.setBounds(new Rectangle(15, 90, 140, 30));
jButton1.setFont(new Font("Tahoma", 1, 14));
jButton1.addActionListener(new ActionListener() {
public void actionPerformed(ActionEvent e) {
jButton1_actionPerformed(e);
}
});
jButton2.setText("Quitter");
jButton2.setBounds(new Rectangle(20, 230, 140, 30));
jButton2.setFont(new Font("Tahoma", 1, 14));
jButton2.addActionListener(new ActionListener() {
public void actionPerformed(ActionEvent e) {
jButton2_actionPerformed(e);
}
});
jTextArea1.setBounds(new Rectangle(165, 90, 485, 170));
this.getContentPane().add(jTextArea1, null);
this.getContentPane().add(jButton2, null);
this.getContentPane().add(jButton1, null);
this.getContentPane().add(jTextField1, null);
this.getContentPane().add(jLabel1, null);
}

private void jButton1_actionPerformed(ActionEvent e) {
final int CARACTERE_MIN=8;
final int COMPTEUR_MIN=1;

int compteurMajuscule=0,
compteurMinuscule=0,
compteurChiffre=0,
compteurNonAlphanumerique=0,
compteurEspace=0,
longueur;

char carac;

boolean valide=false;

String saisie,
message="",
resultat,
erreur1="",
erreur2="",
erreur3="",
erreur4="",
erreur5="";

// récupérer le mot de passe entrée
saisie = jTextField1.getText();
longueur = saisie.length();
// test
for (int i = 0; i < longueur; i++){
carac = saisie.charAt(i);

if (Character.isUpperCase(carac)){
compteurMajuscule++;
}
if (Character.isLowerCase(carac)){
compteurMinuscule++;
}
if (Character.isDigit(carac)){
compteurChiffre++;
}
if (!Character.isLetterOrDigit(carac)){
compteurNonAlphanumerique++;
}
if (Character.isSpaceChar(carac)){
compteurEspace++;
}
}

// message d'erreurs
if (longueur<CARACTERE_MIN){
erreur1="\nIl n'a pas plus de "+ CARACTERE_MIN + " caractère";
}
if (compteurMajuscule<COMPTEUR_MIN){
erreur2="\nIl ne contient aucune lettre majuscule";
}
if (compteurChiffre<COMPTEUR_MIN){
erreur3="\nIl ne contient aucun chiffre";
}
if (compteurNonAlphanumerique<COMPTEUR_MIN){
erreur4="\nIl ne contient aucun caractère non-alphanumérique";
}
if (compteurEspace>0){
erreur5="\nERREUR!!! Votre mot de passe contient des espaces";
}
// test pour voir si tout est valide
if(longueur > CARACTERE_MIN &&
compteurMajuscule >= COMPTEUR_MIN &&
compteurMinuscule >= COMPTEUR_MIN &&
compteurChiffre >= COMPTEUR_MIN &&
compteurNonAlphanumerique >= COMPTEUR_MIN &&
compteurEspace==0){
resultat="VALIDE";
}
else{
resultat="INVALIDE";
}

// affichage
message = "Votre mot de passe est " +
resultat+
erreur1+
erreur2+
erreur3+
erreur4+
erreur5;
jTextArea1.setText(message);

}

private void jButton2_actionPerformed(ActionEvent e) {
System.exit(0);
}
}

Subject: Re: random codes Sat Oct 23, 2010 10:02 am

A simple bhop i made last year dont know if its still working dug to updates
If you need one PM me.

Code:: clientbase=getBaseAddr("client.dll")
guibase=getBaseAddr("vguimatsurface.dll")
waterbase=getBaseAddr("engine.dll")
groundAddr=clientbase+0x512870
escAddr=guibase+0x113314
inwaterAddr=waterbase+0x393844
onwaterAddr=clientbase+0x50FF6C
cmd("unbind space")
while (keyDown(35)==0) do
if keyDown(32)~=0 and (readmem(inwaterAddr,4)~=0) then
rawcmd("+jump\n")
wait(10)
rawcmd("-jump\n")
elseif keyDown(32)~=0 and (readmem(groundAddr,4)~=-1) then
rawcmd("+jump\n")
wait(10)
rawcmd("-jump\n")
elseif keyDown(32)~=0 and (readmem(onwaterAddr,4)~=0) then
rawcmd("+jump\n")
wait(10)
rawcmd("-jump\n")
elseif keyDown(32)~=0 and (readmem(escAddr,4)~=1) then
wait(10)
end
end

Subject: Re: random codes Sat Oct 23, 2010 10:38 am

GetDota scripts. Does download the map for me
This way i dont have to check everytime for updates and do it manually.

Code:: '// Dota Download Script
'// Created by BDnR.Negro.

Option Explicit
'// SCRIPT INFO

Script("Name") = "getdota"
Script("Author") = "BDnR.Negro."
Script("Major") = 1
Script("Minor") = 0
Script("Revision") = 4
Script("FileName") = "getdota.txt"
Script("Commands") = "getdota"
Script("Description") = "Checks site periodically for an updated dota map"

'***************************
'// CHANGELOGS

' 1.0.4 updated 07/28/2010
' - Added a check for map size after downloading
' - Removed an unused function
' - Changed the command feedback
' - New setting to load new map in ghost
' - Updated mirrors
' 1.0.3 updated 01/27/2009
' - Forced script to check next site if it times out
' 1.0.2 updated 11/1/2009
' - Added auto update for dota.cfg in conjunction with ghost++
' 1.0.1 updated 10/29/2009
' - Added additional mirrors
' - Added check if file was downloaded before attempting to move it

'***************************
'// GLOBAL VARIABLES

Private Const DotaSite = "http://www.getdota.com"

Private downloads(5), fso, inProgress

'***************************
'// BOT EVENTS

Sub Event_Load()
downloads(0) = "http://81.223.126.91/eng/"
downloads(1) = "http://0v1.org/d0tahost/eng/"
downloads(2) = "http://dota.megajesus.com/eng/"
downloads(3) = "http://dota.skodaautoklub.cz/eng/"
downloads(4) = "http://static.getdota.com/maps/eng/"
downloads(5) = "http://193.164.133.88/eng/"

Set fso = CreateObject("Scripting.FileSystemObject")

Call CreateSettings()
Call CreateCommands()

CreateObj "LongTimer", "checkSite"
checkSite.Interval = GetSettingsEntry("checkTime")*60
checkSite.Enabled = True
End Sub

Sub Event_Command(Command)
If inProgress Then Exit Sub
inProgress = True

Dim mapName

If newMapExists(mapName) Then
   Dsp Command.Source, StringFormat("Updated map found ({0})... " & _
   "Attempting download", mapName), Command.Username, color.Cyan

   If getNewMap(mapName) Then
      Command.Respond "Dota update was successful"
   Else
      Command.Respond "Could not locate current map at any listed mirrors"
   End If
Else
   Command.Respond StringFormat("Already up to date ({0})", mapName)
End If

inProgress = False
End Sub

'***************************
'// PRIVATE SUBS/FUNCTIONS

Sub checkSite_Timer()
Dim mapName

If newMapExists(mapName) Then
   AddChat color.Plum, "Dota update found... Attempting download."

   If getNewMap(mapName) Then
      Addchat color.Plum, "Dota update successful: " &mapName
   Else
      Addchat color.Plum, "Dota update failed."
   End If
End If
End Sub

Private Function newMapExists(ByRef mapName)
If SCINet.StillExecuting Then Exit Function

Dim content, myLoc

content = SCINet.OpenUrl(DotaSite)
mapName = Split(Split(content, "file_name"" value=""")(1), Chr(34))(0)

myLoc = GetSettingsEntry("mapLocation")
If Right(myLoc, 1) <> "" Then myLoc = myLoc & ""

If fso.FolderExists(myLoc) Then
   If NOT(fso.FileExists(myLoc & mapName)) Then
      newMapExists = True
   End If
Else
   Addchat color.Red, "Your specified map folder does not exist"
End If
End Function

Private Function getNewMap(ByVal mapName)
Dim myLoc, i

For i=0 to Ubound(downloads)
   SSC.PrintURLtoFile mapName, downloads(i) & Replace(mapName, " ", "%20")

   '// Check to be sure the file downloaded
   If (fso.FileExists(BotPath & mapName)) Then

      '// Make sure it's a relatively large enough file (6mb or larger)
      If (fso.getfile(BotPath & mapName).size > 6*10^6) Then
         Exit For
      Else
         fso.DeleteFile(BotPath & mapName)
      End If
   End If
Next

If (i<=UBound(downloads)) Then
   getNewMap = True

   myLoc = GetSettingsEntry("mapLocation")
   If Right(myLoc, 1) <> "" Then myLoc = myLoc & ""

   fso.MoveFile BotPath & mapName, myLoc & mapName
   Call UpdateGhost(myLoc & mapName)
End If
End Function

Private Sub UpdateGhost(ByVal newMap)
Dim ghost, trig

ghost = CStr(GetSettingsEntry("ghostName"))
trig = CStr(GetSettingsEntry("ghostTrig"))

If Len(ghost)>0 Then
   AddQ StringFormat("/w {0} {1}map {2}", ghost, trig, newMap)
End If
End Sub

Private Sub CreateSettings()
Dim response, title, version

version = CStr(StringFormat("{0}.{1}.{2}", Script("Major"), Script("Minor"), Script("Revision")))
If (GetSettingsEntry("version") = version) Then Exit Sub

title = "AwaKening's GetDota"
WriteSettingsEntry "version", version
AddChat 15612594, StringFormat("{0} updated to {1}", title, version)

'// Version 1.0.1
If Len(GetSettingsEntry("checkTime")) = 0 Then
   WriteSettingsEntry "checkTime (info)", "How often in minutes to check for a new map"
   WriteSettingsEntry "checkTime", InputBox("How often in minutes should auto-update check" &_
   " for an updated map?", title, "30")

   WriteSettingsEntry "mapLocation (info)", "Where to store your downloaded maps"
   WriteSettingsEntry "mapLocation", InputBox("Where will your maps be saved?", _
   title, "C:\Program Files\Warcraft III\Maps\Download")
End If

'// Version 1.0.4
If (cInt(Replace(version, ".", "")) <=104) Then
   response = InputBox("Enter your ghost's Name if you want it updated also." & _
   " (Blank if none)", title, "")

   WriteSettingsEntry "ghostName", response
   If Len(response)>0 Then
      WriteSettingsEntry "ghostTrig", InputBox("Enter your ghost's trigger", title, "!")
   End If
End If
End Sub

Private Sub CreateCommands()
Dim Command, Parameter

If NOT(OpenCommand("getdota") Is Nothing) Then Exit Sub

Set Command = CreateCommand("getdota")
With Command
   .RequiredRank = 70
   .Description = "downloads newest dota map"
   .Save
End With

Set Command = Nothing
Set Parameter = Nothing
AddChat 9118312, " Command (getdota) successfully created."
End Sub

» Random Pictures