quinta-feira, 13 de outubro de 2011

Rcebendo retorno da janela


Contador de acessoVisitas


Uma operação bastante comum, pelo menos no meu caso, é tomar decisões baseadas em ações realizadas em uma janela. No Android, essa operação é bastante simples, porém o que mais vejo são pessoas utilizando classes protect – que funciona como uma variável global – para realizar essa tarefa.

No meu ponto de vista, assim como o antigo “go to”, a variável global não é algo que deva ser extinguido dos códigos. Assim como o “go to” ou “goto”, ela é necessária e muitas vezes faz com que o código fique mais eficiente e limpo. O problema é com o uso indiscriminado dessas alternativas.

Nosso código é simples. Teremos uma primeira tela, principal, onde terá um botão que ao ser clicado abrirá uma nova tela com dois botões – OK e Cancelar -. Dependendo do botão clicado, na segunda tela, a primeira tela fechará ou continuará aberta.

Vamos ao código.

Arquivo main.xml, define o layout de nossa janela principal.


<?xml version="1.0" encoding="utf-8"?>
<LinearLayout xmlns:android = "http://schemas.android.com/apk/res/android"
   android:orientation="vertical"
   android:layout_width="fill_parent"
   android:layout_height="fill_parent"
   >
<Button android:layout_width="150px" android:layout_height="wrap_content" android:id="@+id/BtnOk" android:text="@string/BtnOk"></Button>

</LinearLayout>


Arquivo Tela2.xml, define o layout de nossa segunda janela.


<?xml version="1.0" encoding="utf-8"?>
< LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"
   android:orientation="vertical"
   android:layout_width="fill_parent"
   android:layout_height="fill_parent">

<Button android:layout_width="150px" android:layout_height="wrap_content" android:id="@+id/BtnOk" android:text="@string/BtnOk"></Button>

<Button android:layout_width="150px" android:layout_height="wrap_content" android:id="@+id/BtnOk" android:text="@string/BtnOk"></Button>

<Button android:layout_width="150px" android:layout_height="wrap_content" android:id="@+id/BtnCancel" android:text="@string/BtnCancel"></Button>

</LinearLayout>


Arquivo strings.xml, define os valores para nossas “constantes”


<?xml version="1.0" encoding="utf-8"?>
<resources>
   <string name="app_name">Principal</string>
   <string name="app_name_2">TesteDroid2</string>
   <string name="BtnCancel">Cancelar</string>
   <string name="BtnOk">OK</string>
</resources>


Arquivo AndroidManifest.xml, definimos os nomes e classes de nossas telas. Nesse arquivo nos definiremos quais os nomes das classes de nossas telas, para que possamos referencia-las posteriormente. Notemos que a categoria para a tela principal é android.intent.category.LAUNCHER já a tela secundária é android.intent.category.DEFAULT.
Podemos definir o nome da Classe a nosso gosto, neste caso, a tela principal foi definida automaticamente, já na tela 2 eu dei o nome de com.TesteDroid.Tela2.



<?xml version="1.0" encoding="utf-8"?>
<manifest xmlns:android="http://schemas.android.com/apk/res/android"
   package="com.teste.Droid"
   android:versionCode="1"
   android:versionName="1.0">
   <uses-sdk android:minSdkVersion="7" />

   <application android:icon="@drawable/icon" android:label="@string/app_name">
      <activity android:name=".TesteDroidActivity" android:label="@string/app_name">
      <intent-filter>
         <action android:name="android.intent.action.MAIN" />
         <category android:name="android.intent.category.LAUNCHER" />
         </intent-filter>
      </activity>

      <activity android:name="Tela2" android:label="@string/app_name_2">
         <intent-filter>
            <action android:name="com.TesteDroid.Tela2" />
            <category android:name="android.intent.category.DEFAULT" />
         </intent-filter>
      </activity>

   </application>
</manifest>


Com nosso resouce montado, vamos ao código.

Nossa tela principal terá o seguinte código


package com.TesteDroid;

import android.app.Activity;
import android.content.ContentValues;
import android.content.Intent;
import android.os.Bundle;
import android.view.View;
import android.widget.Button;

public class TesteDroidActivity extends Activity {
     /** Called when the activity is first created. */

     @Override
     public void onCreate(Bundle savedInstanceState) {
          super.onCreate(savedInstanceState);
          setContentView(R.layout.main);


          // Criando o botão OK
          // o findViewById retorna o componente definido em nosso layout,
          // em um tipo genérico, redefinimos para o tipo Buttuon.
          // percebemos que não foi criado um novo botão, foi apenas
          // referenciado
          final Button btnOk = (Button)findViewById(R.id.BtnOk);

          /* ***************************************************
          *           E v e n t o s
          *****************************************************/

          btnOk.setOnClickListener(new View.OnClickListener() {

               //evento de clique nobotão
               public void onClick(View v) {
                    //refernciando a tela 2, verifique que passamos
                    // o nome da classe que definimos no AndroidManifest.xml como parâmetro
                         Intent frmTela2 = new Intent("com.TesteDroid.Tela2");
                         //chamando a tela 2
                         startActivityForResult(frmTela2, 1);
                    }
               });

     }

     //evento disparado na volta da tela 2
     public void onActivityResult(int requestCode, int resultCode, Intent data)
     {
          if (requestCode == 0 ) return;
          //pegando o valor de resultado
          // se for falso, eu fecho o programa
          if (!ata.getExtras().getBoolean("resultado"))
           {
               finish();
          }
     }
}


Código da tela 2


package com.RMaster.Droid;

import android.app.Activity;
import android.content.Intent;
import android.os.Bundle;
import android.view.View;
import android.widget.Button;
public class Tela2 extends Activity
{
     @Override
     public void onCreate(Bundle savedInstanceState)
     {
          super.onCreate(savedInstanceState);
          setContentView(R.layout.Tela2);

          Intent data = new Intent();
          // Colocando o valor false em resultado, para poder se
          // acessado na volta da janela
          // esses valor é setado aqui, pois a pessoa pode fechar
          // a tela sem clicar em nenhum botão
          data.putExtra("resultado", false);
          setResult(0,data);

          Button BtnOk = (Button)findViewById(R.id.BtnOk);
          BtnOk.setOnClickListener(new View.OnClickListener() {

               public void onClick(View v) {
                    // TODO Auto-generated method stub
                    if (alteraSenha())
                    {
                         Intent data = new Intent();
                         data.putExtra("resultado", true);
                         setResult(1,data);
                         finish();
                    }
               }
          });

          Button BtnCancel = (Button)findViewById(R.id.Cancel);
          BtnOk.setOnClickListener(new View.OnClickListener() {

               public void onClick(View v) {
                    // TODO Auto-generated method stub
                    Intent data = new Intent();
                    data.putExtra("resultado", false);
                    setResult(1,data);
                    finish();
               }
          });

     }
}

quarta-feira, 10 de novembro de 2010

Recuperando Senha do Banco de Dados Access 2000


Contador de acessoVisitas


Já aconteceu comigo e provavelmente com você que está lendo. Incluir uma senha em um banco de dados Access 2000 e depois não recordar. Por isso, e por didática, resolvi postar o código em Visual Basic 6.0.

Veja Também Recuperando Senha do Banco de Dados Access 97

Vou considerar um Form com uma caixa de texto onde será colocado o caminho completo da base de dados. Um Botão que executará a quebra da senha e um rótulo que mostrará a senha.

No evento on_Click do botão, incluiremos o código.


Private Sub Command1_Click()
   Label1.Caption = DescobreSenha2000(Text1.Text)
End Sub


Crie um módulo e inclua o código abaixo.


'Tamanho máximo da senha compila, onde cada caracter da senha
'estará representado pelo seu repectivo código ASC em hexadecimal
Const LEN_PWD_COMPILED = 20 * 2

Const OFFSET_PWD_INTERVAL = 4
Const OFFSET_PWD_COMPILED = 66

'Posição no arquivo onde começa a senha
Const OFFSET_XOR_GET = OFFSET_PWD_COMPILED + LEN_PWD_COMPILED - OFFSET_PWD_INTERVAL

'Valor padrão usado na conversão da senha
Const VAL_XOR_FIX = &H2A7DA8A8

Public Function DescobreSenha2000(ByVal FileName As String) As String
   On Error GoTo Erro
   Dim New_Xor_Val As Long
   Dim New_Xor_Char As Variant
   Dim i As Long
   Dim NewPassword As String
   Dim Part_Char As String
   Dim Part_Char_Hex As String

   Dim texto As String
   Dim arq As Long
   'Abrindo o arquivo é pegando os (OFFSET_XOR_GET + 5) primeiros bytes, pois é onde se encontrará a senha
   arq = FreeFile
   Open FileName For Binary As arq
   texto = String(OFFSET_XOR_GET + 1 + OFFSET_PWD_INTERVAL, " ")
   Get #arq, 1, texto
   Close arq

   New_Xor_Val = CompileVal(Mid(texto, OFFSET_XOR_GET + 1, OFFSET_PWD_INTERVAL)) Xor VAL_XOR_FIX

   'Array padrão usado para decodificar a senha
   New_Xor_Char = Array(&H37EDE6BC, &HFA9D5967, &HE62943FC, &H608BAB29, &H367A896E, &HB1DE6FCF, &H4312E94D, &H33B0B2F5, &H5B787C0E, &H2A7DA8A8)

   For i = 1 To LEN_PWD_COMPILED / OFFSET_PWD_INTERVAL
      Part_Char = Mid(texto, OFFSET_PWD_COMPILED + (i - 1) * OFFSET_PWD_INTERVAL + 1, OFFSET_PWD_INTERVAL)
      Part_Char_Hex = AlnRight(Hex((CompileVal(Part_Char) Xor New_Xor_Val) Xor New_Xor_Char(i - 1)), 2 * OFFSET_PWD_INTERVAL)
      NewPassword = Chr(HexToLng(Mid(Part_Char_Hex, 1, 4))) & Chr(HexToLng(Mid(Part_Char_Hex, 5, 4))) & NewPassword
   Next

   DescobreSenha2000 = StrReverse(Replace(NewPassword, Chr(0), ""))
   Exit Function
Erro:
   MsgBox "Erro: " & Err.Number & " - " & Err.Description
   DescobreSenha2000 = "Erro na descoberta da senha"
End Function

'Compila o texto passado de acordo com a regra utilizada
'na "criptografia" da senha
Private Function CompileVal(Text As String) As Long
   Dim Val As String
   Dim TextRev As String
   Dim i As Long

   TextRev = StrReverse(Text)
   For i = 1 To Len(TextRev)
      Val = Val & AlnRight(Hex(Asc(Mid(TextRev, i, 1))), 2)
   Next i
   CompileVal = HexToLng(Val)
End Function

'Alinha a esquerda
Private Function AlnRight(Val As String, LenEnd As Long, Optional Char As String = "0") As String
   AlnRight = String(LenEnd - Len(Val), Char) & Val
End Function

'Converte um número Hexadecimal em Inteiro Longo
Private Function HexToLng(ValHex As String) As Long
   HexToLng = Val("&h" & ValHex & "&")
End Function

sexta-feira, 5 de novembro de 2010

Recuperando Senha do Banco de Dados Access 97


Contador de acessoVisitas


Já aconteceu comigo e provavelmente com você que está lendo. Incluir uma senha em um banco de dados Access 97 e depois não recordar. Por isso, e por didática, resolvi postar o código em Visual Basic 6.0.

Veja Também Recuperando Senha do Banco de Dados Access 2000

Vou considerar um Form com uma caixa de texto onde será colocado o caminho completo da base de dados. Um Botão que executará a quebra da senha e um rótulo que mostrará a senha.

No evento on_Click do botão, incluiremos o código.


Private Sub Command1_Click()
   Label1.Caption = DescobreSenha(Text1.Text)
End Sub


Crie um módulo e inclua o código abaixo.


Public Function DescobreSenha(NomeDB As String) As String
   Dim NPassByte() As Byte
   Dim hFile As Integer
   Dim subPassByte() As Byte
   Dim passByte(0 To 19) As Byte
   Dim i As Integer
   Dim Buffer As String

   'Abrindo o arquivo mdb (base de dados) de forma binária
   hFile = FreeFile
   Open NomeDB For Binary As #hFile

   'Pulando para a posição do arquivo que contém a senha
   Seek #hFile, 67

   'pegando os 20 caracteres a partir da posição de início
   'A senha do access suporta senha de no máximo 20 caracteres
   subPassByte = InputB(20, #hFile)

   'fechando o arquivo
   Close #hFile

   'String de conversão da senha
   NPassByte = ChrB(134) & ChrB(251) & ChrB(236) & ChrB(55) & ChrB(93) & ChrB(68) & ChrB(156) & ChrB(250) & ChrB(198) & ChrB(94) & ChrB(40) & ChrB(230) & ChrB(19) & ChrB(182) & ChrB(138) & ChrB(96) & ChrB(84) & ChrB(148) & ChrB(123) & ChrB(54)

   'Usando a string de conversão para converter a senha
   'a "criptografia da senha" nada mais é do que um Xor
   'dos bytes no arquivo da base de dados com a string
   'criada acima
   For i = 0 To 19
      passByte(i) = subPassByte(i) Xor NPassByte(i)
   Next

   'convertendo o vetor de byte em uma string no unicode
   Buffer = StrConv(passByte, vbUnicode) & vbNullChar

   'Retornado a string com a senha, convertida, limpando a string dos nulo, pois na
   'maioria das vezes a senha não tem o tamanho de 20 caracteres
   DescobreSenha = Left$(Buffer, InStr(1, Buffer, vbNullChar, vbBinaryCompare) - 1)
End Function
Advogados
Visitas